kasino

Cara Menggunakan Excel dan VBA Buat Daftar Angka Unik Dari Undian Lotto Sebelumnya

Salah satu teori yang dipromosikan banyak peneliti adalah bahwa beberapa angka memiliki frekuensi tinggi terjadi. Nomor-nomor panas ini dimungkinkan

Artikel ini menunjukkan kepada Anda berapa banyak baris kode VBA dapat menghitung dan menghitung angka unik dari undian lotre terbaru Taruhan Bola Resmi.

Menyiapkan Data Lotto Di Excel

Dengan file Excel terbuka, Anda dapat menyalin dan menempelkan angka dari beberapa gambar terbaru langsung ke spreadsheet. Data Anda mungkin terlihat seperti ini:

4 5 12 30 35 36 43

17 5 27 22 29 35 31

18 35 25 6 19 24 12

16 10 40 19 21 31 1

29 40 16 33 15 45 23
Ini sebenarnya adalah hasil lima minggu terakhir dari permainan “Oz Lotto” di Australia.

Keluar dari angka unik dan kemudian daftar; Ini adalah angka “panas” kami untuk penarikan di masa depan.

Menulis Kode VBA untuk Menemukan Angka Unik

Dengan data unik kami Kami akan mulai dengan mendefinisikan beberapa variabel dan kamus

Dim rng Sebagai Rentang

Dim x, y, z As Long

Dim txt Sebagai String

Redup dictTemp

Set dictTemp = CreateObject (“Scripting.Dictionary”)

Selanjutnya, kami akan memilih nomor unik.

Lembar kerja (1). Aktifkan

Range (“a1”). Aktifkan

Set rng = ActiveCell.CurrentRegion

Perintah “wilayah saat ini” sangat kuat di VBA dan memberi Anda kemampuan untuk memilih data dengan cepat dan efisien.

Sekarang kita dapat mengulang-ulang kamus, tetapi hanya jika belum ditambahkan

Untuk x = 1 Ke rng.Rows.Count
Untuk y = 1 Ke rng.Columns.Count

z = rng.Rows (x) .Columns (y)

Jika tidak dictTemp.exists (z) Kemudian dictTemp.Add z, z

Selanjutnya

Selanjutnya

Lingkaran “untuk dan selanjutnya” tampaknya sedikit membingungkan. Secara efektif kami mencari di setiap baris Jenis perintah ini kadang-kadang disebut nested loop: loop dalam satu loop.

Kamus kami sekarang seharusnya hanya berupa nilai unik, jadi kami siap menulis ringkasan.

rng.End (xlDown) .Offset (2, 0) .Pilih

ActiveCell.Value = “Ringkasan”

ActiveCell.Offset (1, 0) = “Jumlah total:”

ActiveCell.Offset (1, 2) = rng.Cells.Count

ActiveCell.Offset (2, 0) = “Jumlah Angka:”

ActiveCell.Offset (2, 2) = dictTemp.Count

Akhirnya kita bisa menunjukkan kode kita ke nomor unik keluar. Ini mungkin menjadi dasar kombinasi baru.

ActiveCell.Offset (3, 0) = “Angka:”

txt = “”

Untuk setiap kunci di diktemp

txt = txt & key & “,”

Selanjutnya

ActiveCell.Offset (3, 2) = txt

Ketika saya menjalankan kode, hasilnya adalah output berikut.

Ringkasan

Total angka: 35

Jumlah Hitungan: 26

Nomor: 4,5,12,30,35,36,43,17,27,22,29,31,18,25,6,19,24,16,10,40,21,1,33,15 45,23

Kode dapat dengan mudah dikembangkan untuk angka-angka yang digandakan. Anda dapat menambahkan angka duplikat ke baris atau array kedua.

Ringkasan

Artikel ini telah menunjukkan cara mengambil beberapa hasil lotre terbaru dan mencetak daftar nomor unik. Hasilnya dicapai dengan hanya beberapa baris kode dan menunjukkan kekuatan hasil lotto penelitian dengan Excel dan VBA.