Sub CountOfCells()
MsgBox (Range(«A1:A20, D1:D20»).Count)
End Sub
После выполнения данного макроса на экране отобразится окно, в котором будет указано общее количество ячеек в диапазонах А1:А20 и D1:D20.
Подсчет именованных объектов
С помощью небольшого макроса можно быстро подсчитать количество именованных ячеек, диапазонов и формул в текущей рабочей книге. Код данного макроса выглядит следующим образом (листинг 3.29).
Sub CountNames()
Dim intNamesCount As Integer
' Получаем и отображаем количество имен в активной _
рабочей книге
intNamesCount = ActiveWorkbook.Names.Count
If intNamesCount = 0 Then
MsgBox «Имен нет»
Else
MsgBox "Имен: " & intNamesCount & « шт.»
End If
End Sub
Результат выполнения этого макроса выводится в информационном окне, которое показано на рис. 3.8.
Рис. 3.8. Подсчет количества имен
При необходимости можно подсчитать количество имен рабочей книги. Соответствующий макрос выглядит так (листинг 3.30).
Sub CountNames()
Dim intNamesCount As Integer
' Получаем и отображаем количество имен на активном _
листе рабочей книги
intNamesCount = Names.Count
If intNamesCount = 0 Then
MsgBox «Имен нет»
Else
MsgBox "Имен: " & intNamesCount & « шт.»
End If
End Sub
Быстрый поиск курсора
Для быстрого поиска активной ячейки можно воспользоваться таким макросом (листинг 3.31).
Sub FindActiveCell()
' Выводим адрес активной ячейки
MsgBox ActiveCell.Address
End Sub
Результат поиска выводится в информационном окне, пример которого представлен на рис. 3.9.
Рис. 3.9. Адрес активной ячейки
Чтобы убрать значение абсолютной ссылки на строку и столбец, можно использовать следующий код:
MsgBox ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Поиск начала и окончания диапазона, содержащего данные
Аналогичным образом можно быстро определить диапазон листа, в котором содержатся какие-либо данные. Этот трюк удобно применять, например, когда данные разбросаны по всему листу и точно не известно, где они начинаются и где заканчиваются (а вручную просматривать весь лист долго и неудобно). Для решения подобной задачи можно применить следующий макрос (листинг 3.32).
Sub FindSheetData()
' Выводим диапазон используемых ячеек листа
MsgBox ActiveSheet.UsedRange.Address
End Sub
В результате выполнения макроса на экране появится окно, аналогичное изображенному на рис. 3.9, в котором будет указан соответствующий диапазон рабочего листа.
Если же необходимо определить не весь диапазон с данными, а найти лишь его начало, то можно воспользоваться макросом, код которого приведен в листинге 3.33.
Sub FindStartOfData()
With ActiveSheet
' Заносим текст в ячейку, являющуюся левой верхней _
ячейкой используемого диапазона
.Cells(.UsedRange.Row, .UsedRange.Column).Value = _
«Начало данных»
End With
End Sub
После выполнения данного макроса в левой верхней ячейке диапазона, содержащего данные, отобразится текст Начало данных (этот текст можно изменять по своему усмотрению). Подобный трюк удобно применять при работе с большими объемами данных, когда они разбросаны по всему рабочему листу и трудно определить точное место их начала (особенно если первые данные диапазона находятся, например, в ячейке Т350).