• выберите команду Исходный текст (View Code), на экране появится окно редактора VBA, в этом окне - первая и последняя строки программы - процедуры обработки события - нажатия кнопки:

Private Sub CommandButtonl_Click()

End Sub

• установите курсор между этими строками и вставьте фрагмент из буфера обмена.

В целом текст программы, выполняемой при нажатии на кнопку Новый сотрудник, будет выглядеть так:

Private Sub CommandButtonl_Click()

Sheets(“Сотрудники”).Select

ActiveSheet.ShowDataForm

End Sub

Подзадача 4.2. Работа кнопки «Новая организация»

*Выполните следующие действия.

В режиме конструктора вызовите контекстное меню для кнопки Новая организация, выберите команду Исходный текст и введите строки:

Sheets(“Opraнизации”). Select

ActiveSheet.ShowDataForm

Полный текст программы будет выглядеть так:

Private Sub CommandButtonl_Click()

Sheets(“Организации”). Select

ActiveSheet.ShowDataForm

End Sub

Подзадача 4.3. Работа кнопки «Новая командировка»

*Выполните следующие действия.

В режиме конструктора вызовите контекстное меню для кнопки Новая командировка, выберите команду Исходный текст и введите текст программы (комментарии набирать необязательно):

Rem текст программы, выполняемой по нажатию

' на кнопку Новая командировка

'Объявление переменных:

'NS - номер последней заполнений строки на листе «Сотрудники»

'NO - номер последней заполненной строки на листе «Организации»

' Д_сотр - диапазон, содержащий фамилии сотрудников

'Д_орг - диапазон, содержащий наименования организаций

Dim NS, NO As Integer

Dim Д_сотр, Д_орг As String

'Определение последней заполненной строки в столбце А на листе «Сотрудники»;

NS=Application.CountA(Sheets(“Coтрудники”).Range(“A:A”))

'Определение последней заполненной строки в столбце А на листе

«Организации»

NO=Application.CountA(Sheets(“Opraнизации”).Range(“A:A”))

'определение диапазона фамилий сотрудников:

'NS преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Д_coтp=”A2:A”&cstr(NS)

'определение диапазона наименований организаций:

'N0 преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Д_орг=”A2:A"&cstr(NO)

'присваивание имени диапазону, содержащему фамилии

Sheets(“Сотрудники”).Range(Д_сотр).Name=”Сотр”

'присваивание имени диапазону, содержащему организации

