Membuat Angka Secara Acak dengan VBA

Membuat data angka secara acak pada Ms. Excel memang tidaklah sulit Anda bisa menggunakan rumus atau bahkan bisa juga menggunakan VBA sebagai alternatif membuat data angka secara acak. Untuk membuat data acak dengan rumus. Jika Anda pernah melihat contoh Aplikasi soal acak ujian yang pernah saya posting sebelumnya setidaknya sudah ada gambaran bagaimana mengacak data dan Anda bisa menerapkannya pada aplikasi tersebut.

Bukan rumus yang akan saya bahas untuk membuat angka secara acak karena jika menggunakan rumus mungkin Anda sudah mengetahuinya yaitu dengan rumus RAND. Tetapi jika menggunakan VBA silakan lihat contoh sript dibawah ini

Sub AcakAngka()
    Randomize
    Acak -Angka = Int(50 * Rnd) + 1
    MsgBox Acak_Angka
End Sub

Kode VBA tersebut silakan Anda masukan pda Modul. Untuk membuat modul VBA di Excel sudah saya bahas juga silakan pelajari kembali. Jika Anda ingin menambahkan tombol dengan CommandButton silakan buat di lembar kerja misalnya di Sheet1 dengan cara

Klik Menu Developer - Klik Insert - Klik Form Control Button

Jika sudah selesai silakan pilih name Acak_Angka kemudian klik OK

Maka tombol untuk acak angka sudah dibuat. Jika Anda klik tombol tersebut maka secara otomatis angka akan tampak secara acak silakan ulangi beberapa kali klik untuk tombol tersebut dan setiap kali di klik angka yang dihasilkan akan ditampilkan secara acak.

Jreng, benarkan. data script VBA yang telah dibuat berhasil. Silakan dicoba dan dikembangkan semoga berhasil.

Tweet