Cara Membuat Cabutan Bertuah dalam Lembaran Kerja Excel melalui VBA

Kongsi Sekarang:

Dalam lembaran kerja Excel, anda juga boleh membuat cabutan bertuah. Dalam tulisan ini, kami akan menunjukkan kepada anda bagaimana menyelesaikan tugas ini di Excel.

Cabutan bertuah sangat biasa berlaku dalam kehidupan seharian kita. Contohnya, anda perlu memberi bonus kepada pekerja pada akhir tahun. Anda ingin memilih beberapa pekerja bertuah secara rawak. Oleh itu, anda boleh menggunakan fail Excel untuk membuat cabutan bertuah.

Buat Cabutan Bertuah

Pada bahagian ini, kami akan memperkenalkan kaedah secara terperinci.

  1. Buka fail Excel dengan semua maklumat pekerja. Dalam contoh ini, terdapat 18 pekerja di lembaran kerja. Dan bonus yang ada dikira mengikut jumlah jualan mereka.Contoh
  2. Dan kemudian tekan kekunci pintas "Alt + F11" pada papan kekunci untuk membuka editor Visual Basic.
  3. Selepas itu, masukkan modul baru ke dalam editor.Masukkan Modul
  4. Pada langkah ini, salin kod 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 kod ini, formula "Int (Rnd () * (19 - 2 + 1)) + 2" akan memastikan bahawa nombor rawak akan berada di 2-19. Anda juga boleh mengubah suai formula mengikut keperluan anda.

Sebenarnya, kecuali formula di atas untuk menghasilkan nombor, anda juga dapat menggunakan fungsi lembaran kerja "RandBetween". Dan anda perlu menukar kod dalam modul.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Selepas itu, klik tab "Pembangun" di pita.
  2. Dan kemudian klik butang "Masukkan" di bar alat.
  3. Dalam senarai drop-down, pilih pilihan "Butang".Masukkan butang
  4. Selepas itu, klik di lembaran kerja. Anda akan melihat tetingkap "Tetapkan Makro".
  5. Di tetingkap ini, klik makro yang anda masukkan ke modul baru.Tetapkan Makro
  6. Dan kemudian klik butang "OK".
  7. Seterusnya anda dapat melihat butang di lembaran kerja. Klik kanan butang.
  8. Di tetingkap pop timbul, pilih opsi "Edit Teks".
  9. Sekarang beri nama untuk butang. Kami akan menamakannya "Lucky Person".Edit Teks
  10. Anda telah selesai membuat semua tetapan. Dan anda boleh memulakan aktiviti. Klik butang tersebut.
  11. Dan kemudian anda akan melihat tetingkap muncul dengan nama pekerja anda.Hasilnya

Dari langkah-langkah di atas, anda dapat melihat bahawa menggunakan Excel untuk membuat cabutan bertuah adalah sangat mudah. Lain kali anda juga boleh mempertimbangkan untuk menggunakan fail Excel untuk tugas-tugas tersebut.

Cara Membaiki Fail Excel Anda

Majoriti pengguna akan keluar dari aplikasi Excel selagi mereka menghadapi kesilapan dalam Excel. Dan ketika mereka membuka fail Excel, masalahnya tidak akan wujud lagi. Tetapi jika anda menghadapi masalah Excel yang teruk, anda perlu melakukan tindakan tambahan. Anda boleh menggunakan alat pihak ketiga untuk baiki Excel xlsx yang rosak dan betulkan ralat Excel. Ini juga merupakan kaedah paling berkesan untuk menangani ralat Excel.

Pengenalan Pengarang:

Anna Ma adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk membaiki data doc yang rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com

Kongsi Sekarang:

Ruangan komen telah ditutup.