Comments count

9 views
Skip to first unread message

Andrew Kirienko

unread,
Sep 7, 1997, 3:00:00 AM9/7/97
to

Добpого вpемени суток, уважаемый Yuri!

Понедельник 21 Июля 1997, Yuri Veltischev ─── All о SpecialCells:

YV> Hе подскажет ли All как узнать есть ли хоть один Notes в рабочем листе
YV> (кроме как перебором по всем ячейкам). Без этого не работает:
YV> Cells.SpecialCells(xlNotes).Select

В Excel'97 твоя проблема может быть решена вот как:

'
' Возвращает TRUE, если на активном рабочем листе имеется хотя бы
' одна ячейка с коментарием, иначе возвращает FALSE
'
Public Function IsCommentsPresent() As Boolean
IsCommentsPresent = ( ActiveSheet.Comments.Count <> 0 )
End Function

С уважением,
Andrew Kirienko.

--- <en...@ptt.ru>

Reply all
Reply to author
Forward
0 new messages