Überprüfen Sie, Ob excel-Zelle leer ist

Brauche ich den vba-code für excel. Ich bin der überprüfung, ob A1, B7, C9 leer onclick.

Wenn Sie leer sind (eine oder alle der Variablen ist/sind leer), habe ich zurückgeben müssen:

"so, so, so dass die Zelle leer ist, klicken Sie auf ok, um ihn zu füllen"

Wenn keine der Zellen leer ist, oder wenn alle von Ihnen sind nicht leer, oder Sie enthalten einen beliebigen Wert, ich muss zurück:

"Mach mein Zeug"

Gibt es einen link zu einer bestimmten Arbeitsmappe, aber ich wollte hier auch.

  • Können Sie uns zeigen, was Sie haben um bis nun mit Ihr versucht?
  • Wenn einer die Antwort für Sie arbeitet, dann akzeptieren Sie bitte durch anklicken das Häkchen neben es. stackoverflow.com/about
InformationsquelleAutor user2872175 | 2013-10-11
  1. 1
    Sub tgr()

    Dim CheckCell As Range

    For Each CheckCell In Sheets("Sheet1").Range("A1,B7,C9").Cells
        If Len(Trim(CheckCell.Value)) = 0 Then
            CheckCell.Select
            MsgBox "Cell " & CheckCell.Address(0, 0) & " is empty. Click OK and populate it.", , "Missing Information"
            Exit Sub
        End If
    Next CheckCell

    'All cells filled, code to Do My Stuff goes here
    MsgBox "Do my stuff", , "Continue macro"

End Sub
    InformationsquelleAutor tigeravatar
  2. 1

    Wenn Sie Sorge, wenn die Zelle wirklich leer ist, müssen Sie die IsEmpty-Funktion auf die Value-Eigenschaft. Dies wird false zurückgeben Zellen mit einzelnen Apostrophe oder Funktionen, die eine leere Zeichenfolge zurück.

    Public Function CellsAreEmpty(ParamArray aCells() As Variant) As Boolean

    Dim vItm As Variant
    Dim bReturn As Boolean

    bReturn = True

    For Each vItm In aCells
        bReturn = bReturn And IsEmpty(vItm.Value)
    Next vItm

    CellsAreEmpty = bReturn

End Function


Sub TestCells()

    If CellsAreEmpty(Range("A1"), Range("B7"), Range("C9")) Then
        Debug.Print "Do stuff"
    Else
        Debug.Print " is so so so cell is empty click ok to fill it"
    End If

End Sub
    InformationsquelleAutor Dick Kusleika
  3. 0

    Ist es das, was du suchst ?

    Code unten zu überprüfen, Tabelle1 Range A1, B7, c9 .

    Sub checkEmptyCells()

    With ThisWorkbook.Sheets("sheet1")
        If (Len(.Range("A1")) = 0) Then
            MsgBox "Cell A1 is empty. Click ok to fill"
            Exit Sub
        ElseIf (Len(.Range("B7")) = 0) Then
            MsgBox "Cell B7 is empty. Click ok to fill"
            Exit Sub
        ElseIf (Len(.Range("C9")) = 0) Then
            MsgBox "Cell C9 is empty. Click ok to fill"
            Exit Sub
        Else
            MsgBox "Do my stuff"
            Exit Sub
        End If

    End With

End Sub
    • Vielen Dank, das funktioniert für mich, ich habe Nur zu ersetzen, die Else MsgBox "Mach mein Zeug" mit meinem Zeug.
    InformationsquelleAutor Santosh
  4. 0

    Wenn Sie lieber mit non-vba-Lösung, dann können Sie die bedingte Formatierung.
    Wird es nicht geben, eine message-box, aber würde markieren Sie die Zellen, wenn Sie leer sind.

    Auf bedingte Formatierung verwenden, befolgen Sie die unten aufgeführten Schritte

    • Wählen Sie die Zellen
    • Unter der Registerkarte "Home" > Sytles > Bedingte Formatierung
    • Bedingte Formatierung Dialogfeld wird angezeigt. Klicken Sie auf die Schaltfläche "Neue Regel".
    • Wählen Sie eine Formel verwenden, um zu bestimmen, welche Zellen zu formatieren.
    • Die Formel eingeben (wenn die Zelle A1 ausgewählt ist dann A1="")
    • Klicken Sie auf Format > Goto Füllen und wählen Sie die Farbe, die Sie wollen.

    Überprüfen Sie, Ob excel-Zelle leer ist

    InformationsquelleAutor Santosh
Schreibe einen Kommentar