Sub Worksheet_SelectionChange(ByVal Target As Range)
' Вывод адреса ячейки в различных форматах
MsgBox Target.Address() & vbCr & _
Target.Address(RowAbsolute:=False) & vbCr & _
Target.Address(ReferenceStyle:=xlR1C1) & vbCr & _
Target.Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=False, ColumnAbsolute:=False, _
RelativeTo:=Worksheets(1).Cells(2, 2))
End Sub
Теперь при щелчке кнопкой мыши на ячейке, например, Е9 на экране отобразится окно со следующим сообщением:
$E$9
$E9
R9C5
R[7]C[3]
Адрес ячейки представлен в нескольких форматах, в том числе и относительно другой ячейки. В качестве ячейки, относительно которой определяется адресация, в данном случае используется ячейка В2 (см. в коде значение параметра RelativeTo).
Автоматизация добавления примечаний в указанном диапазоне
Трюк, который мы сейчас рассмотрим, позволяет быстро вставить примечание в ячейки определенного диапазона, соответствующие указанным требованиям.
Для достижения такого эффекта можно воспользоваться макросом, код которого приведен в листинге 2.33.
Sub CreateComments()
Dim cell As Range
' Производим поиск по всем ячейкам диапазона и добавляем
примечания _
ко всем ячейкам, содержащим слово «Выручка»
For Each cell In Range(«B1:B100»)
If cell.Value Like «*Выручка*» Then
cell.ClearComments
cell.AddComment «Неучтенная наличка»
End If
Next
End Sub
С помощью данного макроса обрабатывается диапазон В1:В100. После применения макроса ко всем ячейкам, содержащим текст Выручка, будет добавлено примечание Неучтенная наличка. При этом в примечании будет отсутствовать имя пользователя, его создавшего. Если в указанных ячейках содержалось другое примечание, то оно будет удалено и заменено тем, которое указано в макросе. Очевидно, что с помощью подобных макросов можно создавать произвольные примечания к любым ячейкам указанного диапазона.
Заливка диапазона
Выполнив несложный трюк, можно быстро залить любой диапазон ячеек требуемым цветом (или комбинацией разных цветов). Для этого следует использовать, например, такой макрос (листинг 2.34).
Sub FillRange()
' Заливка диапазона
With Range(«B1:E10»)
' Задаем узор – сетчатый
.Interior.Pattern = xlPatternChecker
' Цвет узора – синий
.Interior.PatternColor = RGB(0, 0, 255)
' Цвет ячейки – красный
.Interior.Color = RGB(255, 0, 0)
End With
End Sub
В результате применения данного макроса диапазон В1:Е10 будет залит красным цветом с синим сетчатым узором.
Ввод строго ограниченных значений в указанный диапазон
В процессе эксплуатации программы иногда возникает необходимость сделать так, чтобы вводимые пользователем данные не выходили за рамки определенного интервала. В этом подразделе мы рассмотрим два трюка, которые позволяют решить эту задачу: с использованием диалогового окна и путем непосредственного ввода данных в диапазон. Применение подобных трюков позволяет контролировать корректность вводимых пользователями данных.
Можно настроить программу таким образом, что ввод строго ограниченных данных в указанный диапазон будет осуществляться только с помощью диалогового окна. Для этого нужно воспользоваться макросом, код которого приведен в листинге 2.35.