Основы офисного программирования и документы Word

         

Форматирование листа бланка.


Обычный лист Excel содержит "лишние" для бланка детали. Пользователь, работающий с бланком, может и не подозревать, что он работает с рабочим листом Excel, он должен видеть перед собой "обычный" лист с именованными полями, в которые заносится нужная информация. Поэтому я отключил такие элементы рабочего листа, как сетку, выделяющую ячейки, заголовки столбцов и строк, а также строку листа Excel, в которой отображаются имена ячеек и формулы, записанные в них. Это достигается установкой соответствующих переключателей в окне Options (Параметры) из меню Tools (Сервис). Следующим шагом работы является выделение области ячеек, соответствующих размеру электронного бланка и выделение ее подходящим цветом фона. На этом этапе я использовал возможности, предоставляемые для задания фона в окне Patterns (Вид) при выборе команды Cells (Ячейки) из меню Format (Формат). Замечу, что хотя совершенно естественно начинать описание процесса создания бланка с его форматирования, реально форматирование следует выполнять на п оследнем этапе, когда бланк полностью готов и осталось убрать лишние детали.

Итак, вот моя программа действий по форматированию бланка с записью соответствующего макроса:

  • открыл чистый рабочий лист Excel;
  • вызвал запись макроса, которому дал имя "ФорматированиеБланка ";
  • удалил "лишние" элементы рабочего листа: сетку и заголовки строк и столбцов;
  • выделив область ячеек, соответствующую размеру бланка, залил ее подходящим цветом;
  • закончил запись макроса.

Приведу текст полученного макроса с добавленными мной комментариями:

Sub ФорматированиеБланка() ' ' ФорматированиеБланка Macro ' Macro recorded 27.11.1999 by Vladimir Billig ' Этот макрос удаляет сетку, заголовки строк и столбцов, строку формул, 'показ нулей в ячейках рабочего листа. Выделяет подходящим фоном рабочую 'область бланка. В данном примере: A1:K56

Range("A1:K56").Select With Selection.Interior .ColorIndex = 15 'серый цвет .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With With ActiveWindow .DisplayGridlines = False 'сетка .DisplayHeadings = False 'заголовки .DisplayFormulas = False 'показ формул .DisplayZeros = False 'отображение нулей End With Application.DisplayStatusBar = False 'строка статуса End Sub

Листинг 6.18.

(html, txt)

MacroRecorder помещает все создаваемые макросы в отдельный модуль, который я переименовал, назвав его "БланкСчетФактура".



Содержание раздела