- •4.1. Предварительный просмотр
- •4.2. Выбор области печати
- •1 Способ:
- •3 Способ
- •Visual Basic for Applications (vba)
- •Глава 9. Основы языкапрограммирования Visual Basic for Applications (vba)
- •9.2. Переменные и константы
- •9.2.1. Область действия переменных и констант
- •9.2.2. Объявление (описание) переменных и констант
- •9.2.4. Типы переменных и констант
- •9.3. Управляющие конструкции
- •9.3.1. Выражения
- •9.3.2. Приоритеты операций
- •9.3.3. Встроенные функции
- •9.3.3.1. Математические функции
- •9.3.3.4. Функции обработки строк
- •9.3.3.5. Функции времени и даты
- •9.3.3.6. Функции выбора
- •9.3.4. Операторы альтернативы (ветвления)
- •9.3.4.1. Условный оператор
- •9.3.4.2. Оператор выбора варианта
- •If Not IsNumeric(Prom) Then MsgBox(“Повторите ввод!”)
- •9.3.5. Операторы циклов
- •9.3.5.1. Циклы с предусловием
- •9.3.5.2. Циклы с постусловием
- •9.3.5.3. Безусловный цикл (Цикл по счетчику)
- •9.3.5.4. Сложные (вложенные) циклы
- •9.3.7. Процедуры ввода-вывода через диалоговые окна
- •If Not IsNumeric(Prom) Then MsgBox(“Повторите ввод!”)
- •9.4.Основные объекты vba
- •9.4.4. Оформление рабочего листа
- •9.4.4.1. Оформление текста в ячейке
9.3.3.5. Функции времени и даты
Таблица 9.3.3.5.1
Функция |
Возвращаемое значение |
Date |
Возвращает значение типа Variant(Date ), содержащее текущую системную дату |
Time |
Возвращает значение типа Variant(Date ), содержащее текущее время по системным часам компьютера |
Now |
Возвращает значение типа Variant(Date ), то есть текущую дату и время по системному календарю и часам компьютера |
Hour, Minute, Second |
Возвращают значения типа Variant(Date ), содержащие целые числа, представляющие часы, минуты и секунды в значении времени. Пример: ВР=#4:35:17 PM# Час=Hour(ВР) Минута=Minute(ВР) Секунда=Second(ВР) |
Day, Month, Year |
Возвращает значение типа Variant(Integer), содержащее целое число и представляющее день, месяц и год в значении даты. Синтаксис: Day(Дата), Month(Дата), Year(Дата) |
9.3.3.6. Функции выбора
Таблица 9.3.3.6.1
Функция |
Возвращаемое значение |
Iif |
Возвращает одну из альтернатив. Синтаксис: if(expr, truepart, falsepart),где: expr– проверяемое значение; truepart– возвращаемое значение или выражение, если exprимеет значение true; falsepart– возвращаемое значение или выражение, если exprимеет значение false |
Choose |
Возвращает значение, выбранное из списка аргументов. Синтаксис: Choose(индекс, вариант -1, вариант - 2, …, вариант – n). Функцию Chooseможно использовать для выбора одного из возможных значений, представленных в виде списка. |
Switch |
Возвращается значение, соответствующее первому истинному выражению в списке. Синтаксис: Switch(выражение – 1, значение –1, выражение – 2, значение – 2 , …, выражение – n, значение – n).Возвращается то значение, выражение которого принимает значение True. |
9.3.4. Операторы альтернативы (ветвления)
Как и в любом другом языке программирования, в VBA можно проверять условия и выполнять действия в соответствии с результатами проверки условий. Для данной цели применяются следующие операторы (инструкции) принятия решения.
9.3.4.1. Условный оператор
IF<условие> THEN <оператор (код)>
Позволяет выполнить один или несколько операторов, если условие истинно. Можно использовать однострочный или блочный вариант. Если необходимо выполнить более одной строки кода, нужно использовать блочный вариант с оператором EndIF.
Синтаксис:
IF<условие> Then<оператор (код)>
IF<условие> Then
<блок кода >
End IF
Примеры:
IF x<10 Then z=0
IF x>10 Then
z=2
z=z+x
EndIF
Позволяет определить два блока операторов. Первый выполняется, когда условие истинно, а второй, когда оно ложно.
Пример:
IF x<>0 Then
y=Sin(x)/x
Else
y=1
EndIF
Пример ветвления по трём и более направлениям:
IF<условие 1> Then
<блок кода 1>
ElseIF<условие 2> Then
<блок кода 2>
ElseIF<условие 3> Then
<блок кода 3>
Else<блок кода 4>
EndIF
В блоке IFдопускается любое количество предложений ElseIF, но ни одно не может находиться после предложения Else.
Пример:
IF x=-1.57 Then
y=-1
ElseIF x=0 Then
y=0
ElseIF x=1.57 Then
y=1
Else y=Sin(x)
EndIF