Редактирование данных.
Чтобы выполнить редактирование данных, нужно нажать кнопку Изменить. На лист Excel выводится форма UserForm1 с заголовком Редактирование. Перед показом формы происходит занесение данных с листа Excel в форму UserForm1.
Событийная процедура кнопки Изменить.
Private Sub CommandButton1_Click()
'Процедура обработки,при нажатии кнопки "Изменить"
Load UserForm1 ‘Загрузить форму UserForm1
i = ActiveCell.Row
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
UserForm1.Show ‘Показать форму UserForm1
End Sub
Форма UserForm1.
На диалоговой форме UserForm1 разместить: надписи код, наименование, кол-во, цена; поля TextBox1, TextBox2, TextBox3, TextBox4; счетчик SpinButton1; кнопку CommandButton1 с заголовком Записать и кнопку CommandButton2 с заголовком Добавить.
Используя компонент Счетчик, найти нужную запись, выполнить редактирование данных и нажать кнопку Записать. Все изменения отразятся в таблице
Событийная процедура кнопки Записать.
Private Sub CommandButton1_Click()
Dim m As Integer
m = ActiveCell.Row
‘ Данные из полей записываются в таблицу
Worksheets(1).Cells(m, 1).Value = TextBox1.Text
Worksheets(1).Cells(m, 2).Value = TextBox2.Text
Worksheets(1).Cells(m, 3).Value = TextBox3.Text
Worksheets(1).Cells(m, 4).Value = TextBox4.Text
‘Подсчет числа кондитерских изделий
k = UserForm1.EndFind – 3
‘Вывод вычисленного значения на экран
Worksheets(1).TextBox1.Text = Str(k) & " Обьектов"
End Sub
Если необходимо ввести новые данные в таблицу, нужно нажать кнопку Добавить. На лист Excel выводится форма UserForm1 с пустыми полями. Ввести данные и нажать кнопку Записать.
|
|
|
Событийная процедура кнопки Добавить.
Private Sub CommandButton2_Click()
‘Поиск первой свободной строки в таблице
Worksheets(1).Rows(UserForm1.EndFind).Select
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
End Sub
Процедуры для компонента Счетчик.
Дата добавления: 2015-12-17; просмотров: 18; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!