Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membuat nama undian bertuah di Excel?

Dalam kerja harian anda, kadang-kadang, anda perlu memilih beberapa pekerja secara rawak dari nama senarai panjang sebagai nama bertuah. Dalam Excel, bagaimana anda boleh memilih beberapa nama untuk membuat cabutan bertuah? Artikel ini, saya akan membincangkan beberapa kaedah yang berguna untuk menangani tugas ini dalam Excel.

Ekstrak nama rawak untuk membuat cabutan bertuah dengan formula

Ekstrak nama rawak untuk membuat cabutan bertuah dengan kod VBA

Pilih nama rawak untuk membuat cabutan bertuah dengan Kutools untuk Excel


Pilih nama rawak untuk membuat nama bertuah dalam Excel

Untuk memilih beberapa pekerja secara rawak dari nama senarai panjang sebagai nama bertuah, anda boleh memohon Kutools untuk Excel, Dengan itu Julat Isih secara rawak ciri, anda boleh dengan cepat memilih bilangan nama tertentu secara rawak seperti yang anda perlukan.

nama bertuah doc 9

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Ekstrak nama rawak untuk membuat cabutan bertuah dengan formula

Sebagai contoh, saya ingin mengekstrak mana-mana nama 3 dari senarai nama, rumusan panjang berikut boleh membantu anda, sila lakukan seperti ini:

Masukkan formula ini ke dalam sel kosong di mana anda mahu meletakkan hasilnya: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , dan kemudian seret pemegang pengisian ke sel seperti yang anda perlukan, lihat tangkapan skrin:

nama bertuah doc 1

Nota:

1. Dalam formula di atas: A2: A16 adalah senarai nama yang anda mahu ambil dari secara rawak, B2 adalah nombor yang diperlukan untuk mengeluarkan nama, C2 adalah sel tempat memasuki formula, dan C1 adalah sel di atas sel formula.

2. Anda boleh menekan F9 kunci untuk mendapatkan satu lagi kumpulan nama baru secara rawak.


Ekstrak nama rawak untuk membuat cabutan bertuah dengan kod VBA

Di sini, kod VBA juga boleh membantu anda menyelesaikan tugas ini, sila lakukan seperti ini:

1. Tahan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Ekstrak nama rawak dari senarai:

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

Nota: Dalam kod di atas, B2 adalah sel mengandungi bilangan nama yang anda mahu ekstrak.

3. Selepas memasukkan kod itu, kemudian klik Alatan > Rujukan dalam dibuka Microsoft Visual Basic untuk Aplikasi tingkap, dan kemudian, dalam muncul Rujukan - VBAProject kotak dialog, semak Microsoft Scripting Runtime pilihan dalam Rujukan yang boleh didapati kotak senarai, lihat tangkapan skrin:

nama bertuah doc 2

4. Kemudian klik OK butang untuk keluar dari kotak dialog, kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak petanda muncul untuk mengingatkan anda memilih senarai data yang ingin anda ambil nama dari, lihat tangkapan skrin:

nama bertuah doc 3

5. Klik OK butang, dan kotak petanda lain muncul, sila pilih sel di mana anda mahu meletakkan hasilnya, lihat tangkapan skrin:

nama bertuah doc 4

6. Kemudian klik OK, dan bilangan nama yang dikehendaki telah dibuat secara rawak sekali gus, lihat tangkapan skrin:

nama bertuah doc 5


Pilih nama rawak untuk membuat cabutan bertuah dengan Kutools untuk Excel

Mungkin di atas dua kaedah adalah sukar bagi kebanyakan kita, di sini, jika ada Kutools untuk Excel, Dengan itu Julat Isih secara rawak ciri, anda boleh dengan cepat memilih nama secara rawak.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Excel, sila lakukan seperti ini:

1. Pilih senarai nama yang anda pilih secara rawak. Kemudian klik Kutools > Pertengahan > Julat Isih secara rawak, lihat tangkapan skrin:

nama bertuah doc 6

2. Di dalam Julat Isih secara rawak kotak dialog, di bawah pilih tab, masukkan nombor yang anda ingin pilih nama ke dalam Bilangan sel untuk dipilih kotak teks, dan kemudian pilih Pilih sel rawak dalam Pilih Jenis seksyen, lihat tangkapan skrin:

nama bertuah doc 7

3. Kemudian klik Ok butang, dan bilangan nama tertentu anda telah dipilih sebagaimana yang anda perlukan, lihat tangkapan skrin:

nama bertuah doc 8

Klik untuk Muat turun Kutools untuk Excel dan percubaan percuma Sekarang!



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ravikumar Mangipudi · 8 months ago
    Error:
    #NUM!



    Formula:
    =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, Mangipudi,
      This formula works well in my Excel workbook, which Excel version do you use?
      You can also give your problem as a screenshot here.