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

Когда вы добавляете комментарий к ячейке на листе, Excel позволяет вам изменить форматирование, используемое для этого комментария. После создания комментария выполните следующие действия:

  1. Щелкните ячейку правой кнопкой мыши и выберите «Изменить комментарий» в контекстном меню.

Это поместит точку вставки в комментарий, где вы можете ввести дополнительную информацию, если хотите.

  1. Щелкните правой кнопкой мыши границу комментария и выберите «Форматировать комментарий» в появившемся контекстном меню. Excel отображает диалоговое окно «Формат комментария».

  2. Используйте элементы управления в диалоговом окне, чтобы изменить способ отображения комментария.

  3. Щелкните ОК.

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

Обходной путь — использовать макрос для вставки комментариев. Макрос может не только вставить комментарий, но и отформатировать его в соответствии с вашими потребностями.

Вот пример короткого макроса, который вставит комментарий для выбранной ячейки и, если имя пользователя «Mikki», сделает фоновый цвет бирюзовым. (Имя пользователя определяется в настройках Excel.)

Sub AddMyComment()

Dim sUserName As String     Dim  addr As String

sUserName = Application.UserName

With ActiveCell         addr = .Address

If sUserName = "Mikki" Then             ActiveSheet.Range(addr).AddComment             Range(addr).Comment.Shape.Select True             Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41         Else             Range(addr).AddComment         End If     End With End Sub

Если у вас уже есть рабочий лист, содержащий много комментариев, вы можете поискать комментарии, в которых есть текст «Mikki», а затем изменить цвет этих комментариев. Этот макрос отвечает всем требованиям:

Sub ColorMyComments1()

Dim myCom As Comment

For Each myCom In ActiveSheet.Comments     If InStr(myCom.Text, "Mikki") <> 0 Then         myCom.Shape.Fill.ForeColor.SchemeColor = 41     End If     Next myCom End Sub

Поймите, что макрос изменит цвет, если текст «Mikki»

появляется в любом месте текста комментария. Небольшая вариация макроса проверяет атрибут автора комментария, и если он установлен на «Mikki», он вносит изменения:

Sub ColorMyComments2()

Dim myCom As Comment

For Each myCom In ActiveSheet.Comments     If myCom.Author = "Mikki" Then         myCom.Shape.Fill.ForeColor.SchemeColor = 41     End If     Next myCom End Sub

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

Этот совет (12567) применим к Microsoft Excel 2007, 2010 и 2013.