Диапазон поиска для конкретных комментариев

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.