Друзья, помогите разобраться, пожалуйста! Есть такой макрос, найденный на просторах интернета: [vba]
Код
Function SumIntervalRows(WorkRng As Range, interval As Integer) As Double 'Updateby Extendoffice Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For i = interval To UBound(arr, 1) Step interval total = total + arr(i, 1) Next SumIntervalRows = total End Function
[/vba] [vba]
Код
Function SumIntervalCols(WorkRng As Range, interval As Integer) As Double Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For j = interval To UBound(arr, 2) Step interval total = total + arr(1, j) Next SumIntervalCols = total End Function
[/vba] К сожалению, он не работает почему-то. Мне очень нужен макрос, где можно указать, например, считать каждую вторую ячейку в столбце. Помогите, очень прошу.
Друзья, помогите разобраться, пожалуйста! Есть такой макрос, найденный на просторах интернета: [vba]
Код
Function SumIntervalRows(WorkRng As Range, interval As Integer) As Double 'Updateby Extendoffice Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For i = interval To UBound(arr, 1) Step interval total = total + arr(i, 1) Next SumIntervalRows = total End Function
[/vba] [vba]
Код
Function SumIntervalCols(WorkRng As Range, interval As Integer) As Double Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For j = interval To UBound(arr, 2) Step interval total = total + arr(1, j) Next SumIntervalCols = total End Function
[/vba] К сожалению, он не работает почему-то. Мне очень нужен макрос, где можно указать, например, считать каждую вторую ячейку в столбце. Помогите, очень прошу.ZaraZa
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
