Як виділити всі комірки коментарями в Excel?
Коментар є корисною функцією для написання якоїсь важливої інформації в Excel, після вставки коментаря в комірці відображатиметься маленький червоний індикатор. Але іноді червоні індикатори не дуже вражають, тому ми можемо виділити всі клітинки коментарями певним кольором, щоб зробити їх видатнішими. Будь ласка, прочитайте цю статтю, щоб дізнатися більше деталей.
Виділіть усі комірки коментарями за допомогою функції "Перейти до спеціального"
Виділіть усі комірки коментарями за допомогою коду VBA
Виділіть усі комірки коментарями за допомогою функції "Перейти до спеціального"
В Excel ми можемо спочатку вибрати всі комірки коментарів, а потім надати їм потрібний колір, будь-ласка, виконайте такі дії:
1. Виберіть діапазон даних або весь аркуш, для якого потрібно виділити комірки коментарями.
2. Потім натисніть Головна > Знайти та вибрати > Перейти до спеціального, див. скріншот:
Чайові: Ви можете натискати ярлики Ctrl + G відкрити Перейти до і натисніть спеціальний відкрити Перейти до спеціального діалог
3, в Перейти до спеціального діалогове вікно, поставте галочку Коментарі варіант, див. скріншот:
4. Потім натисніть OK щоб закрити це діалогове вікно, і всі комірки з коментарями були вибрані у вашому виділенні, див. знімок екрана:
5. Вибравши комірки для коментарів, клацніть на Колір заливки піктограма під Головна та виберіть один колір, який вам подобається, усі вибрані коментарі комірки будуть одночасно забарвлені, див. знімок екрана:
Виділіть усі комірки коментарями за допомогою коду VBA
Ви також можете відразу виділити та розфарбувати всі коментарі комірок на активному аркуші за допомогою наступного коду VBA:
1. Активуйте свій аркуш, у якому потрібно виділити комірки коментарів.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!