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

Есть некоторые вещи, которые, кажется, просто жестко запрограммированы в Excel и не могут быть изменены. Цвет индикатора комментария — один из таких элементов. Даже игра с различными настройками цвета в Windows не повлияла на индикаторы.

Это проблема, о которой многие годы спрашивают и обсуждают в сообществе Excel. Один из возможных способов обхода проблемы представлен MVP Деброй Даглиш на этой странице:

http://www.contextures.com/xlcomments03.html#Indicator

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

Конечно, недостатком такого подхода является то, что он добавляет графику на ваш рабочий лист для каждого вашего комментария. Если у вас много комментариев на листе, у вас будет много графики. Кроме того, графика может «не оставаться на месте» при редактировании рабочего листа, добавлении и удалении ячеек. Если вы добавляете или удаляете комментарии, вам также необходимо удалить графику (для этого Debra предоставляет макрос) и повторно запустить макрос, чтобы снова добавить графику.

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

Sub ColorComments()

Dim commentCell As Range     On Error GoTo ErrorHandler 'Deal with empty selection

Selection.SpecialCells(xlCellTypeComments).Select     On Error GoTo 0     For Each commentCell In Selection.Cells         commentCell.Interior.ColorIndex = 36     Next     Range("A1").Select     Exit Sub ErrorHandler:

' Error Handler is deliberately empty End Sub

Недостатком этого макроса является то, что при удалении комментариев нелегко «снять отметку» с любых ячеек. Вам также нужно будет повторно запустить макрос при добавлении новых комментариев на рабочий лист.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3498) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.