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))

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

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

<<< < Предыдущая 12 / 32 3 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]