Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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




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


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия