Тема 3. Редактор vba
Окно проекта редактора VBA – это специальное окно редактора VBA, которое служит для
- просмотра и задания свойств объектов VBA;
- отображения всех элементов одного или нескольких проектов VBA;
- ввода инструкций по выполнению различных операций.
Окно свойств редактора VBA служит для
- просмотра и задания свойств объектов VBA;
- отображения всех элементов одного или нескольких проектов VBA;
- ввода инструкций по выполнению различных операций.
В окне свойств редактора VBA отображаются
- свойства всех объектов проекта;
- свойства всех объектов VBA;
- только свойства текущего объекта.
В окне модуля редактора VBA отображается
- программные коды всех модулей проекта VBA;
- программный код одного из модулей проекта VBA;
- инструкции по выполнению различных операций.
Тема 4. Пользовательские функции
Текст пользовательской функции набирается
- в окне модуля для стандартного модуля;
- в окне свойств;
- в окне проекта.
В общем случае пользовательская функция имеет следующий вид:
- Function имя функции (тело функции)
End Function
- Function имя функции
тело функции
End Function
- Function имя функции (список аргументов)
тело функции
End Function
Тело функции представляет собой
- любую последовательность операторов;
- последовательность операторов, среди которых должен быть, по крайней мере, один оператор присваивания, в левой части которого указано имя функции;
- только один оператор присваивания, в левой части которого указано имя функции.
Пользовательская функция
Function F1(x)
F1=sin(sqr(x))
End Function
вычисляет значение следующей функции:
- 
;
- 
;
- 
.
Пользовательская функция
Function F1(x)
F1=abs(atn(x))
End Function
вычисляет значение следующей функции:
- 
;
- 
;
- 
.
Пользовательская функция
Function F1(x)
F1=log(tan(x))
End Function
вычисляет значение следующей функции:
- 
;
- 
;
- 
.
Пользовательская функция
Function F1(x)
F1=exp(cos(x))
End Function
вычисляет значение следующей функции:
- 
;
- 
;
- 
.
Пользовательская функция
Function F2(x)
If (x>=7) or (x=2) then
F2=sqr(x)
Else
If x<=0 then
F2= x^2
Else
F2= x*2
End if
End if
End Function
вычисляет значение следующей функции:
- 
;
- 
;
- 
.
Пользовательская функция
Function F2(x)
If (x>=7) or (x=2) then
F2=sqr(x)
Else
If x<=0 then
F2= x^2
Else
F2= x*2
End if
End if
End Function
при x=9 возвращает следующее значение:
- 81;
- 3;
- 18.
Пользовательская функция
Function F2(x)
If (x>=7) or (x=2) then
F2=sqr(x)
Else
If x<=0 then
F2= x^2
Else
F2= x*3
End if
End if
End Function
при x=2 возвращает следующее значение:
- 4;
- 6;
- 1,41.
Пользовательская функция
Function F2(x)
If (x>=7) or (x=2) then
F2=sqr(x)
Else
If x<=0 then
F2= x^2
Else
F2= x*3
End if
End if
End Function
при x=-2 возвращает следующее значение:
- 4;
- -4;
- -6.
Пользовательская функция
Function F2(x)
If (x>=7) or (x=2) then
F2=sqr(x)
Else
If x<=0 then
F2= x^2
Else
F2= x*3
End if
End if
End Function
при x=4 возвращает следующее значение:
- 2;
- 12;
- 16.