Note: The other languages of the website are Google-translated. Back to English

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

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:

 

perhatikan pita 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.


sebagai daftar semua kombinasi 1

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


Kutools untuk Excel mencakup lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

Artikel terkait:


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 kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (15)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Tolong lakukan dengan mudah untuk menemukan perangkat lunak
Komentar ini diminimalkan oleh moderator di situs
Saya ingin memenangkan beberapa nomor keberuntungan
Komentar ini diminimalkan oleh moderator di situs
: Saya ingin mencoba program baru Anda melihat bagaimana angka memprediksi
Komentar ini diminimalkan oleh moderator di situs
hitung tebakan hari berikutnya undian kerala
Komentar ini diminimalkan oleh moderator di situs
hay, Santhanam apakah Anda setiap menang dengan program ini?
Komentar ini diminimalkan oleh moderator di situs
hitung nomor lotere hari berikutnya untuk lotere kerala - india
Komentar ini diminimalkan oleh moderator di situs
Apa tujuan dari COUNTIF(B$1:B1,B1)-1 dalam rumus di langkah B?
Komentar ini diminimalkan oleh moderator di situs
Hai hyungsup kim,
COUNTIF(B$1:B1,B1)-1 akan mencegah duplikat di Kolom B. Misalnya, jika B1 adalah nilai unik, bagian ini akan mengembalikan 0 yang tidak akan memengaruhi hasil peringkat; jika B1 adalah duplikat, bagian ini akan sedikit menyesuaikan hasil peringkat.
Komentar ini diminimalkan oleh moderator di situs
Hai Saya telah mencoba cara Vlookup yang Anda tunjukkan di sini, ini berfungsi dengan baik dan mudah untuk menghasilkan angka untuk rentang 1 hingga 49.

Tapi saya berpikir untuk menghilangkan beberapa angka dalam permainan seperti misalnya daripada menjalankan angka, saya akan memiliki 25 angka dari 1 hingga 49. Bagaimana saya perlu menyesuaikan rumus Vlookup agar berfungsi?
Rated 5 dari 5
Komentar ini diminimalkan oleh moderator di situs
Hai Yogi, maaf saya tidak begitu mengerti permintaan Anda. Apakah yang Anda maksud: memiliki 25 angka dari 1 sampai 49
Komentar ini diminimalkan oleh moderator di situs
Ya 25 angka dari 1 sampai 49.
Saya telah mencoba menggunakan rumus yang sama tetapi sekali nomor yang lebih besar dari 25 dipilih nomor berikutnya dalam urutan tidak dapat ditampilkan dan kesalahan terjadi.
Rated 5 dari 5
Komentar ini diminimalkan oleh moderator di situs
Terima kasih Amanda atas bantuannya.
Komentar ini diminimalkan oleh moderator di situs
File tidak berfungsi dengan fromula, apa yang salah

tolong beritahu saya

saya menyalin formular semuanya benar.
Komentar ini diminimalkan oleh moderator di situs
Halo,

Bisakah Anda melampirkan file yang sedang Anda kerjakan?

Amanda
Komentar ini diminimalkan oleh moderator di situs
sistem tidak berfungsi, apa yang salah saya telah memasukkan semua formular
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL