В зависимости от выбора месяца скрывать отображать данные .

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

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

В зависимости от выбора месяца скрывать отображать данные . (Макросы/Sub)

parovoznik

Дата: Четверг, 10.06.2021, 14:17 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 443

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

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

Excel 2013

Добрый день.
Имеется форма с комбобоксом . В нем отображаются месяца. Нужно , что бы при выборе месяца в комбике на листе отображались данные за этот месяц.
Например : выбран месяц-МАЙ отображалист строки 6,7 .
При инициализации формы должен отображаться ТЕКУЩИЙ МЕСЯЦ.
Вариант с фильтрами я знаю.

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

Ответить

Апострофф

Дата: Четверг, 10.06.2021, 15:40 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 459

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

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

Excel 1997

Так ли?
[vba]

Код

Private Sub ComboBox1_Change()
'Нужно , что бы при выборе месяца в комбике на листе _
отображались данные за этот месяц.
'For r = 3 To 9 'Cells(Rows.Count, 1).End(xlUp).Row - надо повспоминать, как искать реальную последнюю занятую строку?

'Старый дедовский способ поиска последнего заказа самый надёжный :hands:
For r = 3 To Rows.Count 'Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1) = "" Then Exit For

Rows(r).Hidden = Month(Cells(r, 2)) <> ComboBox1.ListIndex + 1
Next r
End Sub

Private Sub UserForm_Initialize()
For i = 1 To 12: Me.ComboBox1.AddItem Format(DateSerial(1, i, 1), "MMMM"): Next

' как прописать код, что бы при инициализации отображался текущий месяц в комбобоксе
' "ТЕКСТ(СЕГОДНЯ();""ММММ"""
'ТАК!?
ComboBox1.ListIndex = Month(Date) - 1
End Sub

[/vba]