Cara Membuat Undian Berhadiah di Lembar Kerja Excel via VBA

Solusi Excel Oktober 3, 2025
Bagikan sekarang:

Di lembar kerja Excel, Anda juga dapat membuat undian. Dalam tulisan ini, kami akan menunjukkan kepada Anda bagaimana menyelesaikan tugas ini di Excel.

Undian berhadiah sangat umum dalam kehidupan kita sehari-hari. Misalnya, Anda perlu memberikan bonus kepada karyawan di akhir tahun. Anda ingin memilih beberapa karyawan yang beruntung secara acak. Oleh karena itu, Anda dapat menggunakan file Excel untuk membuat undian.

Buat Undian Keberuntungan

Pada bagian ini, kami akan memperkenalkan metode secara rinci.

  1. Buka file Excel dengan semua informasi karyawan. Dalam contoh ini, ada 18 karyawan di lembar kerja. Dan bonus yang ada dihitung sesuai dengan volume penjualannya.Example
  2. Dan kemudian tekan tombol pintas "Alt + F11" pada keyboard untuk membuka editor Visual Basic.
  3. Setelah itu, masukkan modul baru ke dalam editor.Masukkan Modul
  4. Pada langkah ini, salin kode berikut ke modul baru:
Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

Dalam kode ini, rumus "Int(Rnd() * (19 – 2 + 1)) + 2" akan memastikan bahwa angka acak akan berada di 2-19. Anda juga dapat memodifikasi formula sesuai dengan kebutuhan Anda.

Sebenarnya, selain rumus di atas untuk menghasilkan angka, Anda juga bisa menggunakan fungsi lembar kerja “RandBetween”. Dan Anda perlu mengubah kode dalam modul.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Setelah itu, klik tab "Pengembang" di pita.
  2. Dan kemudian klik tombol "Sisipkan" di toolbar.
  3. Di daftar drop-down, pilih opsi "Tombol".Masukkan Tombol
  4. Setelah itu, klik di lembar kerja. Anda akan melihat jendela "Tetapkan Makro".
  5. Di jendela ini, klik makro yang Anda masukkan ke dalam modul baru.Tetapkan Makro
  6. Dan kemudian klik tombol "OK".
  7. Selanjutnya Anda dapat melihat tombol di lembar kerja. Klik kanan tombol.
  8. Di jendela pop-up, pilih opsi "Edit Teks".
  9. Sekarang beri nama untuk tombol tersebut. Kami akan menamakannya "Orang yang Beruntung".Edit Teks
  10. Anda telah menyelesaikan semua pengaturan. Dan Anda dapat memulai aktivitas. Klik tombolnya.
  11. Dan kemudian Anda akan melihat jendela pop-up dengan nama karyawan Anda.Hasil

Dari langkah-langkah di atas, Anda dapat melihat bahwa menggunakan Excel untuk membuat undian sangat nyaman. Lain kali Anda juga dapat mempertimbangkan untuk menggunakan file Excel untuk tugas tersebut.

Cara Memperbaiki File Excel Anda

Mayoritas pengguna akan keluar dari aplikasi Excel selama mereka bertemu dengan kesalahan di Excel. Dan lain kali ketika mereka membuka file Excel, masalahnya tidak akan ada lagi. Tetapi jika Anda menemui masalah Excel yang parah, Anda perlu mengambil tindakan tambahan. Anda dapat menggunakan alat pihak ketiga untuk perbaiki excel xlsx yang rusak dan memperbaiki kesalahan Excel. Ini juga merupakan metode paling efektif untuk mengatasi kesalahan Excel.

Pengantar Penulis:

Anna Ma adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki data doc yang rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.