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

Вход

Регистрация

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

 

= Мир MS Excel/Нарастающий итог за выбранный период - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нарастающий итог за выбранный период (Макросы/Sub)
Нарастающий итог за выбранный период
RomanOil Дата: Пятница, 17.01.2025, 10:35 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Добрый день всем!
Имеется таблица с небольшим макросом (подсмотрел у кого то на сайте). Макрос суммирует нарастающим итогом по месяц выпадающим из списка.
При этом макрос скрывает отображает только данные по выбранному месяцу и итоговые столбцы с нарастающей суммой.
Теперь необходимо его немного модернизировать. Нужно сделать нарастающий итог по выбранному диапазону месяцев.
Для понимания - лимитировать период суммирования не с января, а к примеру с февраля по июнь, а отображались только итоговые столбцы. Период задаётся в двух ячейках (типа А1= номер или название первого месяца, B1=номер или название последнего месяца).
При этом старый макрос желательно не удалять т.к. могут пользоваться разные люди. Видимо нужно сделать так что один макрос при срабатывании отменяет другой.
К сообщению приложен файл: kniga2_xlsx.xlsm (27.7 Kb)
 
Ответить
СообщениеДобрый день всем!
Имеется таблица с небольшим макросом (подсмотрел у кого то на сайте). Макрос суммирует нарастающим итогом по месяц выпадающим из списка.
При этом макрос скрывает отображает только данные по выбранному месяцу и итоговые столбцы с нарастающей суммой.
Теперь необходимо его немного модернизировать. Нужно сделать нарастающий итог по выбранному диапазону месяцев.
Для понимания - лимитировать период суммирования не с января, а к примеру с февраля по июнь, а отображались только итоговые столбцы. Период задаётся в двух ячейках (типа А1= номер или название первого месяца, B1=номер или название последнего месяца).
При этом старый макрос желательно не удалять т.к. могут пользоваться разные люди. Видимо нужно сделать так что один макрос при срабатывании отменяет другой.
Автор - RomanOil
Дата добавления - 17.01.2025 в 10:35
doober Дата: Пятница, 17.01.2025, 11:00 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 986
Репутация: 340 ±
Замечаний: 0% ±

Excel 2010
Добрый.Держите.
К сообщению приложен файл: 2792674.xlsm (30.3 Kb)

 
Ответить
СообщениеДобрый.Держите.
Автор - doober
Дата добавления - 17.01.2025 в 11:00
RomanOil Дата: Пятница, 17.01.2025, 11:24 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

doober, Спасибо! А можно дополнить чтобы макрос скрывал при этом столбцы в выбранном диапазоне и оставлял только столбцы BM-BQ?
 
Ответить
Сообщениеdoober, Спасибо! А можно дополнить чтобы макрос скрывал при этом столбцы в выбранном диапазоне и оставлял только столбцы BM-BQ?
Автор - RomanOil
Дата добавления - 17.01.2025 в 11:24
doober Дата: Пятница, 17.01.2025, 13:15 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 986
Репутация: 340 ±
Замечаний: 0% ±

Excel 2010
Замените[vba]
Код
Sub otob_stolb2()
    Application.ScreenUpdating = False
    Columns("E:BL").EntireColumn.Hidden = False
    KL = Range("BS3") * 5 + 0
    KL1 = Range("BT3") * 5 + 0
    Range(Columns(KL), Columns(KL1 + 4)).EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub
[/vba]

 
Ответить
СообщениеЗамените[vba]
Код
Sub otob_stolb2()
    Application.ScreenUpdating = False
    Columns("E:BL").EntireColumn.Hidden = False
    KL = Range("BS3") * 5 + 0
    KL1 = Range("BT3") * 5 + 0
    Range(Columns(KL), Columns(KL1 + 4)).EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - doober
Дата добавления - 17.01.2025 в 13:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нарастающий итог за выбранный период (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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