Bugün, Visual Basic for Applications kullanarak bir veya birden çok hücrenin boş olup olmadığını kolayca kontrol etmeyi öğreneceğiz. İçerik, Excel 2019 / 365, 2016 ve Microsoft Office'in önceki sürümleriyle ilgilidir.
hazırlık çalışması
Excel'de VBA ile kodlamaya başlamadan önce geliştirme sekmenizin etkinleştirildiğinden emin olmanız gerekir. Durum böyle değilse, lütfen bu kısa eğiticiye bakın .
VBA ile Excel hücre aralığının boş olup olmadığını kontrol etme
- Excel'de Alt+F11 tuşlarına basarak Visual Basic ortamınızı açın
- Aşağıdaki kodu Çalışma Sayfanıza prosedür olarak veya alternatif olarak özel bir VBA modülüne ekleyin.
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
- Elektronik tablonuza gidin ve rastgele bir hücre aralığı seçin.
- Visual Basic düzenleyicisine geri dönün ve Anında Görüntüleyicinin (CTRL+G) görünür olduğundan emin olun - koddaki Debug.Print yöntemi sonucunu o pencereye çıkaracaktır.
- Kodunuzu çalıştırmak için F5'e basın.
- Hemen pencerede sonuçlara bakın.

- Tüm boş hücreler tanımlanacaktır.
Kodun olası uzantıları: Boş değerleri atlamak veya hücrelerin dolu olmaması durumunda hiçbir şey yapmamakla ilgileniyorsanız, bu kodu gerektiği gibi genişletebilirsiniz. Benzer şekilde, Aralığın kendisinin boş olup olmadığını kontrol edebilirsiniz, yani – siyah hücre içermiyor.
Boş olmayan alanları kontrol etme
Aynı şekilde, boş olmayan alanları kontrol etmek için IsEmpty özelliğini kullanabilirsiniz.
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If
Bonus: Boş hücreleri de vurgulamak istiyorsanız aşağıdaki kodu kullanın.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10quot;) myRange'daki Her myCell İçin ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Toplam " & ben ve ben " " dışında boş hücre(ler) & c& "."