Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Изменить цвет индикатора комментария с кодом VBA


arrow синий правый пузырь Изменить цвет индикатора комментария с кодом VBA


Нет прямого способа изменить цвет индикаторов комментариев быстро и легко, но следующий код VBA может помочь вам нарисовать треугольную форму, перекрывающую каждый индикатор комментария с определенным цветом, который вам нужен на активном листе.

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

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

3. Щелчок Вставить > модуль, и вставьте следующий код в Окно модуля.

Код 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 ключ для выполнения кода, а все красные индикаторы треугольника покрыты синими треугольниками, как показано следующие скриншоты:

Doc-изменение-комментарий-индикаторы-1
-1
Doc-изменение-комментарий-индикаторы-2

Заметки:

1. В приведенном выше коде вы можете изменить синий цвет на ваш, просто изменив индекс цвета в скрипте .Fill.ForeColor.SchemeColor = 12.

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

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

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

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



Рекомендуемые инструменты для повышения производительности в Excel

Kutools для Excel помогает всегда завершать работу раньше времени и выделяться из толпы

  • Больше, чем мощные расширенные функции 300, разработанные для рабочих сценариев 1500, повышающие производительность на 70%, дают вам больше времени, чтобы заботиться о семье и радоваться жизни.
  • Больше не нужно запоминать формулы и коды VBA, дайте вашему мозгу отдохнуть.
  • Станьте экспертом по Excel за минуты 3. Сложные и повторяющиеся операции можно выполнить за считанные секунды,
  • Ежедневно сокращайте тысячи операций с клавиатурой и мышью, попрощайтесь с профессиональными заболеваниями сейчас.
  • Высокоэффективные люди 110,000 и выбор всемирно известных компаний 300 +.
  • 60-Day полнофункциональная бесплатная пробная версия. 60-день гарантии возврата денег. 2 лет бесплатного обновления и поддержки.

Обеспечивает просмотр и редактирование с помощью вкладок в Microsoft Office, гораздо более мощный, чем вкладки браузера

  • Вкладка Office предназначена для Word, Excel, PowerPoint и других приложений Office: Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sherri · 4 months ago
    Many Excel users may wonder if the red indicator color can be changed to other colors they like. In this article, I will talk about a workaround to finish this task. https://mobdro.ooo/
  • To post as a guest, your comment is unpublished.
    Kerryn · 5 months ago
    tried the above to change the colour of the comment indicator but no luck? When selecting F5 to execute the code nothing happens? Help please, thansk
  • To post as a guest, your comment is unpublished.
    Dof · 1 years ago
    Bonjour peut on faire la meme chose sous condition (ex : si le commentaire contient un mot)?
  • To post as a guest, your comment is unpublished.
    Cris · 1 years ago
    Thanks for the idea!! Because I'm working in a VBA/macro free environment (security constraints), I just created a tiny little triangle shape and put it on top of all the bright red indicators, setting the properties to move but don't size with cells. Worked like a charm :-)