Как выделить все комментарии в 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?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек