√ Tutorial Aplikasi Acak Angka/Nomor Pada Excel Dengan Vba

Hai sahabat Excel-ID usang tak posting artikel, hemm moga masih terus standby dengan blog rumus excel ini ya. Beberapa hari kemudian ada temen aku ingin dibuatkan gimana seh cara mengacak angka atau nomor di Excel itu? Lalu aku tanya "Lah untuk apa?" ia bilang kaya agenda UNDIAN gitu, biar tidak manual memakai stoples dan kertas yang digulung kecil kemudian di kocok.

Nah, dari ulasan dongeng yang singkat itu terpikirkan oleh aku iya kayaknya keren neh kalo untuk agenda arisan atau agenda lain yang sifatnya undian memakai sistem komputer untuk mengacak angkanya. Ya, memang di Excel ada rumus untuk mengacak data angka Anda sanggup memakai rumus "RAND" atau "RANDBETWEN" dan rumus itupun banyak kok di internet silakan coba cari ajah memakai kata kunci acak angka atau acak nomor niscaya banyak yang membahas.

Baca:
Membuat acak Angka dengan VBA disertai Contoh

Untuk bahan kali ini aku akan mencoba gimana cara mengacak data dengan memakai VBA ya sedikit desain tampilan yang aku kira cukup keren. Seperti apa tampilannya, berikut Anda sanggup melihat pola dibawah ini

Software / Aplikasi Acak Angka

Hasil dari tutorial ini aku sebut aplikasi Acak Angka alasannya script VBA yang aku buat ini bertujuan untuk mengacak nomor atau angka yang ditentukan oleh sistem. Aplikasi atau software ini tentunya sangat cocok sekali untuk mereka yang menjalankan agenda arisan atau undian lainnya yang tekniknya memakai pengacakan secara otomatis.

Untuk desain tampilan acak Angka tersebut bahwasanya silakan buat sendiri sesuai dengan harapan oke eksklusif saja berikut coding VBA untuk mengacak data angka tersebut. Pertama Anda harus masuk ke VBA / VBE editor kemudian buat 1 buah module untuk mengetikan codingnya dan silakan ketikan coding/script berikut ini

Public aCAK As Date

Sub Main()
    aCAK = Now + TimeValue("0:0:2")
    Do While Now < aCAK
        TaruhAcakNomor Range("B1:E10"), 0, 9
        DoEvents
    Loop
End Sub

Function TaruhAcakNomor(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

Hasil dari coding diatas akan menghasilkan acak data menyerupai gambar berikut

Nah sehabis Anda mengetikan angka diatas maka sistem akan menciptakan acak data pada range B1:B10 dari angka 0 hingga dengan 9. Coding final dan kita coba masukan hasil pada desain acak angka menyerupai gambar diatas contohnya pada kolom Angka 3, 4, 6, 8 masing masing berurutan =B1, =C1, =D1, =E1 silakan ganti warna font nya dan Anda juga sanggup ganti ukuran hurufnya biar terlihat lebih besar. Silakan berkreasi untuk menampilkan hasil random tersebut.

Perhatikan [ada kotak yang berwarna hitam dengan font warna merah diatas tertulis sebuah rumus link =B1 artinya data yang ditampilkan pada kolom tersebut ialah sama dengan data yang ada pada cell B1.

Ada tombol "Mulai" dan Tombol "Berhenti" disana kita tembahkan untuk memanggil Module yang telah dibuat. Untuk cara menciptakan tombol pada excel sudah pernah aku bahas

Baca:
Cara  Membuat Tombol Keren di Excel

Untuk tombol berhenti silakan Anda arahkan Assign Macro nya ke Module berhenti, namun sebelumnya Anda harus menciptakan terlebih dahulu Module untuk berhenti silakan tuliskan coding untuk berhenti berikut ini

Sub Berhenti()
aCAK = Now()
End Sub

Oke, kira-kira menyerupai itu cara menciptakan Aplikasi atau acak angka pada Ms. Excel memakai VBA semoga tutorial ini bermanfaat, kalau menemukan kesulitan dengan tutorial ini silakan komentar dibawah semoga aku sanggup membantu. Jangan lupa kalau kebagian arisan sodakoh nya ya...
Sumber http://www.excel-id.com/