Cara membuat fungsi faktorial di vba (dengan contoh)

Faktorial adalah hasil kali semua bilangan bulat positif yang kurang dari atau sama dengan bilangan bulat positif tertentu.

Misalnya, faktorial 5 (ditulis 5!) dihitung sebagai:

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

Anda dapat menggunakan sintaks berikut untuk membuat fungsi faktorial di 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

Setelah Anda membuat fungsi ini, Anda kemudian dapat mengetikkan sesuatu seperti =FindFactorial(A2) ke dalam sel di Excel untuk menemukan faktorial bilangan bulat di sel A2 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Membuat Fungsi Faktorial di VBA

Misalkan kita memiliki daftar angka berikut di Excel dan kita ingin menghitung faktorial setiap angka:

Kita dapat mendefinisikan fungsi berikut di VBA untuk melakukan ini:

 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

Setelah kita membuat fungsi ini, kita kemudian dapat mengetikkan rumus berikut di sel B2 untuk menghitung faktorial dari nilai di sel A2 :

 =FindFactorial( A2 )

Kita kemudian dapat mengklik dan menyeret rumus ini ke setiap sel yang tersisa di kolom B:

Perhatikan bahwa kolom B sekarang menampilkan faktorial setiap bilangan bulat di kolom A.

Misalnya:

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

Dan seterusnya.

Catatan : Untuk menghitung faktorial di Excel tanpa menggunakan VBA, Anda bisa menggunakan fungsi FACT .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menambahkan nilai dalam suatu rentang
VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung jumlah baris dalam jangkauan