Bagaimana cara memeriksa apakah suatu sel kosong melalui vba?

Untuk memeriksa apakah suatu sel kosong, Anda dapat menggunakan fungsi ISEMPTY VBA . Dalam fungsi ini, Anda perlu menggunakan objek rentang untuk menentukan sel yang ingin Anda periksa, dan mengembalikan nilai benar jika sel tersebut kosong, jika tidak maka akan salah. Anda dapat menggunakan kotak pesan atau menggunakan sel untuk mendapatkan hasilnya.

Gunakan VBA untuk memeriksa apakah sel kosong

1. Mulailah dengan nama fungsi “IsEmpty”.
2. Tentukan sel yang ingin Anda periksa.
3. Gunakan kotak pesan atau sel untuk mendapatkan nilai hasil.
4. Pada akhirnya, jalankan kodenya.

 MsgBox IsEmpty(Range("A1"))

Periksa apakah beberapa sel kosong

Jika Anda ingin memeriksa dan menghitung sel kosong dalam suatu rentang saat Anda perlu mengulangi setiap sel dalam rentang tersebut.

 Sub vba_check_empty_cells() Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange c = c + 1 If IsEmpty(myCell) Then i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "." End Sub

Kode di atas melewati setiap sel dalam rentang A1:A10 dan memeriksa setiap sel satu per satu menggunakan fungsi ISEMPTY apakah kosong atau tidak.

Dan untuk setiap sel kosong, dibutuhkan penghitungan, dan pada akhirnya menampilkan kotak pesan dengan jumlah total sel dan sel kosong.

Gunakan kode berikut jika Anda juga ingin menyorot sel kosong.

 Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "."