Процедуры, принадлежащие форме UserForm1.
Событийная процедура кнопки Строки.
Private Sub CommandButton1_Click()
‘ Перестановка строк
Dim A(1 To 6, 1 To 6) As Integer, i, j, f As Integer
For I = 1 To 6
For j = 1 To 6
A(i, j) = Cells(i+1, j)
Next j
Next i
For I = 1 To 6 Step 2
For j = 1 To 6
f = A(i, j)
A(i, j) = A(i + 1, j)
A(i + 1, j) = f
Next j
Next i
For i=1 To 6
For j=1 To 6
Cells(i+11, j) = A(i, j)
Next j
Next i
End Sub
Событийная процедура кнопки Столбцы.
Private Sub CommandButton1_Click()
‘ Перестановка столбцов
Dim A(1 To 6, 1 To 6) As Integer, i, j, f As Integer
For I = 1 To 6
For j = 1 To 6
A(i, j) = Cells(i+1, j)
Next j
Next i
For j = 1 To 6 Step 2
For i = 1 To 6
f = A(i, j)
A(i, j) = A(i, j + 1)
A(i, j + 1) = f
Next i
Next j
For i=1 To 6
For j=1 To 6
Cells(i+20, j) = A(i, j)
Next j
Next i
End Sub
Событийная процедура кнопки Ok.
Private Sub CommandButton1_Click()
‘ Скрыть форму UserForm1
UserForm1.Hide
End Sub
Пример выполнения задания 2.
Задача.
Разработать программу, ведущую учет кондитерских изделий в магазине. Данные о кондитерских изделиях (код, наименование, цена, количество) должны храниться в таблице Excel. В программе реализовать функции редактирования и поиска информации.
Создать таблицу с данными о кондитерских изделиях:
| код | наименование | кол-во | цена |
| конф."Белочка" | |||
| Конф."Ночка" | |||
| торт "Причуда" | |||
| карамель"Слива" | |||
| Торт"Чудо" | |||
| конф.Муму | |||
| Конф.петушок | |||
| торт"Мечта" |
На листе Excel разместить необходимые элементы управления: кнопку CommandButton1 с заголовком Изменить и кнопку CommandButton2 с заголовком Поиск.
|
|
|
Дата добавления: 2015-12-17; просмотров: 18; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!