Membuat Random Number Generator di Excel dengan VBA

Terinspirasi dari pembagian hadiah dengan menggunakan random number generator, kali ini Excelnoob akan membuat tutorial bagaimana cara membuat sebuah Random Number generator dengan Userform pada Microsoft Excel. Disini kita akan mengunakan VBA agar hasil yang kita buat terlihat cantik dan lebih elegan. Tenang saja, bagi yang belum terbiasa menggunakan VBA, pada tutorial kali ini dibulang cukup mudah dan bisa diikuti oleh pemula sekalipun.

Untuk membuat Random Number Generator dengan Excel VBA, langkah pertama adalah Pada Microsoft Excel, masuk ke Visual Basic Editor dengan menekan Shotcut ALT + F11. Jika sudah masuk ke VBE, pada menu Bar klik Insert lalu Pilih Insert UserForm. Pada bagian ini, Isi UserForm dengan 1 Commnd Button 3 Label dan 2 Textbox. dengan design seperti dibawah, ataupun bebas jika memiliki design sendiri

Untuk pengaturan masing-masing control nya bisa disesuaikan sesuai dibawah ini.

1. CommandButton
   • Name : BTBuat
   • Caption : Buat
2. Label
   • Name : LBHasil
3. Textbox
   • Name : TBMin
   • SpecialEffect : 0 – FrmSpecialEffectFlat
4. Textbox
   • Name : TBMax
   • SpecialEffect : 0 – FrmSpecialEffectFlat
5. Label
   • Caption : “Min.”
6. Label
   • Caption : “Max.”

Diatas adalah contol yang digunakan dan juga setingan Properties yang digunakan untuk masing masing Control. Setelah tahap design selsai, saatnya masuk ke tahap coding masukan script ini kedalam UserForm.

Rem Auth : ExcelNoob.com
Private Sub Animasi()
Dim i as long, J as Long
For J = 1 To 10
DoEvents
    For I = 1 To 83886008: Next
    BuatRandom
Next J
End Sub

Private Sub BuatRandom()
LBHasil.Caption = Int((TBMax.Value * Rnd) + TBMin.Value)
End Sub

Private Sub BTGenerate_Click()
If TBMin = vbNullString Or TBMax = vbNullString Or TBMin > TBMax Then Exit Sub
Call Animasi
Call BuatRandom
End Sub

Jika script sudah dimasukan ke dalam Module UserForm, saatnya untuk dijalankan. Setelah dijalankan, hasil dari rundome Number generator akan terlihat seperti ini.

Selamat berkreasi dan Random Number generator ini bisa digunakan untuk berbagai keperluan.