ВУЗ:
Составители:
67
Чтобы изменить этот порядок и вызывать функцию при изменении любых ячеек ра-
бочего листа, добавьте следующую инструкцию в начало функции:
Function Multiply(ByVal Var1, ByVal Var2)
Application.Volatile True
Multiply = Var1 * Var2
End Function
Вызвав метод Volatile объекта Application, Вы «помечаете» функцию как вы-
числяемую по правилам для встроенных функций Excel. Если метод Volatile не вы-
зван (или вызван без ключевого слова True), функция Multiply вызывается только
при изменении исходных данных (то есть содержимого ячеек А1 и В1).
2.8.3. Вызов одной подпрограммы из другой
В VBA допускается вызов одной программы из другой, что позволяет разбивать
код на логически обособленные фрагменты. Это дает два преимущества.
• Если вам нужно несколько раз выполнить одну и ту же последовательность
действий, Вы вправе задать ее всего один раз, оформив в виде подпрограммы, а за-
тем по мере необходимости вызывать из других программ. При этом облегчается и
ее редактирование, поскольку все изменения Вы вносите только однажды.
• Код VBA, разделенный на подпрограммы, обретает четкую логическую
структуру; его легче разрабатывать, отлаживать и обслуживать.
В следующем примере, в программе Рrо18, для вывода на экран сообщения о
вводе данных мы используем подпрограмму DisplMess.
Sub Pro18()
Dim R1 As Range
Set R1 = Worksheets(1).Range("A1")
R1.Value = 126
DisplMess
End Sub
Sub DisplMess()
MsgBox "Молярная масса нефти (г/моль) в ячейку А1 введена"
End Sub
Pro18 вводит данные в ячейку А1 первого рабочего листа и вызывает в строке 5
подпрограмму DisplMess, которая выводит на экран сообщение и возвращает управ-
ление Рro18 (рис. 2.13).
Страницы
- « первая
- ‹ предыдущая
- …
- 66
- 67
- 68
- 69
- 70
- …
- следующая ›
- последняя »
