Hoe controleer ik of een cel leeg is via vba?

Om te controleren of een cel leeg is, kunt u de ISEMPTY-functie van VBA gebruiken. In deze functie moet u het bereikobject gebruiken om de cel op te geven die u wilt controleren, en het retourneert waar als die cel leeg is, anders onwaar. U kunt een berichtvenster of een cel gebruiken om het resultaat te krijgen.

Gebruik VBA om te controleren of een cel leeg is

1. Begin met de functienaam “IsEmpty”.
2. Geef de cel op die u wilt controleren.
3. Gebruik een berichtvenster of cel om de resultaatwaarde op te halen.
4. Voer aan het einde de code uit.

 MsgBox IsEmpty(Range("A1"))

Controleer of meerdere cellen leeg zijn

Als u lege cellen in een bereik wilt controleren en tellen, moet u elke cel in het bereik herhalen.

 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

De bovenstaande code doorloopt elke cel in het bereik A1:A10 en controleert elke cel één voor één met behulp van de ISEMPTY-functie, of deze leeg is of niet.

En voor elke lege cel wordt een telling uitgevoerd en aan het einde wordt een berichtvenster weergegeven met het totale aantal cellen en lege cellen.

Gebruik de volgende code als u ook lege cellen wilt markeren.

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