Excel. Трюки и эффекты | страница 121
End With
End Sub
Результат применения макроса показан на рис. 3.20.
На рисунке видно, что диапазон ячеек ограничен рамкой, а сетка внутри его представлена в виде пунктирных линий.
Рис. 3.20. Рамка и сетка
Быстрая вставка фамилий должностных лиц в документ
Трюк, который мы рассмотрим в данном разделе, позволяет быстро вставить в любое место документа определенный заранее текст. Такую возможность удобно использовать, например, для вставки в документ должностей и фамилий директора и главного бухгалтера предприятия (либо других сотрудников). Подобная задача реализуется при использовании макроса, код которого приведен в листинге 3.67.
Sub InsertCustomText()
' Заполнение текущей ячейки
ActiveCell = «Генеральный директор»
Selection.Font.Bold = True
' Фамилия на три столбца правее должности
Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
ActiveCell.FormulaR1C1 = «А. Б. Рублев»
Selection.Font.Bold = True
' Ячейка с «Главный бухгалтер» на три столбца левее _
и на три строки ниже ячейки с фамилией директора
Cells(ActiveCell.Row + 3, ActiveCell.Column – 3).Select
ActiveCell = «Главный бухгалтер»
Selection.Font.Bold = True
' Фамилия на три столбца правее должности
Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
ActiveCell = «Т. С. Копейкин»
Selection.Font.Bold = True
End Sub
После выполнения данного макроса соответствующий текст будет вставлен в том месте документа, где расположен курсор (рис. 3.21).
Рис. 3.21. Вставка текста в документ
Очевидно, что с помощью приведенного выше макроса можно вставлять в текущий документ любой произвольный текст.
Вызов окна настройки шрифта
С помощью небольшого макроса можно вызывать окно настройки параметров шрифта. Код этого макроса выглядит так (листинг 3.68).
Sub ShowFontDialog()
' Вызов стандартного окна настройки шрифта текущей ячейки
Application.Dialogs(xlDialogActiveCellFont).Show
End Sub
После его выполнения откроется окно Формат ячеек, в котором выполняются необходимые действия. Заданные в данном окне настройки применяются к ячейке, в которой установлен курсор.
Вывод информации о текущем документе
Чтобы быстро вывести на экран информацию об имени текущего файла, названии текущего рабочего листа и количестве листов в текущей рабочей книге, можно использовать макрос, код которого приведен в листинге 3.69.
Sub ShowInfo()
Dim i As Integer
' Выводим имя файла рабочей книги
