Книга: Excel. Трюки и эффекты
Подсчет примечаний
Подсчет примечаний
По умолчанию ячейки, содержащие примечания, помечаются соответствующим индикатором, который расположен в правом верхнем углу ячейки (обычно это красный треугольник). Однако если примечание скрыто и ячейка, к которой оно создано, ничем не отличается от остальных ячеек рабочего листа, то, чтобы определить, имеются ли на текущем рабочем листе примечания, и подсчитать их количество, можно написать и выполнить следующий макрос (листинг 3.34).
Листинг 3.34. Подсчет примечаний
Sub CountOfComment()
Dim intCommentCount As Integer
' Получение и отображение количества примечаний _
на текущем листе
intCommentCount = ActiveSheet.Comments.Count
If intCommentCount = 0 Then
MsgBox «Примечаний нет»
Else
MsgBox "Примечаний: " & intCommentCount & « шт.»
End If
End Sub
В результате применения макроса на экране отобразится окно, аналогичное изображенному на рис. 3.9, в котором будет показано количество содержащихся на текущем листе примечаний.
Оглавление книги
- 4. Подсчет и пересчет
- Ошибки при подсчете СТП
- Подсчет количества полных лет
- Подсчет количества видимых ячеек в диапазоне
- Подсчет ссылок
- ПРОГPAMMA ПОДСЧЕТА СЛОВ
- Некоторые простые подсчеты, касающиеся размеров памяти
- 1.5.3 Подсчет строк
- Расшифровка бухгалтерских данных с помощью примечаний
- 8.5. Подсчет трафика. Программа MRTG
- Подсчет баллов
- 1.5.4 Подсчет слов