Vba: jak używać pi w obliczeniach

W matematyce Pi jest liczbą niewymierną (nieskończoną liczbą dziesiętną) równą w przybliżeniu 3,14.

Aby użyć Pi w obliczeniach w VBA, możesz użyć następującej składni:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

Ta szczególna funkcja pozwala pomnożyć dowolną wartość w Excelu przez Pi.

Należy zauważyć, że Application.WorksheetFunction.Pi zwraca wartość 3.14159265358979 , która jest dokładną 15-cyfrową stałą Pi.

Jeśli potrzebujesz bardziej precyzyjnych obliczeń niż 15 cyfr, możesz po prostu zakodować Pi na stałe z dowolną liczbą cyfr.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak używać Pi w VBA

Załóżmy, że mamy w Excelu następującą listę wartości, które chcielibyśmy pomnożyć przez Pi:

W tym celu możemy utworzyć w VBA następującą funkcję:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

Po utworzeniu tej funkcji możemy wpisać następującą formułę w komórce B2 , aby pomnożyć wartość w komórce A2 przez Pi:

 =MultiplyByPi( A2 )

Możemy następnie kliknąć i przeciągnąć tę formułę do każdej pozostałej komórki w kolumnie B:

Kolumna B wyświetla teraz każdą wartość z kolumny A pomnożoną przez Pi.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak dodać wartości w zakresie
VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak policzyć liczbę wierszy w zakresie