Автоматизация добавления примечаний в указанном диапазоне

Трюк, который мы сейчас рассмотрим, позволяет быстро вставить примечание в ячейки определенного диапазона, соответствующие указанным требованиям.

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