- •Лабораторная работа №5(VBA) Функции пользователя
- •Если в программе необходимо выполнять однотипные вычисления, то их реализацию можно оформить как
- •Различают 2 типа пользовательских подпрограмм:
- •Структура функции
- •Функция вычисляет единственное значение, которое передается в основную процедуру через ее имя.
- •Формальные и фактические параметры
- •Правило соответствия параметров функции
- •Пример описания функции
- •Пример
- •1 способ
- •2 способ (с использованием массива)
- •Пользовательская функция листа
- •Вставка модуля
- •Лабораторная работа №5
- •Функции пользователя на листе Module1
- •Вызов функций в Excel
- •Программа для кнопки Вычислить
1 способ
Dim a1 As Single, a2 As Single, a3 As Single Dim s As Single
a1 = Worksheets("Лист1").Range("b2")
a2 = Worksheets("Лист1").Range("b3")
a3 = Worksheets ("Лист1").Range("b4") s = tr(a1) + tr(a2) + tr(a3)
Worksheets ("Лист1").Range("b5") = s
Function tr(x As Single) As Single tr = sqr(3)/4*x^2
End Function
2 способ (с использованием массива)
Dim a(1 To 3) As Single, s As Single For i = 1 To 3
a(i) = Worksheets ("Лист1").Cells(i + 1, 2) s = s + tr(a(i))
Next
Worksheets ("Лист1").Range("b5") = s
Function tr(x As Single) As Single tr = sqr(3)/4*x^2
End Function
Пользовательская функция листа
Создается на листе модуля в редакторе VBA.
Используется в формулах ячеек рабочего листа так же, как встроенные функции Excel.
Вставка модуля
В редакторе VBA: Insert / Module
Лабораторная работа №5
Функции пользователя на листе Module1
Function объем(r As Single, h As Single) As Single
объем = 3.14 * r ^ 2 * h End Function
Function площадь(r As Single, h As Single) As Single
площадь = 2 * 3.14 * r * h End Function