Set rgCells = Cells(intRow, 1)
Else
' Добавление очередной ячейки в объединение
Set rgCells = Union(rgCells, Cells(intRow, 1))
End If
Next
' Выделение всех ячеек в объединении
rgCells.Select
End Sub
В результате выполнения данного макроса будет выделена каждая третья ячейка, начиная с 3 и заканчивая 300, в столбце А.
Точно такой же результат (быстрое выделение ячеек с 3 по 300 в столбце А) можно получить, применив такой макрос (листинг 3.24).
Sub IntervalCellSelect()
Dim intFirstRow As Integer ' Первая строка для выделения
Dim intLastRow As Integer ' Последняя строка для выделения
Dim rgCells As Range ' Объединение выделяемых ячеек
Dim cell As Range ' Текущая ячейка
Dim intRow As Integer
intFirstRow = 3
intLastRow = 300
' Формирование объединения ячеек в столбце "B" от строки _
intFirstRow до строки intLastRow с шагом 3
For intRow = intFirstRow To intLastRow Step 3
Set cell = Cells(intRow, 1)
Set rgCells = Union(cell, _
IIf(intRow = intFirstRow, cell, rgCells))
Next
' Выделение всех ячеек в объединении
rgCells.Select
End Sub
Например, если есть таблица, в которой отражается выручка за каждый рабочий день недели (с понедельника по пятницу), а в каждой шестой ячейке – итоговая выручка за неделю, то с помощью этого трюка можно быстро выделить и вывести на печать итоговые данные о выручке за каждую неделю.
Для выделения различных диапазонов и ячеек можно применить следующий макрос (листинг 3.25).
Sub SelectRange()
Range(«D3:D10, A3:A10 , F3»).Select
End Sub
В результате выполнения данного макроса будут выделены диапазоны D3:D10, АЗ:А10 и ячейка F3.
Определение количества ячеек в диапазоне и суммы их значений
Применив простой трюк, можно быстро сложить данные из указанного диапазона ячеек. В листинге 3.26 приведен пример макроса, выполнение которого позволяет решить эту задачу.
Sub CalculateSum()
Dim i As Integer
Dim intSum As Integer
' Расчет суммы ячеек столбца "A" (с первой по пятую)
For i = 1 To 5
intSum = intSum + Cells(i, 1)
Next
MsgBox "Сумма ячеек: " & intSum
End Sub
В подобном случае будет рассчитана сумма диапазона ячеек с 1 по 5, которые расположены в столбце А. Результат работы данного макроса представлен на рис. 3.7.
При выполнении этой операции следует учитывать, что если в какой-либо ячейке указанного диапазона будут нечисловые данные, то на экране отобразится сообщение об ошибке. В этом случае целесообразно применить следующий макрос (листинг 3.27).
Рис. 3.7. Рассчитанная сумма диапазона ячеек
Sub CalculateSum()
Dim i As Integer
Dim intSum As Integer
' Расчет суммы ячеек столбца "A" (с первой по пятую)
For i = 1 To 5
If IsNumeric(Cells(i, 1)) Then
intSum = intSum + Cells(i, 1)
End If
Next
MsgBox "Сумма ячеек: " & intSum
End Sub
После запуска данного макроса будет рассчитана сумма диапазона ячеек с 1 по 5, расположенных в столбце А, при этом ячейки с нечисловыми значениями будут проигнорированы.
При необходимости можно подсчитать количество ячеек, которые находятся в разных выделенных диапазонах. В листинге 3.28 показан пример макроса, который позволяет это сделать.