Шаг 136.
VBA в MSExcel.
Основы программирования на VBA. Вызов процедуры (окончание)

    На этом шаге мы рассмотрим использование необязательных параметров.

    Приведем пример процедуры с необязательными параметрами. Функция СторонаТреугольника позволяет найти длину недостающей стороны прямоугольного треугольника, где переменные А и В отведены под длины катетов, а переменная C — под гипотенузу. Например, формула

  =СторонаТреугольника(;В2;С2)
вычисляет катет А по введенным в ячейки В2 и С2 длинам катета В и гипотенузы С. При работе с необязательными переменными необходимо использовать функцию IsMissing, возвращающую значение True, если соответствующий аргумент не был передан в процедуру, и False в противном случае.
  Function СторонаТреугольника(Optional A, _
    Optional B, Optional C)
    If Not (IsMissing(A)) And Not (IsMissing(B)) Then
      СторонаТреугольника = Sqr(A ^ 2 + B ^ 2)
    End If

    If Not (IsMissing(A)) And Not (IsMissing(C)) Then
      СторонаТреугольника = Sqr(C ^ 2 - A ^ 2)
    End If

    If Not (IsMissing(B)) And Not (IsMissing(C)) Then
      СторонаТреугольника = Sqr(C ^ 2 - B ^ 2)
    End If
  End Function
Текст этого примера можно взять здесь.

    На следующем шаге мы рассмотрим задание значений по умалчанию.




Предыдущий шаг Содержание Следующий шаг