online

Semua angka dalam lotre ditarik sepenuhnya secara acak sehingga peluang memenangkan lotre adalah beberapa juta berbanding satu. Tapi itu tidak berarti Anda tidak dapat meningkatkan akal sehat dan sedikit pengetahuan tentang lembar kerja Excel dan VBA.

Analogi Coin Loss dan Hasil Lotto

Contohnya adalah perbandingan yang menarik. Setiap lemparan harus memberikan hasil acak; kepala atau ekor dengan hasil

Tetapi jika Anda telah melemparkan lima kepala berturut-turut, apa peluang kepala lainnya? Jawabannya masih lima puluh persen, tetapi akal sehat memberi tahu Anda semakin banyak kepala berturut-turut, semakin besar kemungkinan lemparan berikutnya akan menghasilkan ekor, meskipun logika ini salah Judi Bola.

Jawaban atas paradoks ini terletak pada pepatah lama; Dalam dunia dengan waktu dan kemungkinan tanpa batas, semua hasil dimungkinkan

Kombinasi Nomor Lotto Yang Harus Dihindari

Bagaimana efek lemparan koin pada peningkatan peluang kami dalam lotre? Sama seperti kita tidak mengharapkan rentetan kepala untuk melanjutkan. Berikut ini beberapa contohnya:

Nomor berurutan seperti 1,2,3,4,5,6
Kelipatannya seperti 4,8,12,16,18
Terlalu banyak hasil aneh atau genap
Anda mungkin dapat menyusun daftar hasil yang tidak diinginkan sendiri Paradoks memberitahu kita kombinasi ini akan terjadi karena beberapa hal, tetapi pengalaman hidup kita mengatakan bahwa kita akan menunggu lama.

Menggunakan Excel Spreadsheet dan VBA Untuk Menghasilkan Angka Lotto

Program komputer seperti Excel dan VBA dapat digunakan sebagai hasilnya.

Pertama, Anda perlu tahu cara membuat angka acak VBA membuatnya mudah dengan kode berikut:

x = clng (39 * Rnd (+ 1)
Kode menciptakan angka acak antara 1 dan 40, tetapi kita membutuhkan sedikit lebih banyak kode untuk membuat daftar 6 angka. Sebagai contoh, kita perlu memastikan Kami akan menambahkan nomor ke objek kamus hanya jika memenuhi kriteria kami.

mendefinisikan variabel dan objek kamus
Dim x, y As Long
Dim addno sebagai Boolean
Dim dict
Set dict = CreateObject (“Scripting.Dictionary”)
Acak

buat 6 angka kami
Untuk y = 1 hingga 6
addno = Salah

Lakukan
x = 39 * Rnd () + 1
hanya tambahkan nomornya
Jika tidak dict.Exists (CLng (x)) Kemudian addno = True

program filter lain di sini
Jika addo boolean benar, maka kami menambahkan nomor ke daftar, keluar dari loop dan ‘cari nomor berikutnya

Jika addno maka
dict.add y, CLng (x)
Keluar dari Do
Akhiri Jika

Loop
Selanjutnya

cetak hasilnya
Untuk y = 1 Ke dict.Count
Debug.Print dict (y);
Selanjutnya

Kode menghasilkan serangkaian 6 angka unik acak antara 1 dan 40. Jika kita membutuhkan lebih banyak garis angka, kita cukup mengulangi prosesnya

Menggunakan VBA Untuk Membuat Nomor Loto Tersaring Anda Sendiri

Sekarang Anda dapat menerapkan filter Anda di luar kendali. Misalnya, jika Anda tidak menginginkan “1” dalam daftar, cukup terapkan yang berikut ini:

jika clng (x) = 1 maka addno = false
Baris kode di atas meminta nomor acak lain untuk memenuhi filter.