Автоматическая вставка примечаний в ячейки таблицы Excel, пишем макрос

Автоматическая вставка примечаний в Excel

Иногда нам требуется быстро вставить примечания в определённом диапазоне, делать это с помощью вкладок программы или контекстного меню (правой кнопки мыши) неудобно да и долго. Напишем свой макрос для быстрой вставки примечаний в ячейки таблицы.

Иногда нам требуется быстро вставить примечания в определённом диапазоне, делать это с помощью вкладок программы или контекстного меню (правой кнопки мыши) неудобно да и долго. Напишем свой макрос для быстрой вставки примечаний в ячейки таблицы.

Текст макроса:
 
Sub CreateComments()
   Dim cell As Range
   ‘ Производим поиск по всем ячейкам диапазона и добавляем примечания _
   ко всем ячейкам, содержащим слово «Выручка»
   For Each cell In Range(«E1:E100»)
      If cell.Value Like «*Выручка*» Then
         cell.ClearComments
         cell.AddComment «Сдать в банк»
      End If
   Next
End Sub
 
Всем удачи!

Автор записи: Иван

Добавить комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.