Задание 3. Параметры форматирования ячеек и диапазонов

Параметры форматирования ячеек и диапазонов.

Программными методами можно выполнить практически любые настройки и задавать свойства объектов в рабочих документах (и не только). Покажем, как средствами VBA определяются некоторые параметры форматирования (например, шрифт, размер и цвет).

1) Для начала рассмотрим исключительно простой макрос, с помощью которого в качестве значения активной ячейке присваивается название шрифта для отображения данных в ячейке. Программный код макроса Formats () приведен
в листинге 9:

Листинг 9: Программный код макроса Formats ()

Public Sub Formats ()

ActiveCell.Value = ActiveCell.Font.Name

End Sub

Данный макрос свойству активной ячейки Value присваивает значение свойства Font.Name (название шрифта ячейки). Установите шрифт Arial для ячейки B3 (при этом ячейка B3 остается активной) и далее запустите макрос
на выполнение. В результате значением ячейки B3 станет название шрифта Arial (см. рис. 16):

Рис. 16. Результат выполнения макроса Formats (), задание 3, п. 1

2) Несколько измените макрос и сохраните под новым именем Formats2 (). Видоизмененный макрос приводится
в листинге 10:

Листинг 10: Программный код макроса Formats2 ()

Public Sub Formats2 ()

With Selection

.Value =.Font.Name

.Font.Bold = True

End With

End Sub

Данный макрос отличается от предыдущего макроса Formats () тем, что значения ячеек устанавливаются
в соответствии с названием шрифта ля выделенного диапазона ячеек, а для шрифта устанавливается полужирное начертание (свойству шрифта Bold присваивается значение True).

Для удобства в теле макроса использована конструкция With … End With. После ключевого слова With указана ссылка на объект Selection. Это позволяет не использовать данную ссылку в последующих инструкциях блока.
Т.е. внутри блока всё, что начинается с точки, интерпретируется как ссылка, начинающаяся с инструкции Selection.

Для того чтобы проверить работу макроса, установите в ячейках диапазона B3:D5 шрифт Arial для отображения данных. Диапазон ячеек B3:D5 перед запуском макроса остается выделенным. Далее запустите на выполнение макрос Formats2 (). Результат выполнения макроса Formats2 () представлен на рис. 17:

Рис. 17. Результат выполнения макроса Formats2 (), задание 3, п.2.

3) Следующий макрос Formats3 () (см. листинг 11) имеет более сложный программный код, нежели Formats2.

Листинг 11: Программный код макроса Formats3 ()

Public Sub Formats3 ()

With Selection

.ColumnWidth =. ColumnWidth*1.5

.RowHeight =.RowHeight + 2

End With

With Selection.Font

.Color = RGB (0,0,255)

.FontStyle = “Bold Italic”

Selection.Value =.Name & “ “ &.Size

End With

End Sub

Во-первых, данным макросом изменяются ширина и высота ячеек выделенного диапазона. Ширина ячеек увеличивается в 1,5 раза с помощью команды.ColumnWidth =. ColumnWidth*1.5 (внутри блока With Selection). Высота ячеек увеличивается на 2 позиции (команда.RowHeight =.RowHeight + 2 внутри того же блока With Selection). Во-вторых, в блоке With Selection.Font задаются некоторые настройки шрифта. В частности, использованием функции RGB () задается синий цвет шрифта. Функция RGB () генерирует цвет в формате RGB (RGB – сокращение от Red – Green – Blue, т.е. красный – синий - зеленый). Установлен стиль шрифта полужирный курсив, с помощью команды.FontStyle = “Bold Italic”. Значения ячеек формируются объединением названия шрифта (свойство Name), пробела и размера шрифта (свойство Size). Используется оператор объединения текстовых строк &. Пробел, заключенный в кавычки, необходим для того, чтобы между названием шрифта и размером оставался отступ.

Для проверки правильности работы макроса выделите диапазон ячеек B3:D5, присвойте им шрифт Arial, размер шрифта 11 пт. и запустите макрос на выполнение. Результат выполнения работы макроса Formats3 () представлен
на рис. 18:

Рис. 18. Результат выполнения макроса Formats3 (), задание 3, п.3.

В результате, кроме появившегося текста в ячейках, увеличилась ширина ячеек и высота. При этом если при том же выделенном диапазоне запустить макрос на выполнение ещё раз, то ширина и высота ячеек ещё увеличатся.