Jak utworzyć funkcję silni w vba (z przykładem)

Silnia jest iloczynem wszystkich dodatnich liczb całkowitych mniejszych lub równych danej dodatniej liczbie całkowitej.

Na przykład silnia 5 (zapisana jako 5!) jest obliczana w następujący sposób:

• 5! = 5 * 4 * 3 * 2 * 1 = 120

Aby utworzyć funkcję silni w VBA, możesz użyć następującej składni:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

Po utworzeniu tej funkcji możesz wpisać w komórce w programie Excel coś w rodzaju =FindFactorial(A2) , aby znaleźć silnię liczby całkowitej w komórce A2 .

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

Przykład: Utwórz funkcję silni w VBA

Załóżmy, że mamy następującą listę liczb w programie Excel i chcemy obliczyć silnię każdej liczby:

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

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

Po utworzeniu tej funkcji możemy wpisać następującą formułę w komórce B2 , aby obliczyć silnię wartości w komórce A2 :

 =FindFactorial( A2 )

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

Należy zauważyć, że kolumna B wyświetla teraz silnię każdej liczby całkowitej w kolumnie A.

Na przykład:

• 1! = 1
• 2! = 2 * 1 = 2
• 3! = 3 * 2 * 1 = 6
• 4! = 4 * 3 * 2 * 1 = 24

I tak dalej.

Uwaga : Aby obliczyć silnię w Excelu bez użycia VBA, możesz skorzystać z funkcji FAKT .

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