Script Acak Angka Tanpa Duplikat

Membuat angka random atau angka acak, bisa sangat mudah dibuat dengan mengunakan rumus RANDBETWEEN. tapi…….

Rumus RANDBETWEEN memiliki banyak kekurangan diantaranya

• Nomor Akan terus berubah jika ada perubahan nilai di sheet
• Bisa menghasilkan Nomor yang sama

Untuk mengatasi hal diatas, salah satu solusinya bisa menggunakan VBA.

Script dibawah ini untuk mengenerate Angka Random (acak) pada area yang dipilih tanpa ada angka yang sama dengan nilai yang tetap tidak akan berubah.

Simpan script berikut ini kedalam module,

'----------------------------------------------------
' Sctipt VBA  : Acak Angka Tanpa duplikat
' Author      : https://vba.co.id
'               Situs belajar VBA No.1 di Indonesia
'----------------------------------------------------
Sub Random123()
                  
Dim Acak As New Collection
Dim i As Long

For i = 1 To Selection.Rows.Count * Selection.Columns.Count
    Acak.Add i
Next i

For Each sel In Selection
    i = Rnd * (Acak.Count - 1) + 1
    sel.Value = Acak(i)
    Acak.Remove (i)
Next sel

End Sub

Setelah script disimpan di module, cara penggunaannya cukup mudah

Kemudian pada jendela Macros pilih Random123 kemudian klik RUN.

Dan hasilnya akan terlihat seperti gambar dibawah ini.