Bagaimana cara memeriksa apakah sel atau rentang beberapa sel kosong dengan Excel VBA?

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