На этом шаге мы рассмотрим назначение и содержание этого модуля.

Модуль UserForm4

Нажатие кнопки Фильтрация диалогового окна Фильтрация (рисунок 1) активизирует процедуру CommandButton1_Click, которая производит фильтрацию данных из базы данных в зависимости от выбранного критерия фильтрации в группе Путевка.

Рис.1. Диалоговое окно Фильтрация
Нажатие кнопки Отмена активизирует процедуру CommandButton2_Сlick, которая закрывает диалоговое окно Фильтрация.

Приведем текст этого модуля.

Private Sub CommandButton1_Click()
  ' Процедура фильтрации по критерию
  Dim Flag As String
  ' Flag устанавливает критерий фильтрации по третьему столбцу

  Sheets("БазаДанных").Rows(1).Select
  Selection.AutoFilter
  With UserForm4
    If .OptionButton1.Value = True Then Flag = "Да"
    If .OptionButton2.Value = True Then Flag = "Нет"
  End With

  ' Считывание критерия из диалогового окна для фильтрации
  Sheets("БазаДанных").Rows(1).Select
  Selection.AutoFilter

  ' Фильтрация по критерию
  Selection.AutoFilter Field:=5, Criteria1:=Flag

End Sub

Private Sub CommandButton2_Click()
  ' Закрытие диалогового окна Фильтрация
  UserForm4.Hide
End Sub

Полный текст этого примера можно взять здесь.

На следующем шаге мы продолжим разработку приложений.

Предыдущий шаг Содержание Следующий шаг