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.

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

  • 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 & "."

Tinggalkan Komentar

Checklist Perencanaan Acara & Template Anggaran yang Dapat Dicetak untuk Word

Checklist Perencanaan Acara & Template Anggaran yang Dapat Dicetak untuk Word

Gunakan checklist perencanaan acara dan template anggaran yang dapat dicetak di Word ini untuk melacak penanggung jawab, tenggat waktu, biaya, vendor, dan kesiapan hari-H dengan pemeriksaan kualitas yang jelas.

Cara Memperbaiki Rumus Excel yang Tidak Menghitung Otomatis dalam 3 Langkah Mudah

Cara Memperbaiki Rumus Excel yang Tidak Menghitung Otomatis dalam 3 Langkah Mudah

Perbaiki rumus Excel yang tidak menghitung secara otomatis dalam tiga langkah: pulihkan mode perhitungan, paksa perhitungan ulang, dan perbaiki rumus yang diformat sebagai teks.

Template Jadwal Pembersihan Mingguan yang Dapat Dicetak untuk Host Airbnb (Word & PDF)

Template Jadwal Pembersihan Mingguan yang Dapat Dicetak untuk Host Airbnb (Word & PDF)

Gunakan jadwal pembersihan mingguan yang dapat dicetak ini untuk hosting Airbnb guna mengatur pergantian tamu, pembersihan rutin, pengisian ulang stok, inspeksi, dan konversi dari Word ke PDF.

Template Lembar Log Pemeliharaan Peralatan Excel untuk Manajer Bengkel: Panduan Penyiapan 4 Langkah

Template Lembar Log Pemeliharaan Peralatan Excel untuk Manajer Bengkel: Panduan Penyiapan 4 Langkah

Buat log pemeliharaan peralatan Excel yang praktis untuk manajer bengkel dengan ID aset, riwayat servis, tanggal jatuh tempo, kontrol status, pelacakan downtime, dan daftar periksa audit akhir.

Template PowerPoint Pitch Deck Investor Minimalis untuk Startup Teknologi: Blueprint 12 Slide yang Praktis

Template PowerPoint Pitch Deck Investor Minimalis untuk Startup Teknologi: Blueprint 12 Slide yang Praktis

Buat pitch deck investor minimalis di PowerPoint dengan struktur 12 slide praktis untuk startup teknologi, ditambah panduan mengenai bukti, metrik, klaim penggalangan dana, dan template .potx yang dapat digunakan kembali.

Template PowerPoint Presentasi Listing Properti Modern Gratis: Panduan Praktis Pitching untuk Penjual

Template PowerPoint Presentasi Listing Properti Modern Gratis: Panduan Praktis Pitching untuk Penjual

Buat presentasi listing properti modern di PowerPoint dengan blueprint slide gratis, tips template terverifikasi, peringatan CMA, pemeriksaan hak foto, dan perlindungan Fair Housing.

HubSpot Free CRM vs. Zoho CRM: Pilihan Terbaik untuk Agen Properti Independen di Tahun 2026

HubSpot Free CRM vs. Zoho CRM: Pilihan Terbaik untuk Agen Properti Independen di Tahun 2026

Bandingkan HubSpot Free CRM dan Zoho CRM untuk agen properti independen, termasuk kontak, pipeline, otomatisasi, kustomisasi, penjadwalan, batas penggunaan, dan pemicu upgrade.

Cara Memperbaiki Audio Perekaman Layar PowerPoint yang Tidak Berfungsi di Windows

Cara Memperbaiki Audio Perekaman Layar PowerPoint yang Tidak Berfungsi di Windows

Perbaiki rekaman layar PowerPoint yang senyap dengan memeriksa kontrol Audio, izin mikrofon Windows, perangkat input aktif, ekspektasi audio sistem, dan pembaruan Office.

Template PDF Time Blocking Harian yang Dapat Dicetak untuk Profesional WFH: Panduan Pemula

Template PDF Time Blocking Harian yang Dapat Dicetak untuk Profesional WFH: Panduan Pemula

Gunakan template PDF time blocking harian yang dapat dicetak untuk merencanakan jam kerja fokus WFH, rapat, istirahat, tugas admin, dan buffer yang realistis tanpa membebani hari Anda.

Template Presentasi Laporan Status Proyek Gratis untuk Tim Agile

Template Presentasi Laporan Status Proyek Gratis untuk Tim Agile

Buat presentasi laporan status proyek Agile yang ringkas dengan tujuan sprint, hasil, risiko, sinyal kualitas, keputusan, dan langkah selanjutnya—tanpa mengubah slide menjadi tumpukan backlog.