Редактирование данных.

Чтобы выполнить редактирование данных, нужно нажать кнопку Изменить. На лист 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

 

 

Процедуры для компонента Счетчик.