П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 с.