
Ya, memang dalam Microsoft Excel ada sebuah pandangan atau pola berfikir bahwa kebutuhan mengolah angka harusnya bisa diselesaikan hanya dengan menggunakan Formula, akan tetapi jika dengan menggunakan cara ini tidak berhasil menyelesaikan masalah dalam hal mengolah angka tersebut, maka pilihannya akan jatuh pada Macro VBA, dan untuk pilihan Macro VBA bukan sebuah keharusan atau kewajiban. Mungkin gagalnya menyelesaikan masalah tersebut terletak pada ketidaktahuan pengguna semata. Sementara bagi beberapa pengguna Microsoft Excel lainnya, mereka memiliki anggapan bahwa antara Formula Microsoft Excel dan Macro VBA adalah saling melengkapi.
Contoh yang paling simpel yang dapat dilakukan hanya dengan menggunakan Formula Excel adalah ketika kita ingin mendeteksi apakah nilai yang terdapat dalam sebuah sel berisi nilai ganjil atau genap. Menyelesaikan kasus seperti ini memang sangat cepat dan sangat mudah dilakukan dengan menggunakan Formula, karena Microsoft Excel sudah menyediakan formulanya.
Untuk mendeteksi nilai genap, maka formula yang digunakan adalah
Kedua formula tersebut akan menghasilkan nilai TRUE jika sel tersebut memuat informasi yang terkait, dan akan menghasilkan nilai FALSE jika salah.
Sederhananya penulisan kedua formula di atas, ternyata tidak berlaku jika anda ingin mendeteksi nilai ganjil atau genap menggunakan Macro VBA. Dan setidaknya, anda harus sedikit memiliki modal pengetahuan tentang Logika IF jika ingin tetap melakukannya melalui Macro VBA. Untungnya saya sudah menyiapkan beberapa baris Macro VBA yang bisa anda coba untuk mendeteksi nilai ganjil atau genap.
Sub ganjil_genap() For i = 3 To [a3].End(xlDown).Row If Cells(i, 1) Mod 2 = 0 Then MsgBox "Sel A" & i & " (" & Cells(i, 1) & ") = Genap" Else MsgBox "Sel A" & i & " (" & Cells(i, 1) & ") = Ganjil" End If Next End SubParameter penting dari script kode di atas terletak pada operator
Salah satu penyebabnya dikarenakan saya menggunakan angka 2 sebagai pembaginya, tujuannya adalah hasil yang nantinya didapatkan berupa dua angka saja, yakni angka 0 dan 1. Bagaimana cara kerja operator atau formula MOD ini?, Ok, kita ambil salah satu baris dari gambar di atas, sebagai contoh baris ke 4 yang memuat nilai 20, dan penyelesaiannya adalah seperti berikut :
=20-2*(pembulatan dari hasil(20/2)
=20-2*10
=20-20
=0
Sekarang mari kita coba dengan baris yang lain, ambil contoh baris ke-7 yang berisi angka 59, dan cara menghitungnya sama dengan cara di atas ya.=20-2*10
=20-20
=0
=59-2*(pembulatan dari hasil(59/2)
=59-2*29
=59-58
=1
=59-2*29
=59-58
=1
Dalam script kode Macro VBA yang saya tulis di atas, syntax penulisan operator MOD tidak seperti ketika kita menulisnya di lembar kerja Microsoft Excel sebagai formula, ada sedikit perbedaan dalam hal menaruh angka yang ingin di bagi dan angka pembaginya - sehingga jika Formula Mod diterjemahkan ke dalam Macro VBA, maka syntax penulisannya akan menjadi seperti
Dan akhirnya, hasil kode Macro VBA di atas yang sudah lulus uji akan tampak seperti tampilan di bawah ini :

Selamat...anda sudah berhasil mengecek sebuah nilai ganjil atau genap yang terdapat di lembar kerja menggunakan Macro VBA excel. Semoga tutorial edisi kali ini membawa manfaat untuk anda. Jangan lupa untuk selalu mengunjungi situs ini secara berkala agar anda tidak ketinggalan tutorial Microsoft Excel lainnya.
Incoming Search Terms
Cara alternatif mengetahui nilai ganjil atau genap menggunakan Macro VBA Mengenal formula MOD untuk mengecek nilai ganjil atau genap
Cara menghitung formula MOD
Partner belajar Formula Microsoft Excel terbaik
ISEVEN - ISODD dalam Macro VBA
Menentukan bilangan genap atau ganjil pada Excel
Membuat Kode untuk menenutkan angka ganjil atau genap dari data
Rumus Excel menghitung bilangan ganjil dan genap
Terimakasih sudah membaca
Tutorial: Cara Mendeteksi Nilai Ganjil atau Genap Dengan Macro VBA Excel
Label: Loop - Author: excelive
Tutorial: Cara Mendeteksi Nilai Ganjil atau Genap Dengan Macro VBA Excel
Label: Loop - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :