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

Вход

Регистрация

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

 

= Мир MS Excel/В зависимости от выбора месяца скрывать отображать данные . - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » В зависимости от выбора месяца скрывать отображать данные . (Макросы/Sub)
В зависимости от выбора месяца скрывать отображать данные .
parovoznik Дата: Четверг, 10.06.2021, 14:17 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 401
Репутация: 26 ±
Замечаний: 0% ±

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

Автор - parovoznik
Дата добавления - 10.06.2021 в 14:17
Апострофф Дата: Четверг, 10.06.2021, 15:40 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 109 ±
Замечаний: 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]


Сообщение отредактировал Апострофф - Четверг, 10.06.2021, 20:23
 
Ответить
СообщениеТак ли?
[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]

Автор - Апострофф
Дата добавления - 10.06.2021 в 15:40
Апострофф Дата: Четверг, 10.06.2021, 15:46 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 109 ±
Замечаний: 0% ±

Excel 1997
Цитата Апострофф, 10.06.2021 в 15:40, в сообщении № 2 ()
For i = 1 To 12: Me.ComboBox1.AddItem Format(DateSerial(1, i, 1), "MMMM"): Next

я записал бы этого монстра так -
[vba]
Код
For i = 1 To 12: ComboBox1.AddItem MonthName(i): Next
[/vba]
 
Ответить
Сообщение
Цитата Апострофф, 10.06.2021 в 15:40, в сообщении № 2 ()
For i = 1 To 12: Me.ComboBox1.AddItem Format(DateSerial(1, i, 1), "MMMM"): Next

я записал бы этого монстра так -
[vba]
Код
For i = 1 To 12: ComboBox1.AddItem MonthName(i): Next
[/vba]

Автор - Апострофф
Дата добавления - 10.06.2021 в 15:46
parovoznik Дата: Четверг, 10.06.2021, 16:50 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 401
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Апострофф, спасибо протестировал. Работает.Благодарю. :)


Сообщение отредактировал parovoznik - Пятница, 11.06.2021, 13:46
 
Ответить
СообщениеАпострофф, спасибо протестировал. Работает.Благодарю. :)

Автор - parovoznik
Дата добавления - 10.06.2021 в 16:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » В зависимости от выбора месяца скрывать отображать данные . (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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