Здравствуйте, есть код, в него как-то можно добавить список строк, где могут быть примечания?:
Код
If Not Columns("F").Comment Is Nothing Then
MsgBox "Ячейка содержит примечание строки № & И ДАЛЕЕ НОМЕРА СТРОК"
Else
MsgBox "Ячейка не содержит примечание"
End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F:F")) Is Nothing Then
For Each cell In Range("F1:F100")
If cell.Comment Is Nothing Then
Else
x = x & cell.Row & ", "
End If
Next
x = Left(x, Len(x) - 2)
MsgBox "Ячейка содержит примечание строки № " & x
End If
End Sub
Ой, а мне не надо выделять ничего... предпологается, что этот макрос будет вызываться другим макросом...я вроди не говорил ничего про выделение... извените!
Sub t()
For Each cell In Range("F1:F100")
If cell.Comment Is Nothing Then
Else
x = x & cell.Row & ", "
End If
Next
x = Left(x, Len(x) - 2)
MsgBox "Ячейка содержит примечание строки № " & x
End Sub