Макросы для работы с примечаниями в Excel

Продолжаем пополнять Личную книгу макросов.

В этой статье разберем "плюшки" для работы с примечаниями.

pngwing.com

Отобразить, свернуть или скрыть все примечания в книге:

Sub ShowHideAllComments() 'Отображение и скрытие всех примечаний

On Error Resume Next

Select Case Application.DisplayCommentIndicator

Case 1

Application.DisplayCommentIndicator = -1

Case -1

Application.DisplayCommentIndicator = 0

Case 0

Application.DisplayCommentIndicator = 1

End Select

End Sub

Добавить формулу в примечание:

Sub AddFormulaToComment() 'Добавление формулы или значения ячейки в примечание к ячейке

With ActiveCell

.AddComment

.Comment.Text Text:=.FormulaLocal

.Comment.Visible = True

.Comment.Shape.Height = 12

.Comment.Shape.Width = Len(.FormulaLocal) * 6

End With

End Sub

Удалить все примечания на листе:

Sub DelAllComments() 'Удаление всех примечаний на текущем листе

Dim answer As Integer

On Error Resume Next

answer = MsgBox("Удалить все примечания на текущем листе?", vbQuestion + vbYesNo, "Внимание")

If answer = vbYes Then

ActiveSheet.UsedRange.ClearComments

Else: Exit Sub

End If

End Sub

Копируйте нужный код и сохраните его в Личной книге макросов.

Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.

Спасибо, что дочитали до конца!

Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.

Еще готовые решения:

• Изменение стиля ссылок в таблицах Excel с A1 на R1C1
• Изменение стиля шрифта на листе Excel
• Сортировка ярлычков книги Excel по алфавиту
• Сохранение отдельным файлом текущий лист в новую папку
• Удаление пустых столбцов в Excel
• Удаление пустых строк в Excel
• Отображение скрытых листов в файлах Excel, выгруженных из 1С
• Отображение всех скрытых листов в книге Excel
• Макросы для преобразования формул в значения
• Макрос вставки в ячейку полного адреса хранения книги
• Макрос вывода списка файлов в папке
• Снять отображение сетки таблицы на всех листах Excel
• Исправление чисел, превратившиеся в даты
• Быстрое форматирование чисел в Excel
• Отключить изменение ширины столбцов Сводной таблицы в Excel

Интересное по теме Excel:

• Функции Excel: ВПР (вертикальный просмотр)
• Как переместить строку или столбец в Сводной таблице Excel
• Как напечатать заголовки таблицы Excel на каждой странице
• Как отобразить листы в файлах Excel, выгруженных из 1С
• "Умные" таблицы в Excel
• Мгновенное заполнение
• Трюки с листами книги
• Быстрое перемещение строк и столбцов