Перемещение на строку вниз
Private Sub SpinButton1_SpinDown()
i = ActiveCell.Row + 1
If Worksheets(1).Rows(i).Cells(1).Value <> "" Then
Worksheets(1).Rows(ActiveCell.Row + 1).Select
UserForm1.TextBox1.Text = Worksheets(1).Rows(i).Cells(1).Value
UserForm1.TextBox2.Text = Worksheets(1).Rows(i).Cells(2).Value
UserForm1.TextBox3.Text = Worksheets(1).Rows(i).Cells(3).Value
UserForm1.TextBox4.Text = Worksheets(1).Rows(i).Cells(4).Value
End If
End Sub
Перемещение на строку вверх.
Private Sub SpinButton1_SpinUp()
i = ActiveCell.Row - 1
If i > 2 Then
Worksheets(1).Rows(ActiveCell.Row - 1).Select
UserForm1.TextBox1.Text = Worksheets(1).Rows(i).Cells(1).Value
UserForm1.TextBox2.Text = Worksheets(1).Rows(i).Cells(2).Value
UserForm1.TextBox3.Text = Worksheets(1).Rows(i).Cells(3).Value
UserForm1.TextBox4.Text = Worksheets(1).Rows(i).Cells(4).Value
End If
End Sub
Функция поиска первой свободной строки в таблице.
Public Function EndFind()
Dim i As Byte
i = 2
While Worksheets(1).Rows(i).Cells(2).Formula > ""
I = i + 1
Wend
EndFind = i
End Function
Поиск информации.
Чтобы осуществить поиск кондитерского изделия по заданному коду или наименованию, нужно нажать кнопку Поиск. На экран выводится форма 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 с заголовком Найти.
Выбрать страницу Код (Наименование), ввести код (наименование) и нажать кнопку Найти. Если кондитерское изделие с таким кодом найдено, то соответствующая строка выделяется. В противном случае выводится сообщение “ Не найдено ”.
Дата добавления: 2015-12-17; просмотров: 24; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!