Cara Membuat Angka dan Karakter Acak di Excel

Ada pertanyaan bagaimana meembuat angka dan karakter acak di Excel. Sebenarnya hal ini mudah saja dilakukan, baik dengan pemrograman atau dengan fungsi biasa. Berikut ini saya akan contohkan bagaimana kita bisa membuat angka acak di Excel
Fungsi Excel untuk membuat angka acak adalah Rand().
Fungsi Rand() – lengkap dengan tanda kurungnya akan menghasilkan angka acak (random) diantara 0 dan 1, jadi angkanya pecahan. Kalau anda menginginkan nilai diantara 1 dan 100, misalnya, rumusnya adalah =Rand()*100
Nah, angka random yang dihasilkan diatas adalah angka pecahan. Untuk membuat angka random yang berupa bilangan bulat, kita tambahkan fungsi Int.



=Int(Rand()*100)
—-> menghasilkan bilangan bulat random dari 1-100

Kalau anda ingin menghasilkan bilangan bulat Random dari 5 – 20, bagaimana caranya?
untuk menghasilkan bilangan random dari 5 – 20, kita harus buat seperti ini. 

=Int(Rand()*(ba-bb)+bb)
 dimana
 bb = batas bawah =5
 ba = batas atas = 20
 =int(rand()*(20-5)+5) —> menghasilkan angka random bulat dari 5 sampai 20

Dengan demikian, anda dengan mudah dapat membuat angka random berapapun batas atasnya…. 

Bagaimana dengan huruf acak?

Untuk membuat huruf acak, kita tinggal membuat angka acak dari 1-26 (sebanyak jumlah abjad dari a-z), selanjutnya angka tersebut dikorelasikan dengan huruf. Bila 1, berarti a, 2, berarti b dan seterusnya.
Untuk mengimplementasikan hal ini, kita gunakan fungsi CHAR(). Fungsi ini akan mengembalikan karakter dengan kode sesuai yang dimasukkan. Kode yang dimaksud adalah kode ASCII dengan daftar seperti dibawah ini

Nah, untuk membuat karakter a-z, nomor ASCIInya adalah 97 – 122, sedangkan untuk huruf besar A-Z, kodenya adalah 65 – 90.
Dengan mengetahui hal ini, kita dapat dengan mudah mengubah angka random menjadi karakter. Rumusnya 

=CHAR(INT((RAND()*(90-65)+65)))

 —->menghasilkan huruf besar random

Bagaimana kalau ingin membuat 5 huruf random?

Untuk mengimplementasikannya, anda bisa membuat 5 sel, berisi rumus diatas, kemudian di sel ke – enam anda Concatenate isi kelima sel tersebut. Atau yang lebih praktis dengan menggunakan fungsi berikut ini. Tulis di Module baru dan langsung bisa dipanggil lewat sel

Function KarakterAcak(JmlKar)
temp = “” ‘variabel temp adalah dummy variabel
For i = 1 To JmlKar
Randomize ‘supaya selalu random
a = Int(Rnd * (90 – 65) + 65) ‘random huruf besar
temp = temp & Chr(a) ‘gabungkan
Next i
KarakterAcak = temp ‘kembalikan hasil
End Function

Sumber: http://harisaryono.com/