Прошу очередной раз помочь с нестандартным вопросом.
Есть документ в котором содержится большая таблица, в первом столбце располагается информация о местоположении(либо этаж, дата, год, не суть), как сделать прокрутку документа, что бы в верхней части всегда отображался например фактический этаж. Например сначала идет паркинг, листаем вниз документ, начинается двери первого этажа, в верхней части паркинг убирается, а на его место помещается 1 этаж и т.д.
Добрый день, Форумчане!!
Прошу очередной раз помочь с нестандартным вопросом.
Есть документ в котором содержится большая таблица, в первом столбце располагается информация о местоположении(либо этаж, дата, год, не суть), как сделать прокрутку документа, что бы в верхней части всегда отображался например фактический этаж. Например сначала идет паркинг, листаем вниз документ, начинается двери первого этажа, в верхней части паркинг убирается, а на его место помещается 1 этаж и т.д.DvoinicK
Вы бы хоть файлик какой приложили, что ли... А то я лично ничего не понял. Но похоже, это только макросом и надо думать, на какое событие его вешать...
Вы бы хоть файлик какой приложили, что ли... А то я лично ничего не понял. Но похоже, это только макросом и надо думать, на какое событие его вешать...StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
abtextime, а зачем? В конце концов пользователь в интересное ему место мышою кликнет, вот на SelectionChange и повесить... А на Deactivate и BeforeClose — восстановление состояния.
abtextime, а зачем? В конце концов пользователь в интересное ему место мышою кликнет, вот на SelectionChange и повесить... А на Deactivate и BeforeClose — восстановление состояния.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Среда, 16.05.2018, 16:11
В качестве первого приближения - добавить изначально пустую строчку между первой и третьей, закрепить области по ячейке A3, подвесить макрос на удобную горячую клавишу
[vba]
Код
Public Sub A2() For i = ActiveCell.Row To 3 Step -1 If Cells(i, 1).Value Like "*этаж" Or Cells(i, 1).Value = "Паркинг" Then Cells(2, 1).Value = Cells(i, 1).Value Exit For End If Next i End Sub
[/vba]
В качестве первого приближения - добавить изначально пустую строчку между первой и третьей, закрепить области по ячейке A3, подвесить макрос на удобную горячую клавишу
[vba]
Код
Public Sub A2() For i = ActiveCell.Row To 3 Step -1 If Cells(i, 1).Value Like "*этаж" Or Cells(i, 1).Value = "Паркинг" Then Cells(2, 1).Value = Cells(i, 1).Value Exit For End If Next i End Sub