特定评论的搜索范围

Question

我正在尝试在所有带注释的单元格中搜索特定文本的范围。然后更改包含带有指定文本的注释的单元格的背景颜色。

有帮助吗？我被困住了：（

Answer 1

以下用户定义的函数将返回注释文本。将其放在模块中。

Public Function GetComment(Optional rng As Range)
  If rng Is Nothing Then
    Set rng = Application.Caller
  End If
  If rng.Comment Is Nothing Then
    GetComment = ""
  Else
    GetComment = rng.Comment.Text
  End If
End Function

然后使用公式=FIND("your search text",GetComment())>0创建条件格式规则。