Получение среднего значения для разности видимых ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Получение среднего значения для разности видимых ячеек (Макросы/Sub)

oleg60

Дата: Четверг, 28.04.2022, 13:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте.
Прошу помочь с решением вопроса:
Необходимо вычислить среднее значение разности двух столбцов (В-А) только для видимого (отфильтрованного) диапазона.
Понимаю, что нужно использовать SpecialCells(xlCellTypeVisible) и цикл по видимым ячейкам. Но возникает ошибка типа переменной.
Файл с вариантом кода прикреплен

К сообщению приложен файл: 8452490.xlsm (15.0 Kb)

Ответить

jun

Дата: Пятница, 29.04.2022, 13:43 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 43 ±

Замечаний: 0% ±

oleg60, добрый день!
Например, можно так:
[vba]

Код

Sub Макрос1()
With ActiveSheet
    For i = 2 To .UsedRange.Rows.Count
        If Not .Cells(i, 1).EntireRow.Hidden Then
            .Cells(i, 3).Value = (.Cells(i, 2).Value - .Cells(i, 1).Value) / 29
        End If
    Next i
End With
End Sub

[/vba]
Разницу выводит в третий столбец

К сообщению приложен файл: 4556647.xlsm (15.3 Kb)

Сообщение отредактировал jun - Пятница, 29.04.2022, 13:45