Автоматизация добавления примечаний в указанном диапазоне
Трюк, который мы сейчас рассмотрим, позволяет быстро вставить примечание в ячейки определенного диапазона, соответствующие указанным требованиям.
Для достижения такого эффекта можно воспользоваться макросом, код которого приведен в листинге 2.33.
Листинг 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. После применения макроса ко всем ячейкам, содержащим текст Выручка, будет добавлено примечание Неучтенная наличка. При этом в примечании будет отсутствовать имя пользователя, его создавшего. Если в указанных ячейках содержалось другое примечание, то оно будет удалено и заменено тем, которое указано в макросе. Очевидно, что с помощью подобных макросов можно создавать произвольные примечания к любым ячейкам указанного диапазона.