Terinspirasi dengan sebuah trik yang ada di visual basic, kali ini saya akan membuat sebuah artikel yng berjudul Cara Membuat Acak Angka dengan VBA Excel.
Lalu apa bedanya VBA dan Visual Basic (VB)?
VBA adalah singkatan dari Visual Basic For Aplications, perbedaan diantara keduanya adalah bahwa VBA tertanam dalam dokumen Office sedangkan VB adalah ide/Bahasa untuk mengembangkan aplikasi. Keduanya memiliki syntax atau kode yang agak mirip.
Jadi gak ada salahnya kalau di blog ini sedikit mengulas tantang VBA walaupun isi dari pada blog ini berisi tentang Visual Basic.Siapa tau dengan adanya artikel ini bisa menambah aneka ragam wawasan Anda dalam dunia pemograman, sehingga suatu saat kita ingin membuatnya di excel kita tidak asing lagi dengan kode ini.
Cara Membuat Acak Angka dengan Kode VBA Excel
Berikut adalah langkah-langkah cara membuat acak angka dengan kode VBA di Excel
Pastinya anda harus membuka Excel Anda
Aktifkan menu Developer, bila menu Developer anda sudah aktif langsung ke langkah berikutnya
Klik Developer >> Visual Basic >> Insert >> Use form kemudian Desainlah Form seperti gambar dibawah ini :
 |
| Desain Form VBA |
Cara mengaktifkan Menu Developer
Tanamkan di Form 3 label, 2 textbox dan 1 Commanbutton
Atur properties berikut :
Label1 Name:LBHasil
Textbox1 Name:TBMin
Textbox2 Name:TBMax
Command1 Name:BTGenerate
Label2 Caption:MIN
Label3 Caption:MAX
Kemudian ketik kode dibawa ini di jendela kode :
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
Setelah Anda mengisi kode, sekarang jalankan dengan cara menekan tombol F5 atau simbol Play pada bagian Toolbar atas
No comments:
Post a Comment