Mikki正在寻找一种方法来更改工作表注释的默认颜色，以便她可以将自己的注释与其他人的注释区分开。

当您将注释添加到工作表中的单元格时，Excel允许您更改用于该注释的格式。创建评论后，请按照下列步骤操作：

。右键单击该单元格，然后从上下文菜单中选择“编辑注释”。

这会将插入点放在注释中，您可以在其中键入更多信息（如果需要）。

。右键单击注释的边框，然后从出现的“上下文”菜单中选择“设置注释格式”。 Excel将显示“格式注释”对话框。

。使用对话框中的控件来更改您希望注释的显示方式。

。单击确定。

这些步骤都很好，但是它们仅影响当前注释。如果要为以后添加的任何注释设置默认值，则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”

，宏将更改颜色。出现在注释文本内的任何位置。宏的微小变化将检查注释的Author属性，如果将其设置为“ 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。