Vba: как использовать число пи в расчетах

В математике Пи — иррациональное число (бесконечное десятичное число), равное примерно 3,14.

Чтобы использовать число Pi в вычислениях в VBA, вы можете использовать следующий синтаксис:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

Эта конкретная функция позволяет умножить любое значение в Excel на число Пи.

Обратите внимание, что Application.WorksheetFunction.Pi возвращает значение 3.14159265358979 , которое является точной 15-значной константой Пи.

Если вам нужен более точный расчет, чем 15 цифр, вы можете просто жестко запрограммировать число Пи с любым количеством цифр.

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как использовать Pi в VBA

Предположим, у нас есть следующий список значений в Excel, которые мы хотели бы умножить на число Пи:

Для этого мы можем создать в VBA следующую функцию:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

После того, как мы создали эту функцию, мы можем ввести следующую формулу в ячейку B2 , чтобы умножить значение в ячейке A2 на число Пи:

 =MultiplyByPi( A2 )

Затем мы можем щелкнуть и перетащить эту формулу в каждую оставшуюся ячейку в столбце B:

В столбце B теперь отображается каждое значение в столбце A, умноженное на число Пи.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: Как добавить значения в диапазон
VBA: Как рассчитать среднее значение диапазона
VBA: как подсчитать количество строк в диапазоне