Страницы: 1
RSS
Создание границ и закрепление области
 
Требуется, чтобы макрос выполнял ряд вещей связанных с форматированием листов. С большинством задач справился, но вот 2 задачи не представляю, как решить. Точнее представляю, но не совсем понимаю, как это реализовать в рамках VBA. На форуме тоже похожей проблемы не нашёл, поэтому обращаюсь к вам.  
 Итак: 1) Имеется ряд заголовков в ячейках сверху, под ними через пару пустых строк начинается таблица. Требуется, чтобы макрос определял на листе таблицу и форматировал её с границами. В принципе, таблицы обычно начинаются с 5 строки, но всё же хотелось бы, чтобы макрос определял её сам. Через UsedRange, как мне видится он будет подхватывать и шапку, и поэтому отформатирует вообще всё.  
       2) Требуется, чтобы в той же таблице он закреплял область таким образом, чтобы шапка таблицы и название статей слева оказывались статичны. Как мне видится, это можно сделать через определение формата ячеек. Т.е. перебирая ячейки сверху и слева, как только находит первую ячейку с форматом числовым, так сразу и закреплял область. Но как осуществить этот перебор удобно, чтобы он не сканировал все ячейки подряд, и не ошибся с ячейкой, не имею представление. Второй вариант, найти ячейку с условием, что слева и сверху будут ячейки с текстовым форматированием, а сама она числовая. И опять же на ней закрепить область.  
 Заранее благодарю за помощь.
 
Область таблицы под таким заголовком  
Debug.Print ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).CurrentRegion.Address  
Закрепление  
ActiveWindow.SplitColumn = n: ActiveWindow.SplitRow = m  
ActiveWindow.FreezePanes = True
Страницы: 1
Читают тему
Loading...