Cara Membuat Acak Angka Berjalan Otomatis dengan Kode VBA di Excel

Pada ertikel kali ini saya akan membuat sebuah trik rahasia yang tersembunyi yang berada di Microsoft Excel yaitu sebuah fungsi RAND, fungsi yang berguna untuk mengacak angka secara random.

Dikatakan rahasia dan tersembunyi karena kita menggunakan acak angka ini menggunakan kode VBA yang disediakan oleh excel dengan cara mengaktifkan salah satu menu yang bernama DEVELOPER yang secara standar belum tersedia dimenu tool bar bagian atas excel karena memang disembunyikan, untuk itu kita perlu memunculkannya agar terlihat di excel.

Untuk mengkatifkannya sangat mudah yaitu klik File >> Option >>Quick Acces Toobar>>Developer Tab

Sebenarnya apasih fungsi dan gunanya acak angka ini,secara spesifik memang tidak banyak yang menyebutkan. Setelah saya searching di googel kebanyakan menyebutkan gunanya acak angka ini adalah mencari nomor identitas secara unik, mengacak angka untuk pemenang undian dan mungkin salah satunya juga untuk acak angka arisan dan masih banyak lagi kegunaanya tergantung kebutuhan.

Untuk lebih jelasnya bagaimana sih kira-kira bentuk acak angka yang ada di excel ini perhatikan pada gambar dibawah ini :

Gambar 1 : Output Acak Angka

Kira-kira seperti gambar diataslah saya akan membuat acak angka ini menggunakan kode VBA.

Berikut adalah langkah-langkahnya :

Cara Membuat Acak Angka dengan kode VBA di Excel

1. Buka Excel Anda

2. Aktifkan Module

Langkah selanjutnya kita mengaktifkan sebuah Module untuk mengetik Kode VBA, yaitu Klik Developer >> Visual Basic >>klik Insert >>Klik Insert Module, jendela Module akan terbuka.

Gambar 2: Jendela Module

3. Ketik kode dibawah ini di Module Anda untuk membuat sebuah Acak Angka dengan fungsi Rnd

Public Hentikan As Date

Function AcakAngka(r As Range, iMin As Long, iMax As Long) As Integer

Dim i As Long

Dim j As Long

For i = 1 To r.Rows.Count

For j = 1 To r.Columns.Count

r(i, j) = Int(iMax - iMin + 1) * Rnd + iMin

Next j

Next i

End Function

Sub Main()

Hentikan = Now + TimeValue("0:0:5")

Do While Now < Hentikan

AcakAngka Range("B1:E10"), 1, 9

DoEvents

Loop

End Sub

Sub Berhenti()

Hentikan = Now()

End Sub

Catatan :

Acak angka ini akan di tampilkan di Range B10 sampai E10, sesuai kode diatas yang bertulisakan AcakAngka Range("B1:E10"), 1, 9

Setelah memasukan kode di module langkah selanjutnya adalah menjalankan program acak angka dengan cara klik F5 atau tombol Run, apakah kode yang anda buat berhasil atau tidak. Jika berhasil akan terlihat banyak angka pada range B1  sampai E10 seperti tampak pada gambar dibawah ini :

Gambar 3

4. Selanjutnya tambahkan 2 Button di sheet Anda (seperti Gambar 3 diatas)

Button1 :

Klik menu Developer Pilih “Insert” klik Icon “Button” tempatkan di salah satu Cel (seperti gambar diatas ), maka secara otomatis  jendela Assign Macro akan muncul, lalu pilih “Main” pada Macro Name karena kita sudah mengetikan kodenya di module dengan kata Sub_Main() klik OK

Button2

Pada Button kedua langkahnya Sama dengan langkah diatas yaitu klik menu Developer Pilih “Insert” klik Icon “Button” tempatkan disalah satu cell, maka secara otomatis  jendela Assign Macro akan muncul, lalu pilih “Berhenti” pada Macro Name karena kita sudah mengetikan kodenya di module dengan kata Sub_Berhenti() klik OK

Kemudian Editlah kedua button tersebut dengan cara klik kanan >> EdiText ganti Button1 menjadi Star dan Button2 menjadi Stop

Coba Anda klik Tombol Star, apa yang akan terjadi maka sebuah angka akan teracak. Sekarang Anda sudah berhasil membuat acak angka dengan kode VBA

Memodifikasi Tampilan Acak Angka

Pada baris B13 ketik rumus “=B1”

Pada baris C13ketik rumus “=C1”

Pada baris D13 ketik rumus “=D1”

Pada baris E13 ketik rumus =”E1”

Kemudian blok Baris B13 : E13 klik kanan >> format Cell >> Number >> Number >> pada Decimal Places  isikan 0 >> Ok 

Contoh angka hasil modifikasi pada baris B13 : E13 adalah yang berwarna biru

Kemudian sembunyikan acak angka dari hasil Excel yang berada pada posisi  B1 sampai E10 dengan cara arahkan qursor pada nomor baris excel nomor 1 hingga membentuk tanda panah kekanan (lihat Gambar 3 yang diberi tanda merah) kemudian tahan dan drag samapai nomor 10 kemudian klik kanan pilih “Hide”.

Jika Anda sudah melakukan langkah-langkah diatas dengan benar kurang lebih hasil keseluruhannya pada Gambar 1 : Output Acak Angka paling atas.

Silahkah modifikasi sendiri sesuai keinginan

Perhatian :

Simpanlah file dengan Save As Type : Excel Macro - Enabled Workbook

Demikianlah artikel dari saya tentang Cara Membuat Acak Angka Berjalan Otomatis dengan Kode VBA di Excel, seomoga artikel ini bemanfaat buat kita semua. Jangan lupa share dan bagikan artikel ini

Apabila ada pertanyaan tinggalkan dalam komentar.