Cara Sorot Nomor Undian Dalam Sebuah Spreadsheet Excel Menggunakan VBA

Ketika peneliti undian ingin menguji teori, itu ide yang baik untuk jadi beberapa pengujian pada beberapa data real. Skenario khas adalah untuk menemukan kejadian dari nomor tertentu dalam hasil terakhir togel manila.

Artikel ini menjelaskan cara menggunakan VBA untuk secara akurat menyorot nomor tertentu lebih baru-baru ini menarik.

Membuat Parameter Awal Untuk Program VBA

Kita harus membangun tiga faktor utama judi bola terpercaya.

Awal set data dari hasil
Di mana analisis harus dimulai dari
Daftar nomor untuk mencari

Data harus terlihat seperti ini forum dewa nett:

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 subset data untuk menganalisis; dalam contoh ini kita akan mengambil empat baris terakhir. Akhirnya, kita perlu mendefinisikan nomor kode harus mencari.

Membuat The VBA Kode Dan Menyoroti Bilangan Dipilih

Pertama, kita akan pindah ke mana data diadakan dan menciptakan berbagai. Rentang ini hanya data yang ingin kita kode untuk bergerak melalui. Kami akan menghapus format sehingga kode kita mulai lagi dari awal setiap kali kita menjalankannya.http://okecash88.com/

Dim Ping Sebagai Rentang

Lembar kerja (1) .Activate

Range ( “a1”). Activate

Cells.ClearFormats

Selanjutnya, kami akan memberitahu kode VBA berapa banyak baris dari bawah kita ingin menggunakan; kita mengatakan hal itu untuk melihat yang terakhir 4 kali seri.

Juga, kami akan menentukan paremeters data, jumlah kolom dan baris. Ini akan membantu kita menciptakan berbagai data.

myRows = 4

allRows = ActiveCell.End (xlDown) .Row

allcols = ActiveCell.End (xlToRight) .Column

startRow = allRows – myRows + 1

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

add1 = Range ( “a” & startRow) .Address

add2 = ActiveCell.Offset (allRows – 1, allcols – 1) .Address

Set Ping = Range (add1, add2)

rng.Select

Dengan data kami yang dipilih, kita perlu mendefinisikan nomor kami dipilih, dijalankan melalui seleksi dan menyoroti setiap nomor yang ditemukan.

myNumbers = “, 5,27,”

Untuk x = 1 Untuk rng.Rows.Count

Untuk y = 1 Untuk rng.Columns.Count

testNo = “,” & rng.Cells (x, y) & “,”

Jika InStr (myNumbers, testNo)> 0 Then

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

Berakhir jika

Berikutnya

Berikutnya

Kode di atas disebut sebagai loop bersarang; itu akan melalui baris data dengan baris dan kolom dengan kolom untuk menemukan angka-angka. Dalam contoh ini setiap nomor ditemukan berubah menjadi huruf tebal.

Satu hal penting adalah untuk kode untuk mengidentifikasi jumlah sebenarnya dan tidak membingungkan angka seperti 5 dan 35. Itu sebabnya kode pencarian menambahkan koma sekitar angka sehingga mencari “, 5,” dan bukan hanya “5”.

Ringkasan

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

A. Lewis Gibson adalah mahasiswa lama dari sistem jumlah dan tren. Berpengalaman Excel dan VBA programmer, ia mengembangkan modul bagi mereka yang tertarik dalam menciptakan sistem lotre mereka sendiri. Dia bisa dihubungi melalui dua website-nya.