lightanddesign.ru
You might also like
Макрос, представленный в этой статье, заменяет параметр "Колонки", используемый в настройках "Разметка страницы" в Word.
Рассмотрим пример таблицы со списком продуктов, хранящихся на складе. Таблица имеет четыре столбца: количество субпродуктов, количество продуктов на складе и место хранения (название склада).
Хотя в таблице всего четыре колонки, список продуктов очень обширен и при отправке на печать занял бы несколько печатных листов. Неудобно носить с собой много бумаг при проверке склада.
Для экономии бумаги, тонера и энергии, затрачиваемой на печать, существует идея печатать таблицу в два столбца на каждом листе, но эту идею не так просто применить.
В Word есть функция "Колонки" на вкладке "Разметка страницы", которая позволяет разделить текст на разные колонки, но в Excel такой возможности нет.
Поэтому, чтобы разделить данные из таблицы на два столбца, необходимо создать макрос, выполняющий эти действия.
Макрос выглядит следующим образом:
под двэколонки ().
Dim sheet active как рабочий лист, SheetNoviy как рабочий лист ‘Добавить переменную в рабочий лист
Long dim vsego, long dim добавить переменную и установить границы таблицы
SET Sheetactive = ActiveSheet ‘присвойте эту переменную активному листу
vsego = Sheetactive.cells.find (what: = "?" , lookin: = xlvalues, lookat: = _
, searchformat: = false).row -1 "Установите область
perviy = application.worksheetfunction.roundup (vsego / 2, 0) "разделить регион
set sheetnoviy = sheets.add (, sheets.count)) ‘установить новый лист
sheetnoviy.range ("a1:e1") значение = sheetactive.range ("a1:e1") значение
sheetnoviy.range ("f1:j1"). значение = sheetactive.range ("a1:e1"). значение
sheetnoviy.range ("a2"). resize (perviy, 5). value = sheetactive.range ("a2"). sezize (perviy, 5). value
sheetnoviy.range ("f2"). resize (vsego -perviy, 5).value = _
sheetactive.range ("&perviy + 2").resize (vsego -perviy, 5).value" split table
End Sub
Проектор кода должен быть открыт в таблице оператора, а код макроса добавлен в рабочую книгу Excel.
Макрос можно запустить из списка макросов (книга макросов) или назначить его активному элементу. Кнопка или флажок.
