Как в VBA определить, содержит ли ячейка примечание?

Maksymromaniuk Пользователь Сообщений: 66 Регистрация: 22.02.2013	#1 13.03.2013 00:34:57 Добрый вечер! Подскажите, пожалуйста, как программно определить, содержит ли ячейка примечание?

iba2004

Пользователь

Сообщений: 1034 Регистрация: 22.12.2012

13.03.2013 00:52:05

М.б. это кривова-то, но я делал так:

Код
If Cells(1, 1).Comment Is Nothing Then Else ........... End If

И после else вписываю то, что мне нужно, если ячейка с комментарием.

Потыркался малёк и вот такой вариант родился:

Код
If Not Cells(1, 1).Comment Is Nothing Then ............ End If

Изменено: iba2004 - 13.03.2013 01:35:51

Hugo

Пользователь

Сообщений: 26336 Регистрация: 22.12.2012

13.03.2013 00:52:52

Вариант:

Код
Sub tt() Dim r As Range Set r = Intersect([a1], ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)) If Not r Is Nothing Then MsgBox "OK" Else MsgBox "NO" End If End Sub

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

13.03.2013 07:01:46

Игорь, в случае отсутствия комментов макрос вылетит с ошибкой. Лучше:

Код
Sub tt() Dim r As Range On Error Resume Next Set r = Intersect([a1], ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)) If Err Then Err.Clear: MsgBox "NO": Exit Sub MsgBox "Yes!" End Sub

Я сам - дурнее всякого примера! ...

Hugo

Пользователь

Сообщений: 26336 Регистрация: 22.12.2012

13.03.2013 10:41:30

Тоже мимо :)
Придём к консенсусу:

Код

Sub tt()
    Dim r As Range
    On Error Resume Next
    Set r = Intersect([a1], ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments))
    If Err Then Err.Clear: MsgBox "Комментов нет нигде вообще совсем!": Exit Sub
     If Not r Is Nothing Then
        MsgBox "OK"
    Else
        MsgBox "NO"
    End If
End Sub

Maksymromaniuk Пользователь Сообщений: 66 Регистрация: 22.02.2013	#6 17.03.2013 16:49:09 спасибо всем за множество вариантов)

Читают тему