Офисное программирование

ItogEF = 0

End Sub

' Процедура обработки данных по видам деятельности

Private Sub CommandButton2_Click()

StrName1 = Trim(Str(StrNomer + Nomer))

With ActiveSheet

Range('A' + StrName1).Value = Nomer

Range('B' + StrName1).Value = POTextBox.Text

SP = Val(SPTextBox.Text)

Range('C' + StrName1).Value = SP

ItogSP = ItogSP + SP

SF = Val(SFTextBox.Text)

Range('D' + StrName1).Value = SF

ItogSF = ItogSF + SF

TP = Val(TPTextBox.Text)

Range('E' + StrName1).Value = TP

ItogTP = ItogTP + TP

TF = Val(TFTextBox.Text)

Range('F' + StrName1).Value = TF

ItogTF = ItogTF + TF

IP = Val(IPTextBox.Text)

Range('G' + StrName1).Value = IP

ItogIP = ItogIP + IP

EF = Val(EFTextBox.Text)

Range('H' + StrName1).Value = EF

ItogEF = ItogEF + EF

Range('I' + StrName1).Value = EF – IP

'Выполнение автозаполнения с текущей строки таблицы на следующую строку

StrName2 = Trim(Str(StrNomer + Nomer + 1))

Set Range1 =.Range('A' + StrName1 +':I' + StrName1)

Set Range2 =.Range('A' + StrName1 +':I' + StrName2)

Range1.AutoFill Destination:=Range2

Range('A' + StrName2 +':I' + StrName2).ClearContents

End With

'Очистка полей формы для ввода очередных данных

POTextBox.Text = ''

SPTextBox.Text = ''

SFTextBox.Text = ''

TPTextBox.Text = ''

TFTextBox.Text = ''

IPTextBox.Text = ''

EFTextBox.Text = ''

POTextBox.SetFocus

Nomer = Nomer + 1

End Sub

'Закрытие формы, подведение итогов и вывод фамилии экономиста

Private Sub CommandButton1_Click()

UserForm1.Hide

StrName1 = Trim(Str(StrNomer + Nomer))

With ActiveSheet

Range('A' + StrName1).Value = «Итого:»

Range('C' + StrName1).Value = ItogSP

Range('D' + StrName1).Value = ItogSF

Range('E' + StrName1).Value = ItogTP

Range('F' + StrName1).Value = ItogTF

Range('G' + StrName1).Value = ItogIP

Range('H' + StrName1).Value = ItogEF

Range('I' + StrName1).Value = ItogEF – ItogIP

StrName2 = Trim(Str(StrNomer + Nomer + 2))

Range('A' + StrName2).Value = «Экономист:»

Range('G' + StrName2).Value = FIOTextBox.Text

End With

End Sub

Использование программы в режиме выполнения и получения результатов

Перед запуском программы сохраним рабочую книгу под именем отчет1.xls.

Кнопку «Создать отчетную таблицу» следует нажимать один раз после ввода заголовочной информации, кнопка «Добавить строку» нажимается каждый раз после ввода данных по очередному виду деятельности. После ввода всех данных необходимо нажать кнопку «Закончить», а затем переключиться в окно Microsoft Excel. На рабочем листе появится результат, аналогичный рис. 98.

Задачи на закрепление материала

Пример 48. Создать программу, которая по введенным в соответствующие текстовые поля формы данным автоматизирует ввод данных по обслуживанию населения некоторой организацией за определенный период времени. Кроме этого, программа должна вычислять данные по столбцам, отмеченным звездочками. Вывод данных предусмотреть на лист Excel.

Рис. 98. Шаблон табличного документа, заполненный данными

Пример 49. Создать программу, которая по введенным в соответствующие текстовые поля формы данным автоматизирует ввод данных по расчету товарного баланса некоторой организацией, занимающейся торговлей, за определенный период времени. Кроме этого, программа должна вычислять данные по столбцам, отмеченным звездочками. Вывод данных предусмотреть на лист excel.

Пример 50. Создать программу, которая по введенным в соответствующие текстовые поля формы данным автоматизирует ввод данных на отпуск товара с некоторого склада и формирует счет-фактуру за определенный период времени. Кроме этого, программа должна вычислять данные по столбцам, отмеченным звездочками. Вывод данных предусмотреть на лист excel.

Пример 51. Создать программу, которая по введенным в соответствующие текстовые поля формы данным автоматизирует ввод данных на студентов определенной специальности. Данные выводятся на рабочий лист excel. Предусмотреть на листе excel кнопку, которая вызывает необходимую форму для пользователя, не загружая редактор vba.

Технология выполнения

1. Сохраните новый документ Excel.

2. Создайте форму приложения, отвечающую требованиям задачи (см. рис. 99а).

3. Пропишите процедуры обработки нажатия кнопок Создать отчетную таблицу, Добавить строку и Закончить (см. пример 47).

4. При выводе информации на рабочий лист Excel придерживайтесь оформления, предложенного на рис. 99б.