Vba'da faktöriyel fonksiyon nasıl oluşturulur (örnekle)

Faktöriyel, belirli bir pozitif tam sayıya eşit veya ondan küçük tüm pozitif tam sayıların çarpımıdır.

Örneğin, 5 faktöriyel (5 yazılır!) şu şekilde hesaplanır:

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

VBA’da faktöriyel işlev oluşturmak için aşağıdaki sözdizimini kullanabilirsiniz:

 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

Bu işlevi oluşturduktan sonra, A2 hücresindeki tam sayının faktöriyelini bulmak için Excel’deki bir hücreye =FindFactorial(A2) gibi bir şey yazabilirsiniz.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da Faktöriyel Fonksiyon Oluşturma

Diyelim ki Excel’de aşağıdaki sayı listesine sahibiz ve her sayının faktöriyelini hesaplamak istiyoruz:

Bunu yapmak için VBA’da aşağıdaki fonksiyonu tanımlayabiliriz:

 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

Bu fonksiyonu oluşturduktan sonra, A2 hücresindeki değerin faktöriyelini hesaplamak için B2 hücresine aşağıdaki formülü yazabiliriz:

 =FindFactorial( A2 )

Daha sonra bu formülü tıklayıp B sütununda kalan her hücreye sürükleyebiliriz:

B sütununun artık A sütunundaki her tam sayının faktöriyelini görüntülediğine dikkat edin.

Örneğin:

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

Ve benzeri.

Not : VBA kullanmadan Excel’de bir faktöriyel hesaplamak için FACT işlevini kullanabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir aralıktaki değerler nasıl eklenir?
VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki satır sayısı nasıl sayılır?