Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.29
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.29

Если значение ВЫРАЖЕНИЯ удовлетворяет сразу нескольким Case-условиям, то будет выполнено то из них, которое стоит ближе к началу оператора Select Case.

В операторе Case допустимы составные условия, например:

Case 2,7 То 8, II То 17, 35

Проверяет, принадлежит ли ВЫРАЖЕНИЕ одному из отрезков: от 7 до 8, от 11 до 17 - или равняется одному из значений:2 и 35

Case 5, 6, 8 То 11, 13, 14, Is >= 20

Проверяет, принадлежит ли ВЫРАЖЕНИЕ отрезку от 8 до 11, или оно равняется одному из значений: 5, 6, 13 и 14, или оно не меньше чем 20

Программирование в среде Visual Basic for Applications

Рассмотрим пример начисления комиссионных на основе оператора выбора Select Case ([2]). В этом примере размер комиссионных зависит только от объема проданной продукции по правилу, приведенному в табл. 7.1.

Таблица 7.1. Правило начисления комиссионных

Объем продаж, тыс. руб.

Комиссионные, %

0-9 999

20 000-39 999

50 000 и более

Задачу начисления комиссионных решает следующая функция:

Function Премия (продажа) Select Case продажа

Case 0 То 9999

Премия =0.1 * продажа Case 20000 То 39999

Премия = 0.12 * продажа Case Is >= 50000

Премия = 0.16 * продажа End Select End Function

Пусть в ячейку А1 введен объем продаж, равный 150 000. Для того чтобы вычислить комиссионные в ячейке В1, достаточно в эту ячейку ввести формулу =премия (А1). Тот же результат получается при вводе в ячейку В1 следующей формулы:

=ЕСЛИ(И(А1>=0;А1<20000); А1*0.1; ЕСЛИ(И(А1>=2ОО0О;А1<5000 0); А1*0.12; ЕСЛИ(А1>=50000 ;А1*0.16)))

8. Стандартные функции языка

Встроенные и внешние функции находятся в шаблонах (для MS Word) и в дополнительных макросах (для MS Excel, MS Access). Эти функции предназначены для выполнения финансовых, бухгалтерских и других расчетов и обеспечения интерфейса с Windows.

Описание стандартных функций можно найти в библиотеке функций VBA.

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

Функция

Описание

Пример

Abs

Возвращает модуль аргумента

АЬ5(-5) возвращает число 5

Sin

Возвращает синус аргумента

 

Cos

Возвращает косинус аргумента

 

Exp

Возвращает экспоненту аргумента

 

Asc

Возвращает код первого символа строки, которая была передана в качестве аргумента

А8с(«0123») возвращает код нуля, равный 48

Chr$

Возвращает символ ASCII для числа, которое задано в качестве аргумента. Является обратной функцией к функции Asc

Спг$(9) возвращает символ табуляции, Спг$(32) возвращает символ пробела

Int

Возвращает целую часть своего аргумента

1т(33, 33) возвращает число 33

Len

Определяет длину строки в символах

 

Str$

Представляет числовой аргумент как символьную строку, которую можно использовать в операциях конкатенации (сцепления) строк и других операциях со строками

Пример см. ниже

54 Программирование в среде Visual Basic for Applications


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta