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 - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30-hari, tidak perlu 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 - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30-hari, tidak perlu kartu kredit! Uji Coba Gratis 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 - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30-hari, tidak perlu 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
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

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!