Sheets((“Организации”).Range(Д_орг).Name=”Орг”

'Далее работаем с пользовательской формой UserForm 1

With UserForml

'очистка содержимого полей для ввода: TextBoxl,TextBox2, TextBox3,TextBox4, TextBox5, ComboBoxl, ComboBox2

.TextBoxl.Text = “”

.TextBox2.Text =””

.TextBox3.Text = “”

.TextBox4.Text = “”

.TextBox5.Text = “”

.ComboBoxl.Text = “”

.ComboBox2.Text =””

'указание источника строк для поля со списком ComboBoxl

.ComboBoxl. Rowsource =”Сотр”

'указание источника строк для поля со списком ComboBox2

.ComboBox2.Rowsource = “Орг”

'вывод пользовательской формы на экран.

.Show

End with

Подзадача 4.5. Работа кнопки «Выход»

* Выполните следующие действия.

В режиме конструктора вызовите контекстное меню для кнопки Выход, выберите команду Исходный текст и введите текст программы:

Application.Quit

Все программы для решения задачи 4 - «Меню» созданы.

Перейдем к программированию подзадач задачи 3 - «Командировки»

Подзадача 3.3 - Расчет суммы в ПФ

*Выполните следующие действия.

1. Откройте форму UserForml:

Сервис-Макрос-Редактор Visual Basic. Если форма на экране не появилась, то выполните команду View-Project Explorer, затем откройте папку Forms и два раза щелкните по форме UserForml.

2. В ПФ вызовите контекстное меню для поля Количество дней и выберите команду View Code (Исходный текст). На экране появится окно с первой и последней строками программы, которая будет выполняться при каждом изменении содержимого поля.

Private Sub TextBox2 Change()

……………..

End Sub

3. Между этими строками введите текст программы (комментарии можно не набирать):

'текст программы, выполняемой при каждом

' изменении чисел в полях Количество дней, Суточные и Цена билета

' Объявление переменных

Dim Дни, Суточные, ЦенаБилета As Integer

' Работаем с формой UserForml

With UserForml

' Проверяем, числа ли записаны

' в поля ввода TextBox2, TextBox3, TextBox4

' Если в этих поля записаны числа,

'то преобразуем ' содержимое каждого поля в целое

' и запоминаем' в переменной

' три следующих строки можно записать в одну строку

If IsNumeric(TextBox2.Text) And _

IsNumeric(TextBox3.Text) And _

IsNumeric(TextBox4.Text) Then

Дни = CInt(TextBox2.Text)

Суточные = CInt(TextBox3.Text)

ЦенаБилета = CInt(TextBox4.Text)

TextBox5.Text = СStг(Дни * Суточные + ЦенаБилета * 2)

End If

End With

4. Скопируйте введенный текст программы в буфер обмена.

5. В ПФ вызовите контекстное меню для поля Суточные, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

6. В ПФ вызовите контекстное меню для поля Цена билета, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

Подзадача 3.4. Работа кнопки «Ок» в ПФ

*Выполните следующие действия.

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы (комментарии набирать не обязательно):

'текст программы, выполняемой при нажатии

' на кнопку Ок в ПФ

' Объявление пременных: Дата - дата выезда

' в командировку, Фамилия - фамилия сотрудника,

'Организация - наименование организации,

' Дни - количество дней,

'Суточные - размер суточных,

'Цена - цена билета, Сумма - общая сумма расходов,

'Строка - номер первой пустой строки

' на листе "Командировки"

Dim Дата, Фамилия, Организация, Дни, Суточные As String

Dim Цена, Сумма As String

Dim Строка As Integer

' Работаем с формой UserForm1

With UserForml

' В переменную Дата запишем

' содержимое поля Дата выезда (TextBox1)

Дата=TextBox1.Text

' В переменную Фамилия запишем содержимое поля ввода поля со списком ComboBoxl

Фамилия = ComboBoxl.Text

' В переменную Организация запишем содержимое поля ввода поля со списком ComboBox2

Организация = ComboBox2.Text

' В переменные Дни, Суточные, Цена, Сумма запишем содержимое из полей ввода 'соответственно TextBox2, TextBox3, TextBox4, TextBox5

Дни = TextBox2.Text

Суточные = TextBox3.Text

Цена = TextBox4.Text

Сумма = TextBox5.Text

End With

' Найдем на листе "Командировки" первую пустую строку

' и номер ее запишем в переменную Строка

Строка = Application.CountA(Sheets(“Командировки”).Range(“А: А”)) + 1

' На листе "Командировки"

With Sheets(“Командировки”)

' в строке номер Строка запишем:

' в столбце А - значение переменной Дата .

.Cells (Строка, 1) = Дата

'в столбце В - значение переменной Фамилия

.Cells (Строка, 2) = Фамилия

' в столбце С - значение переменной Организация

.Cells (Строка, 3) = Организация

' в столбце D - значение переменной Дни

.Cells (Строка, 4) = Дни

' в столбце Е - значение переменной Суточные

. Cells (Строка, 5) = Суточные

' в столбце F - значение переменной Цена

. Cells (Строка, 6) = Цена

'в столбце G - значение переменной Сумма

. Cells (Строка, 7) = Сумма

End With

' удалим с экрана ПФ

User Form1. Hide

Подзадача 3.5. Работа кнопки «Отмена» в ПФ

*Выполните следующие действия.

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы:

'текст программы, выполняемой при нажатии

' на кнопку Отмена

UserForml.Hide

Пятый этап - Отладка

Для проверки работы приложения подготовим контрольные примеры.

Для ввода информации в базу данных «Сотрудники» сведения представлены в табл. 4.

Для ввода информации в базу данных «Организации» сведения представлены в табл. 5.

Для ввода информации в базу данных «Командировки» сведения представлены в табл. 6.

Данные для столбца «Сумма» просчитаны вручную по формуле: Сумма⁼⁼Суточные*Дни+Цена билета*2

*Выполните следующие действия:

Перейдите на лист Меню, нажмите на кнопку Новый сотрудник и введите подготовленные данные о сотрудниках в базу данных Сотрудники.

Аналогично, нажимая на кнопки Новая организация и Новая командировка, введите подготовленные данные об организациях и командировках в соответствующие базы данных. Проверьте, правильно ли считается сумма при вводе данных о командировках.

Если какая-то часть созданного приложения не работает или работает неправильно, то необходимо найти и исправить ошибку или несколько ошибок.

Наиболее часто допускаемые ошибки:

1. Неверно записано название объекта, метода, свойства.

2. Неправильно записан оператор.

3. При записи названия объекта, метода, свойства или оператора вместо латинских букв были набраны русские. Несмотря на то, что русская буква «с» и латинская «с» изображаются одинаково, они по-разному кодируются и воспринимаются транслятором как два разных символа.

Когда все части приложения будут работать правильно, тогда можно считать, что приложение отлажено.

Методы обработки и анализа экономической информации

в Ехсеl

Это задание является продолжением контрольного задания 4, в результате выполнения которого был сформирован список (база данных) по учету поездок сотрудников предприятия в командировки в разные города, а также всех расходов, связанных с этими командировками. В Excel понятие список и база данных взаимозаменяемы.

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