Средства разработки приложений


Подсчет комментариев на рабочем листе


Q:  Как узнать есть ли хоть один Notes (комментарий) в рабочем листе,  кроме как перебором по всем ячейкам? . Без этого  не работает:

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

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




Начало  Назад  Вперед



Книжный магазин