Vba: як використовувати пі в обчисленнях

У математиці Пі — ірраціональне число (нескінченне десяткове число), що дорівнює приблизно 3,14.

Щоб використовувати Пі в обчисленнях у 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: як підрахувати кількість рядків у діапазоні