Визуальный язык программирования: Visual Basic for Applications

 

Цель работы – получить начальные сведения о написании макросов на встроенном в MS Office языке программирования Visual Basic for Applications (VBA).

 

VBA – это подмножество визуального языка программирования Visual Basic (VB), которое включает почти все средства создания приложений VB.

VBA отличается от языка программирования VB тем, что система VBA предназначена для непосредственной работы с объектами Office, в ней нельзя создавать проект независимо от приложений Office. Таким образом, в VBA языком программирования является VB, а инструментальная среда программирования реализована в виде редактора VB, который может активизироваться из любого приложения MS Office.

Например, для того, чтобы открыть редактор VBA из приложения Excel необходимо выполнить команду Сервис / Макрос / Редактор VBA или комбинацией клавиш Alt + F11. Вернуться из редактора в приложение можно, выбрав команду Microsoft Excel в меню Вид или комбинацией клавиш Alt + F11.

С помощью встроенного в редактор VBA набора элементов управления и редактора форм пользователь может создать пользовательский интерфейс для разрабатываемого проекта с экранной формой. Элементы управления являются объектами, а для каждого объекта определен ряд возможных событий (например, щелчок или двойной щелчок мыши, нажатие клавиши, перетаскивание объекта и т.д.).

Каждое событие проявляется в определенных действиях программы (откликах, реакции). Пользовательская форма позволяет создавать окна диалога приложений. Язык программирования VBA служит для написания кода программы, например для создания функций пользователя в Excel.

Тот факт, что система программирования VBA предназначена для работы с объектами Office, позволяет эффективно ее применять для автоматизации деятельности, связанной с разработкой различных типов документов.

Задание для моделирования

1. Открыть редактор VBA.

2. Написать программу по генерации 500 случайных чисел на листе Excel.

3. Доработать программу для вычисления среднего значения полученных случайных чисел и записать результат в ячейку на листе.

4. Построить таблицу 4.1 (количество N подынтервалов не менее 10), при помощи редактора VBA и вывести ее на экран.

 

Для решения поставленных задач откроем редактор VBA при помощи комбинации клавиш Alt + F11.

 

Таблица 4.1

Интервал	Частота попаданий в данный интервал	Относительная частота попадания
∆1	ν1	ν1/n
∆2	ν2	ν2/n
…	…	…
∆N	νN	νN/n

 

В появившемся окне сверху справа двойным щелчком мыши выберем наш рабочий лист.

Напишем программу для генерации случайных чисел.

1. Sub Praktika()

2. a = 0

3. For i = 1 To 500

4.     Sheets(1).Cells(i, 1) = Rnd

5.     a = a + Sheets(1).Cells(i, 1)

6. Next i

7. Sheets(1).Cells(1, 2) = a / 500

8. For i = 0 To 0.9 Step 0.1

9.     Sheets(1).Cells(i * 10 + 1, 4) = i

10.     Sheets(1).Cells(i * 10 + 1, 5) = i + 0.1

11. Next i

12. For i = 1 To 10

13.     Sheets(1).Cells(i, 6) = 0

14.     For j = 1 To 500

15.         If Sheets(1).Cells(j, 1) > Sheets(1).Cells(i, 4) And Sheets(1).Cells(j, 1) < Sheets(1).Cells(i, 5) Then

16.             Sheets(1).Cells(i, 6) = Sheets(1).Cells(i, 6) + 1

17.         End If

18.     Next j

19.     Sheets(1).Cells(i, 7) = Sheets(1).Cells(i, 6) / 500

20. Next i

21. End Sub

 

Рассмотрим подробнее написанную программу.

Запись в первой строке означает то, что начинается новая программа с именем «Practika».

В четвертой строке программы на первый в книге лист в столбец А (первый столбец) производится запись случайных чисел.

Для того чтобы записать случайные числа в ячейки А1:А500 в третьей строке программы открывается цикл For в котором переменная i изменяется от 1 до 500 и в четвертой строке вместо номера строки подставляется данная переменная.

В пятой строке в переменную «а» записывается сумма всех случайных чисел из первого столбца (для корректного получения суммы во второй строке переменная «а» была приравнена к нулю).

Запись в шестой строке показывает программе, что в данном месте закончился код, который выполняется в цикле.

В седьмой строке в ячейку В1 (первая строка, второй столбец) записывается среднее значение полученных случайных чисел.

При помощи цикла записанного в 8-11 строках на лист Excel в столбцы D и E выводится диапазон интервалов.

В двенадцатой строке открывается цикл для перебора всех полученных интервалов.

В тринадцатой строке программы происходит обнуление значений в ячейках столбца F для корректного срабатывания счетчика количества попаданий случайной величины в интервал в строке 16.

Цикл в четырнадцатой строке позволяет перебрать все значения случайных чисел и при помощи условия в пятнадцатой строке проверить в какой из интервалов попадает случайная величина.

В девятнадцатой строке происходит расчет относительного попадания случайной величины в интервал и запись полученного значения в столбец G.

Двадцать первая строка показывает, что программа закончилась.

 

Контрольные вопросы

1. В чем отличие Visual Basic for Applications от Visual Basic?

2. Что такое макрос?

3. Для чего применяются циклы?

4. Для чего применяются условия?

5. Что означает запись Sheets(2).Cells(5, 10) = 15?

Лабораторная работа №5