3.4. Методические указания к выполнению лабораторных работ Общие указания
П
ри
работе с приложениями (пакетами прикладных
программ) часто возникает задача их
автоматизации, то есть внесения изменений
в работу приложений. Например, прекрасное
приложение Microsoft
Office
– табличный процессор Excel
– не позволяет при проверке условия
перейти к вычислениям в новом блоке
ячеек.
До начала 90-х годов автоматизация приложений была весьма затруднительной. Для каждого приложения нужно было изучать свой язык программирования. Например, для автоматизации Excel использовался язык макросов Excel, для автоматизации Microsoft Word – язык Word Basic и т. д. Фирма Microsoft решила, что более эффективно использовать общий язык программирования для всех приложений – Visual Basic for Applications (VBA). Это версия языка Visual Basic, которая поставляется непосредственно с приложениями (она включена в пакет Microsoft Office).
Изучение языка VBA применительно к одному из приложений (например, к Excel) даёт основу для применения его к другим продуктам Microsoft, а также прочный фундамент для работы с Visual Basic.
Настоящие методические указания содержат описание трех лабораторных работ, выполнение которых позволит получить основные навыки использования Visual Basic for Applications.
Работа 1. Операторы условного перехода и выбора
Цель работы
Научиться составлять программы с разветвлением вычислений.
Основные теоретические положения
Для организации разветвлений в программе используется оператор перехода, который имеет структуру
If … Then … Else … End If
После ключевого слова If записывается проверяемое условие. Если оно выполняется, осуществляется переход к операторам, расположенным после ключевого слова Then. Если условие не выполняется, осуществляется переход к операторам после ключевого слова Else.
Пример 1
Вычислить
где х – значение ячейки А3 листа Excel. Процедура вычислений имеет вид
Sub Пример1( )
‘Присвоение переменной Х значения, взятого из ячейки А3 Excel
X = Range(“A3”).Value
If X < 0 Then
Y = X ^ 2
Else
Y = 5 * X
End If
End Sub
Если число условий больше двух, можно использовать конструкцию
If … Then …
ElseIf … Then …
Else
End if
После ключевого слова If записывается первое проверяемое условие. Если оно не выполняется, второе условие запишется после ключевого слова ElseIf.
Пример 2
Вычислить
х – значение ячейки В1 листа Excel. Процедура примет вид
Sub Пример2( )
X = Range(“B1”).Value
If X <= -2 Then
Y = X ^ 3
ElseIf X <= 0 Then
Y = cos(X)
Else
Y = X + 2
End If
End Sub
В одном условном операторе можно использовать несколько проверок дополнительных условий (несколько ключевых слов ElseIf). Кроме того, для проверки нескольких условий удобно использовать оператор выбора. Его структура
Select Case имя переменной
Case условие 1 оператор 1
Case условие 2 оператор 2
……….
Case условие n оператор n
Case Else оператор при невыполнении всех условий
End Select