Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=581113 Tue, 18 Jan 2005 08:25:42 +0000 Excel: Наличие комментария в ячейке https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=581113 Нормально работает не только с активной ячейкой, а с любой.
    If Range("A1").Comment Is Nothing Then ...


Добавлено
Я, почему-то не додумался проверять просто свойство "Comment", а сразу лез к его подсвойству "Text"... Типа так:
    If Range("A1").Comment.Text <> "" Then ...

Естественно оно падало...]]> Chow VB for Application https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=580458 Mon, 17 Jan 2005 15:36:45 +0000 Excel: Наличие комментария в ячейке https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=580458
    ' Function IsCommentsPresent
    ' Возвращает TRUE, если на активном рабочем листе имеется хотя бы
    ' одна ячейка с комментарием, иначе возвращает FALSE
    '
    Public Function IsCommentsPresent() As Boolean
    IsCommentsPresent = ( ActiveSheet.Comments.Count <> 0 )
    End Function


Ща поищу насчёт наличия в конкретной ячейке...

Добавлено
Хм вроде вот, но только у активной ячейки...
    If Not ActiveCell.Comment Is Nothing Then ...
]]> SpawnProduction VB for Application https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=580259 Mon, 17 Jan 2005 13:25:52 +0000 Excel: Наличие комментария в ячейке https://forum.sources.ru/index.php?showtopic=79794&view=findpost&p=580259
    Range("C9").AddComment("бла-бла-бла")


Изменить комментарии:
    Range("C9").Comment.Text("бла-бла-бла", 0 , true)


Проблема в чем:
Есть некий текст. Его надо добавить как комментарий к ячейке, где комментария еще нет, или добавить этот текст к существующему комментарию ячейки через запятую.
Таким образом: как проверить есть ли комментарий в ячейке?]]> Chow VB for Application