Membuat tombol acak dengan vba di excel

Membuat Tombol Acak Dengan Vba Di Excel

Sebelumnya dulu kita pernah membahas tentang fungsi acak di Microsoft Excel, namun dulu kita menggunakan rumus, tetapi sekarang akan mencoba membuat tombol acak dengan menggunakan bantuan fungsi Visual Basic of Application (VBA) di Excel. Bagaimana caranya? Mari ikuti langkahnya seperti berikut.

1. Siapkan data seperti berikut.

2. Arahkan kursor ke Tab Developer >> Insert, pilih Command Button (ActiveX Control)

3. Posisikan button atau tombol sesuai kebutuhan, kemudian klik kanan pada tombol, pilih CommandButton Object >> Edit, maka edit tombol dengan nama Acak.

4. Lalu, klik kanan lagi pada tombol pilih View Code, maka akan tampil halaman VBA  Private Sub CommandButton1_Click()

Dim tempString As String, tempInteger As Integer, i As Integer, j As Integer

For i = 2 To 6

Cells(i, 3).Value = WorksheetFunction.RandBetween(0, 1000)

Next i

For i = 2 To 6

For j = i + 2 To 6

If Cells(j, 3).Value < Cells(i, 3).Value Then

tempString = Cells(i, 1).Value

Cells(i, 1).Value = Cells(j, 1).Value

Cells(j, 1).Value = tempString

tempInteger = Cells(i, 3).Value

Cells(i, 3).Value = Cells(j, 3).Value

Cells(j, 3).Value = tempInteger

End If

Next j

Next i

End Sub

5. Kemudian Simpan dengan nama TombolAcak.xlsm, setelah itu kembali lagi ke lembar kerja Excel, dan aktifkan tombol Acak dengan cara ke tab Developer >> klik Diesign Mode.

6. Lalu, cobalah Anda klik tombol Acak, maka pada Cell C3 sampai Cell C6 akan terisi nomor.

7. Coba Anda klik tombol Acak sekali lagi, apa yang terjadi? Iya, maka angka di cell C2 sampai cell C6 akan teracak secara otomatis, dan ini akan terjadi pengacakan secara terus menerus ketika Anda klik tombol Acak.

Hal ini bisa membantu Anda yang sedang bingung dalam mencari urutan data, dan sangat cocok dipakai oleh para ibu-ibu arisan, atau mencari kelompok kerja, dengan hal ini maka nomor yang keluar akan terasa sangat adil. Semoga bermanfaat.

Baca juga tutorial membuat blog terlengkap sedunia
Belajarblog06.blogspot.com