Vba: jak używać „jeśli nie jest pusty”

Możesz użyć Not IsEmpty w VBA, aby sprawdzić, czy komórka nie jest pusta.

Oto przykład użycia tej składni w makrze:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Ten konkretny przykład sprawdza, czy każda komórka w zakresie A2:A13 nie jest pusta, a następnie wyświetla komunikat „Komórka nie jest pusta” lub „Komórka jest pusta” dla każdej pasującej komórki w zakresie B2:B13 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak używać „Jeśli nie jest pusty” w VBA

Załóżmy, że mamy w Excelu następującą listę nazw drużyn koszykarskich:

Załóżmy, że chcemy sprawdzić, czy każda komórka w zakresie A2:A13 nie jest pusta, a następnie wyświetlić wyniki w odpowiednich komórkach w zakresie B2:B8 .

W tym celu możemy utworzyć następujące makro:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B informuje nas, czy każda z odpowiednich komórek w kolumnie A jest pusta, czy nie.

Możesz także użyć poniższego makra, aby po prostu zwrócić samą nazwę zespołu w kolumnie B, jeśli wartość w kolumnie A nie jest pusta:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B zwraca teraz nazwę drużyny z kolumny A, jeśli komórka nie jest pusta.

Uwaga : Pełną dokumentację metody VBA IsEmpty można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak liczyć wystąpienia znaków w ciągu
VBA: jak sprawdzić, czy ciąg zawiera inny ciąg
VBA: formuła na „Jeśli” komórka zawiera”