Excel. Трюки и эффекты | страница 103
Подсчет именованных объектов
С помощью небольшого макроса можно быстро подсчитать количество именованных ячеек, диапазонов и формул в текущей рабочей книге. Код данного макроса выглядит следующим образом (листинг 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.
