Как изменить цвет индикатора комментария в Excel?
По умолчанию при добавлении комментария в Excel в правом верхнем углу ячейки появляется небольшой красный треугольник — он служит индикатором наличия комментария. Однако зачастую возникает желание изменить цвет этих индикаторов: чтобы они соответствовали фирменному стилю вашей компании, отражали схему категоризации или просто лучше выделялись в общих книгах. Хотя Excel не предлагает встроенной возможности напрямую настроить цвет индикатора комментария, в этой статье описан практичный обходной способ достижения нужного эффекта с помощью кода VBA.
Изменение цвета индикатора комментария особенно полезно при совместной работе или управлении сложными таблицами с множеством комментариев. Настройка индикаторов позволяет визуально структурировать обратную связь, легко различать типы комментариев или просто персонализировать лист для удобства проверки. Ниже — подробные инструкции и примечания к этому обходному решению, а также советы по устранению неполадок, настройке кода VBA и альтернативным методам на случай, если использование VBA ограничено в вашей среде.
Изменение цвета индикатора комментария с помощью кода VBA
Изменение цвета индикатора комментария с помощью кода VBA
В настоящее время в Excel отсутствует прямая функция, позволяющая пользователям быстро изменить цвет треугольных индикаторов комментариев. Однако с помощью VBA можно творчески наложить цветную треугольную фигуру поверх стандартного индикатора, эффективно изменив его внешний вид. Этот подход работает для всех ячеек с комментариями на активном листе. Важно отметить, что данный метод на самом деле не меняет цвет родного индикатора комментария, а лишь визуально закрывает его треугольной фигурой выбранного вами цвета.
Этот метод идеально подойдёт пользователям, которым нужен простой способ визуально выделить индикаторы комментариев без ручного форматирования. Если вы регулярно делитесь книгами или хотите раскрасить комментарии по типам или авторам, VBA обеспечит нужную визуальную настройку. Преимущество VBA — возможность быстро применить изменения ко множеству ячеек; недостаток — необходимость разрешения на макросы и то, что это решение не является родным для Excel. Кроме того, при включённой защите листа её, возможно, придётся снять перед запуском кода VBA.
1. Откройте лист, на котором хотите настроить цвет индикаторов комментариев.
2. Нажмите ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications. Эта комбинация клавиш работает в любой книге Excel и открывает среду редактора VBA.
3. В окне VBA выберите Вставка > Модуль, чтобы создать новый модуль, затем скопируйте и вставьте следующий код VBA в окно модуля. Этот код обнаружит комментарии и нарисует цветной треугольник на каждом индикаторе.
Код VBA: изменение цвета индикатора комментария Активный лист
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. После вставки кода нажмите F5 (или кнопку «Выполнить» в окне VBA), чтобы запустить его. Все индикаторы комментариев на активном листе будут визуально скрыты треугольниками указанного цвета, как показано ниже:
 |
 |
 |
Примечания и советы:
1. Цвет треугольника в коде задаётся с помощью .Fill.ForeColor.SchemeColor = 12. Вы можете заменить 12 на другой код цвета, чтобы он соответствовал вашим предпочтениям. Например, замена на 10 приведёт к использованию другого оттенка. Ознакомьтесь с официальной документацией Excel по ColorIndex, чтобы узнать доступные номера цветовых схем.
2. Пользовательские треугольные фигуры привязаны к углу ячейки, однако их размер или положение могут измениться при изменении размера или перемещении исходных ячеек. Для наилучшего результата сначала завершите настройку размеров ячеек, а затем запускайте код — либо повторно выполните код VBA, если вы уже изменили размеры листа.
3. Если вам нужно мгновенно удалить все цветные треугольные фигуры (не затрагивая сами комментарии), запустите приведённый ниже код VBA — он удаляет только те треугольники, которые были добавлены предыдущим скриптом. Это особенно полезно, если вы хотите вернуть стандартные красные индикаторы или снова изменить их цвет.
Код VBA: удаление треугольных фигур над индикаторами комментариев
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Чтобы запустить код удаления, выполните те же действия: откройте редактор VBA, вставьте модуль, добавьте код и запустите его с помощью F5. При этом исходные данные комментариев останутся intact, а удалятся только фигуры-индикаторы.
Если при запуске любого из скриптов возникает ошибка, убедитесь, что макросы включены в настройках Excel, лист не защищён и объекты на рабочем листе не заблокированы. Обязательно сохраните свою работу перед запуском VBA — это позволит легко отменить изменения, если потребуется.
Если вы работаете в организации, где запуск макросов ограничен, или предпочитаете не использовать VBA, рассмотрите возможность выделения ячеек с комментариями с помощью Использовать условное форматирование в качестве альтернативы для визуальной идентификации, хотя это не изменит сам цвет треугольника. Другой обходной путь — использовать фигуры или значки вручную для отметки ячеек с комментариями.
Связанные статьи:
Как выделить все комментарии в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек