Vba aracılığıyla bir hücrenin boş olup olmadığı nasıl kontrol edilir?

Bir hücrenin boş olup olmadığını kontrol etmek için VBA’nın ISEMPTY işlevini kullanabilirsiniz. Bu fonksiyonda, kontrol etmek istediğiniz hücreyi belirtmek için range nesnesini kullanmanız gerekir ve bu hücre boşsa true, aksi halde false değerini döndürür. Sonucu almak için bir mesaj kutusu kullanabilir veya bir hücreyi kullanabilirsiniz.

Bir hücrenin boş olup olmadığını kontrol etmek için VBA’yı kullanın

1. “IsEmpty” işlev adıyla başlayın.
2. Kontrol etmek istediğiniz hücreyi belirtin.
3. Sonuç değerini almak için bir mesaj kutusu veya hücre kullanın.
4. Sonunda kodu çalıştırın.

 MsgBox IsEmpty(Range("A1"))

Birden fazla hücrenin boş olup olmadığını kontrol edin

Aralıktaki her hücre üzerinde yineleme yapmanız gerektiğinde, aralıktaki boş hücreleri kontrol etmek ve saymak istiyorsanız.

 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

Yukarıdaki kod A1:A10 aralığındaki her hücreden geçerek ISEMPTY fonksiyonunu kullanarak her hücrenin boş olup olmadığını tek tek kontrol eder.

Ve her boş hücre için bir sayım alır ve sonunda toplam hücre sayısını ve boş hücreleri içeren bir mesaj kutusu görüntüler.

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