Лекция: Поиск информации

Чтобы осуществить поиск № поезда по заданному № поезда или станции назначения, нужно нажать кнопку Поиск. На экран выводится форма UserForm2 с заголовком Поиск.

Событийная процедура кнопки Поиск.

Private Sub CommandButton2_Click()

Load UserForm2 ‘Загрузить форму UserForm2

UserForm2.Show ‘Показать форму UserForm2

End Sub

Форма UserForm2

На диалоговой форме UserForm2 разместить: страницы Page1, Page2. На странице Page1 надпись Label1 с заголовком Введите № поезда, поле TextBox1, кнопку CommandButton1 с заголовком Найти. На странице Page2 надпись Label2 с заголовкомВведите станцию назначения, поле TextBox2, кнопку CommandButton2 с заголовком Найти.

Выбрать страницу № поезда (Станцию назначения), ввести код (Станцию назначения) и нажать кнопку Найти. Если номер позда с таким № поезда найден, то соответствующая строка выделяется. В противном случае выводится сообщение “Не найдено”.

Поиск информации по№ поезда.

Событийная процедура кнопки Найти.

Private Sub CommandButton1_Click()

Dim j As Integer

Dim finder As String

On Error GoTo label

i = 2

finder = UserForm2.TextBox1.Text

'Поиск строки с заданным номером поезда

While finder <> Worksheets(1).Rows(i).Cells(1).Formula

i = i + 1

Wend

'Выделение строки

Worksheets(1).Rows(i).Select

UserForm2.Hide 'Скрыть форму UserForm2

Exit Sub

label:

MsgBox «Не найдено»

End Sub

Поиск информации постанции назначения.

Private Sub CommandButton2_Click()

Dim j As Integer

Dim finder As String

On Error GoTo label

i = 2

finder = UCase(UserForm2.TextBox2.Text)

'Поиск строки с заданной станцией назначения

While finder <> UCase(Worksheets(1).Rows(i).Cells(3).Formula)

i = i + 1

Wend

'Выделение строки

Worksheets(1).Rows(i).Select

UserForm2.Hide

Exit Sub

label:

MsgBox «Не найдено»

End Sub