Cara Menyorot Nomor Lotere Dalam Spreadsheet Excel Menggunakan VBA

[ad_1]

Ketika peneliti lotere ingin menguji teori, itu ide yang baik untuk beberapa pengujian pada beberapa data nyata. Skenario yang umum adalah untuk menemukan kejadian angka tertentu dalam hasil terbaru.

Artikel ini menjelaskan cara menggunakan VBA untuk secara akurat menyorot angka tertentu selama penarikan baru-baru ini.

Membuat Parameter Awal Untuk Program VBA

Kami harus menetapkan tiga faktor utama.

  • Kumpulan data awal hasil
  • Di mana analisis harus dimulai
  • Daftar nomor yang harus dicari

Data harus terlihat seperti ini:


8 19 26 29 30 33
2 9 12 22 35 39
6 9 12 19 20 31
5 16 20 22 27 29
18 20 35 15 31 2
3 19 20 27 31 35

Selanjutnya, kita perlu mempertimbangkan subkumpulan data untuk dianalisis; dalam contoh ini kita akan mengambil empat baris terakhir. Akhirnya, kita perlu menentukan angka-angka yang harus dicari kode.

Membuat Kode VBA Dan Menyoroti Nomor Yang Dipilih

Pertama, kita akan pindah ke tempat data disimpan dan membuat rentang. Rentang ini hanyalah data yang kita inginkan agar kode tersebut diproses. Kami akan menghapus pemformatan sehingga kode kami mulai lagi dari awal setiap kali kami menjalankannya.


Dim sebagai Rentang
Lembar kerja (1) .Aktifkan
Rentang ("a1"). Aktifkan
Cells.ClearFormats

Selanjutnya, kita akan memberi tahu kode VBA berapa banyak baris dari bawah yang ingin kita gunakan; kita mengatakannya untuk melihat 4 undian terakhir.

Juga, kami akan menentukan parameter data, jumlah kolom dan baris. Ini akan membantu kami membuat rentang data.


myRows = 4

allRows = ActiveCell.End (xlDown) .Row
allcols = ActiveCell.End (xlToRight) .Kolom
startRow = allRows - myRows + 1

Sekarang kita benar-benar dapat memilih data. Jika Anda mengakhiri program di sini, Anda akan melihat empat baris data terakhir yang dipilih oleh kursor.


add1 = Range ("a" & startRow) .Address
add2 = ActiveCell.Offset (allRows - 1, allcols - 1) .Address
Set rng = Rentang (add1, add2)
rng. Pilih

Dengan data kami dipilih, kami perlu menentukan nomor yang kami pilih, jalankan melalui pemilihan dan sorot setiap angka yang ditemukan.


myNumber = ", 5,27,"

Untuk x = 1 Ke rng.Rows.Count

Untuk y = 1 Ke rng.Columns.Count

testNo = "," & rng.Cells (x, y) & ","

Jika InStr (myNumber, testNo)> 0 Kemudian

rng.Cells (x, y) .Font.Bold = Benar

Berakhir jika

Berikutnya
Berikutnya

Kode di atas disebut sebagai loop nested; itu akan melalui baris data dengan baris dan kolom demi kolom untuk menemukan angka-angka. Dalam contoh ini, setiap angka yang ditemukan diubah menjadi huruf tebal.

Satu poin penting adalah kode untuk mengidentifikasi angka aktual dan bukan angka yang membingungkan seperti 5 dan 35. Itulah sebabnya kode pencarian menambahkan koma di sekitar angka sehingga mencari ", 5", dan bukan hanya "5".

Ringkasan

Meskipun Excel memiliki alat pemformatan bersyarat sendiri, untuk penelitian lotto alat standar tidak akan benar-benar melakukan pekerjaan, terutama untuk ide dan teori yang lebih kompleks. Di sinilah sedikit pengetahuan VBA dapat mengambil penelitian lotto Anda ke ketinggian baru.

[ad_2]

Leave a Reply

Your email address will not be published. Required fields are marked *