Как в Excel выделить все ячейки с комментариями?

Комментарий - это полезная функция для нас, чтобы написать важную информацию в Excel, после вставки комментария в ячейке будет отображаться небольшой красный индикатор. Но иногда красные индикаторы не очень бросаются в глаза, поэтому мы можем выделить все ячейки с комментариями определенным цветом, чтобы сделать их более заметными. Пожалуйста, прочтите эту статью, чтобы узнать больше.

Выделите все ячейки с комментариями с помощью специальной функции Перейти

Выделите все ячейки с комментариями с кодом VBA

---

Выделите все ячейки с комментариями с помощью специальной функции Перейти

В Excel мы можем сначала выбрать все ячейки комментариев, а затем присвоить им понравившийся цвет, пожалуйста, сделайте следующее:

1. Выберите диапазон данных или весь лист, на котором вы хотите выделить ячейки с комментариями.

2. Затем нажмите Главная > Найти и выбрать > Перейти к специальному, см. снимок экрана:

Функции: Вы можете нажимать ярлыки Ctrl + G для открытия Перейти к диалоговое окно и щелкните Особый для открытия Перейти к специальному Диалог.

3. В Перейти к специальному диалоговое окно, отметьте Комментарии вариант, см. снимок экрана:

4. Затем нажмите OK чтобы закрыть это диалоговое окно, и все ячейки с комментариями были выделены в вашем выборе, см. снимок экрана:

5. После выбора ячеек комментария нажмите кнопку Цвет заливки значок под Главная вкладку и выберите один понравившийся цвет, все выбранные комментарии к ячейкам будут окрашены сразу, см. снимок экрана:

---

Выделите все ячейки с комментариями с кодом VBA

Вы также можете сразу выделить и раскрасить все комментарии к ячейкам на активном листе с помощью следующего кода VBA:

1. Активируйте свой рабочий лист, на котором вы хотите выделить ячейки комментариев.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: выделить все ячейки с комментариями

Sub ColorComments()
'Update 20141110
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub

4, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе диапазона, в котором вы хотите выделить ячейки комментария, см. снимок экрана:

5, Затем нажмите OK, все комментарии в вашем выборе выделены цветом.

Внимание:

В приведенном выше коде вы можете изменить индекс цвета в скрипте. Rng.Interior.ColorIndex = 36 вам нравится.

---

Статьи по теме:

Как сбросить все позиции комментариев в Excel?

Как изменить цвет индикатора комментария в Excel?

Как автоматически добавлять дату и время для комментариев в Excel?