Конференция VBStreets

**Calvin** » 31.03.2008 (Пн) 19:51

Здраствуйте уважаемые.....подскажите как проверить наличие примечания в ячейке?

**alex_gearbox** » 31.03.2008 (Пн) 20:15

Свойство Comment объекта Range.

Код: Выделить всё: If Range("A1").Comment Is Nothing Then ' комментарий ЕСТЬ Else ' комментария НЕТ End If

**iGrok** » 01.04.2008 (Вт) 11:41

Может, наоборот?

**alex_gearbox** » 01.04.2008 (Вт) 12:26

Извиняюсь, действительно наоборот.
Правильно будет:

Код: Выделить всё: If Range("A1").Comment Is Nothing Then ' комментария НЕТ Else ' комментарий ЕСТЬ End If

или же

Код: Выделить всё: If Not Range("A1").Comment Is Nothing Then ' комментарий ЕСТЬ Else ' комментария НЕТ End If

**Viper** » 01.04.2008 (Вт) 14:53

Второй вариант явно избыточен

Проверить наличие примечания в ячейке