Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Получение среднего значения для разности видимых ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получение среднего значения для разности видимых ячеек (Макросы/Sub)
Получение среднего значения для разности видимых ячеек
oleg60 Дата: Четверг, 28.04.2022, 13:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - oleg60
Дата добавления - 28.04.2022 в 13:28
jun Дата: Пятница, 29.04.2022, 13:43 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 18 ±
Замечаний: 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
 
Ответить
Сообщение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]
Разницу выводит в третий столбец

Автор - jun
Дата добавления - 29.04.2022 в 13:43
oleg60 Дата: Среда, 04.05.2022, 15:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день, jun, спасибо за помощь.

Главное, понял из Вашей подсказки, как учесть только видимые строки. А дальше подстроил под свою задачу.
Спасибо.
К сообщению приложен файл: 7602479.xlsm(15.8 Kb)


Сообщение отредактировал oleg60 - Четверг, 05.05.2022, 08:10
 
Ответить
СообщениеДобрый день, jun, спасибо за помощь.

Главное, понял из Вашей подсказки, как учесть только видимые строки. А дальше подстроил под свою задачу.
Спасибо.

Автор - oleg60
Дата добавления - 04.05.2022 в 15:23
jun Дата: Среда, 04.05.2022, 16:00 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 18 ±
Замечаний: 0% ±

oleg60, посмотрите файл, еще вариант добавил
К сообщению приложен файл: 1324726.xlsm(19.5 Kb)
 
Ответить
Сообщениеoleg60, посмотрите файл, еще вариант добавил

Автор - jun
Дата добавления - 04.05.2022 в 16:00
oleg60 Дата: Четверг, 05.05.2022, 08:17 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
jun, спасибо.
Первый вариант мне как-то больше по душе (покороче :) ).
Второй - возьму на вооружение.
 
Ответить
Сообщениеjun, спасибо.
Первый вариант мне как-то больше по душе (покороче :) ).
Второй - возьму на вооружение.

Автор - oleg60
Дата добавления - 05.05.2022 в 08:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получение среднего значения для разности видимых ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!