Bagaimana cara menghasilkan nomor lotere di excel?
Pernahkah Anda berpikir untuk menghasilkan nomor lotere di Excel, atau membuat generator nomor lotre di Excel sendiri? Pada artikel ini, saya memberikan tiga metode bagi Anda untuk menyelesaikannya dengan mudah.
- Hasilkan nomor lotere dengan Fungsi Excel (5 langkah)
- Hasilkan nomor lotere dengan VBA Macro
- Hasilkan nomor lotere dengan Kutools for Excel (2 langkah)
Hasilkan nomor lotere dengan Fungsi Excel
Metode ini akan memandu Anda dalam menerapkan beberapa fungsi Excel untuk menghasilkan nomor lotre. Dan Anda dapat melakukan hal berikut:
1. Di lembar kerja kosong, ketik header kolom di Range A1: C1 seperti gambar di bawah ini yang ditunjukkan:
2. Masukkan rumus di Kolom A, Kolom B, dan Kolom C:
(1) Di Sel A2, masukkan rumusnya = RAND (), lalu seret gagang isian ke rentang A2: A50.
(2) Di Sel B2, masukkan rumus =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, lalu seret Fill Handle ke Range B2: B50. (Dalam rumusnya, A2 adalah nomor acak yang tersisa untuk sel saat ini, $ A $ 2: $ A $ 50 adalah semua nomor acak yang kita dapatkan dengan rumus pertama, B $ 1 adalah sel pertama di Kolom B, dan B1 adalah sel di atas arus sel).
(3) Dalam Rentang C2: C50, masukkan nomor urut dari 1 hingga 49.
Kemudian Anda akan mendapatkan tabel seperti screen shot kiri yang ditunjukkan:
Formula terlalu rumit untuk diingat? Simpan rumus sebagai entri Teks Otomatis untuk digunakan kembali hanya dengan satu klik di masa mendatang! Baca lebih banyak… Free trial |
3. Temukan rentang kosong, ketik nomor urut secara horizontal dalam satu baris seperti gambar di bawah ini yang ditunjukkan:
4. Di bawah nomor urut pertama 1, masukkan rumusnya = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, SALAH) ke dalamnya, dan seret Fill Handle ke Range yang Anda butuhkan.
Note: Dalam rumus ini, G1 adalah sel dengan nomor urut pertama 1, $ B $ 1: $ C $ 50 adalah kolom Peringkat Unik dan kolom Nomor Bola, 2 berarti menemukan nilai di kolom kedua Range $ B $ 1: $ C $ 50 .
Kemudian Anda akan mendapatkan nomor lotere seperti gambar di bawah ini:
5. Itu opsional. Untuk mencegah nomor lotere berubah secara otomatis saat lembar kerja saat ini diperbarui, Anda dapat mengklik Rumus > Opsi Perhitungan > panduan.
Buat daftar dengan mudah semua kombinasi dari beberapa rangkaian data di Excel
Kutools untuk Excel Cantumkan Semua Kombinasi utilitas dirancang untuk menggeneralisasi semua kemungkinan kombinasi dari beberapa rangkaian data yang diberikan, dan mencantumkan kombinasi ini dalam kolom seperti gambar di bawah ini.
Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now
Hasilkan nomor lotere dengan VBA Macro
Metode ini akan memandu Anda untuk menerapkan makro VBA untuk menghasilkan nomor lotre di Excel. Harap lakukan sebagai berikut:
1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul untuk membuka jendela modul baru, dan tempel kode VBA berikut ke dalamnya:
VBA: Pembuat Nomor Lotere di Excel
Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub
3. Tap F5 atau klik Run tombol untuk menjalankan makro VBA ini.
4. Sekarang di kotak dialog yang muncul, tentukan sel untuk menampilkan nomor lotere, dan klik OK .
Kemudian Anda akan melihat 6 nomor lotere unik yang dihasilkan dan ditampilkan di sel yang ditentukan.
Hasilkan nomor lotere dengan Kutools for Excel
Jika Anda menginstal Kutools for Excel, itu Masukkan Data Acak utilitas dapat membantu Anda menghasilkan nomor lotre di Excel sekaligus.
Kutools untuk Excel - Dilengkapi dengan lebih dari 300 alat penting untuk Excel. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Unduh sekarang!
1. Pilih 6 sel yang berdekatan, seperti A1: F1, lalu klik Kutools > Menyisipkan > Masukkan Data Acak.
2. Sekarang kotak dialog Sisipkan Data Acak keluar. Pergi ke Bilangan bulat tab, ketik 1 in Dari kotak, ketik 49 in Untuk kotak, centang Nilai-nilai unik pilihan, dan klik OK tombol. Sekarang Anda akan melihat 6 nomor lotere unik dibuat dan ditampilkan di sel yang dipilih segera.
Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now
Demo: hasilkan nomor lotere dengan Kutools for Excel
Artikel terkait:
Pilih sel secara acak berdasarkan kriteria di Excel
Tambahkan warna background / fill secara acak untuk sel di Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!