Hari ini kita akan belajar tentang cara mudah memeriksa apakah satu atau beberapa sel kosong menggunakan Visual Basic for Applications. Konten relevan untuk Excel 2019/365, 2016 dan versi Microsoft Office yang lebih lama.
Pekerjaan persiapan
Sebelum memulai pengkodean dengan VBA di Excel, Anda harus memastikan bahwa tab pengembangan Anda diaktifkan. Jika bukan itu masalahnya, silakan lihat tutorial singkat ini .
Memeriksa apakah rentang sel Excel kosong dengan VBA
- Di Excel, buka lingkungan Visual Basic Anda dengan menekan Alt+F11
- Masukkan kode berikut sebagai prosedur di Lembar Kerja Anda, atau sebagai alternatif dalam modul VBA khusus.
Sub Check_Cell_is_empty_alt()
Dim rng As Range
Set rng = Selection
For Each Cell In rng
If IsEmpty(Cell.Value) = True Then
Debug.Print ("Empty")
Else
Debug.Print ("Not Empty")
End If
Next Cell
End Sub
- Buka spreadsheet Anda dan pilih rentang sel yang berubah-ubah.
- Kembali ke editor Visual Basic dan pastikan bahwa penampil Segera (CTRL+G) terlihat – karena metode Debug.Print dalam kode akan menampilkan hasilnya ke jendela itu.
- Tekan F5 untuk menjalankan kode Anda.
- Lihat hasilnya di jendela langsung.

- Semua sel kosong akan diidentifikasi.
Kemungkinan ekstensi kode: Anda jelas dapat memperluas kode ini sesuai kebutuhan jika Anda tertarik untuk melewatkan nilai kosong atau tidak melakukan apa pun jika sel tidak penuh. Demikian pula, Anda dapat memeriksa apakah Rentang itu sendiri kosong, yaitu – tidak ada sel hitam yang terkandung.
Memeriksa bidang yang tidak kosong
Dengan cara yang sama, Anda dapat menggunakan properti IsEmpty untuk memeriksa bidang yang tidak kosong.
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If
Bonus: Gunakan kode berikut jika Anda ingin menyorot sel kosong juga.
Redupkan i Selama Redupkan c Selama Redupkan myRange As Range Redupkan myCell As Range Setel myRange = Range("A1:A10") Untuk Setiap myCell Dalam myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Total ada " & saya & " sel kosong dari " & c & "."