П5. Пример ПроектА vba.
Построение многографного документа на основе электронной таблицы. Проекту присвоено имя Pro11.
При разработке проекта создается форма frmDialog1001 с Caption = Пользовательский диалог создания таблицы; содержит следующие ЭУ:
а)Command1 c Caption = Ввести, Command2 c Caption = Очистить, Command3 c Caption = Окончить;
б) txtZAGOLOVOK c Text = Опись товаров склада;
в) текстовые поля txtName, txtCena и txtKol;
г) метки Label1 c Caption = Наименование товара, Label2 c Caption = Цена,руб./шт., Label3 c Caption = Количество, шт., Label4 c Caption = Для перехода в другое поле Tab.
Форма Form12 имеет следующий вид:
Для листа Excel установить требуемую ширину столбцов и дать им названия:
Проект имеет следующий состав процедур:
1) модуль процедур общего назначения под именем Mod1
Attribute VB_Name = "Mod1"
'СОЗДАНИЕ МНОГОГРАФНОГО ДОКУМЕНТА НА ОСНОВЕ
'ЭЛЕКТРОННОЙ ТАБЛИЦЫ И OLE-ТЕХНОЛОГИИ
Public sum As Single ' суммарная стоимость товаров
Public i As Integer ' номер строки таблицы
Sub main()
sum = 0
i = 2
Load Form12
Form12.Show
End Sub
2) процедуры обработки событий форм
' Процедуры обработки событий формы Form12
Public Sub Command1_Click()
Dim s As Integer
s = Mod1.i + 1
Worksheets(1).Activate
Selection.Cells(s, 1) = Form12.txtName
Selection.Cells(s, 2) = Form12.txtKol
Selection.Cells(s, 3) = Form12.txtCena
Selection.Cells(s, 4) = Val(txtKol) * Val(txtCena)
Mod1.i = s
Mod1.sum = Mod1.sum + Selection.Cells(s, 4)
End Sub
Public Sub Command2_Click()
Form12.txtName = ""
Form12.txtKol = ""
Form12.txtCena = ""
End Sub
Public Sub Command3_Click()
Dim s As Integer
s = Mod1.i + 1
Worksheets(1).Activate
Selection.Cells(s, 1) = "Итого"
Selection.Cells(s, 4) = Mod1.sum
Unload Form12
End Sub
Public Sub UserForm_Click()
End Sub
Литература
1. Потапкин А.В. Основы Visual Basic для пакета Microsoft Office. М.: ЭКОМ, 1995.
2. В. Шмидт. VISUAL BASIC 5.0. М.: АБФ, 1997
3. Информатика: Учебник / Под ред. Н.В. Макаровой. М.: Финансы и статистика, 1997
4. М. Райтингер, Г. Муч. Visual Basic 6: полное руководство: пер. с нем. Киев: BHV, 2000
5. П.Санна и дp. VISUAL BASIC для приложений (версия 5) в подлиннике: пер. с англ. -
СПб.: BHV - Санкт-Петербург, 1999. - 704 с.