Excel-VBA-Wenn-Bereich.Wert = etwas, was dann

Was ich Suche, ist dies -

Wenn sich ein Wert im Bereich von Zellen, die gleich einem Wert oder den gleichen Wert, dann sollte es anzeigen "Positiv" sind, sonst "Negativ. Aber wenn ich Schreibe wie Sie die folgende syntax, wirft es einen Fehler -

If range("F3:H5").value = "X" then

Msgbox "Positive result"

else

Msgbox "Negative result"

end if
  • "Es wirft einen Fehler" ist wenig hilfreich. "Es wirft ein" Type Mismatch "Fehler" gibt uns etwas mehr zu arbeiten.
InformationsquelleAutor Praveen Behera | 2016-10-18
  1. 1

    Sollte es dem Zweck dienen:

    Sub string_validation()

    Dim cel As Range

    For Each cel In Range("F3:H8")
        If cel.Value = "hassle" Then
            MsgBox "Positive result"
        Else
            MsgBox "Negative result"
        End If
    Next cel

End Sub
    InformationsquelleAutor SIM
  2. 0

    Müssen Sie etwas wie:

    Dim found As Boolean
found = False
For Each cell In Range("F3:h5").Cells
    if cell.Value = "X" Then
        found = True
    end if
Next

If found = True Then
    Msgbox "Positive result"
else
    Msgbox "Negative result"
End if
    • danke, aber ich habe mehrere Bereiche, die ich nicht in einer Schleife ausführen. gibt es eine Möglichkeit, wobei ich direkt validieren? ohne Schleifen
    • Ich denke nicht so. Damit wird die Frage beantwortet, wie es gesagt wurde, sowieso. Die For / Next-Schleife ist eine triviale Menge zusätzlichen code, um diese Arbeit zu machen.
    InformationsquelleAutor Paul
  3. 0

    Mit dieser Funktion können Sie

        Function EvalRange(inRng As Range, inVal As Variant) As Variant

    Dim CntAll, CntMatch As Double

    CntAll = Application.Count(inRng)
    CntMatch = Application.CountIf(inRng, inVal)

    If CntAll = CntMatch Then
        EvalRange = "Positive Result"
        Else: EvalRange = "Negative Result"
    End If

    End Function
    • Hinweis: ich habe noch keine Fehler/Ausnahme-Behandlung, wie die Lösung ist nur zur illustration. Vorausgesetzt, Nutzer die notwendigen änderungen für diesen Zweck.
    • Dies ist nicht die richtige syntax schreiben, Anwendung von Funktionen. d.h. Anwendung.zählen.
    • Probieren Sie dies aus, um das Ergebnis zu sehen. Ich habe absichtlich vermieden, die Nutzung von "Worksheetfunction" und "Anwendung" um die Funktion zu verwenden. Kurz gesagt, eine Aussage wie die Anwendung.Zählen ist stabiler als Worksheetfunction.Zählen
    InformationsquelleAutor ArindamD
  4. 0
    VBA.MsgBox VBA.IIf(Evaluate("=SUMPRODUCT(--(F3:H5 = ""X""))"), "Positive result", "Negative result")

    ""X"" Anführungszeichen durch zwei äußeren Anführungszeichen

    F3:H5 = ""X"" ist ein array von booleschen Ergebnisse F3=X, F4=X usw.

    -- negativ dreht boolean to 0/1; ein weiterer negativer "zurück", um 1/0

    IIf, Bewerten, SUMPRODUCT... - Funktionen. Sorry, GIYF.

    InformationsquelleAutor 1jack
Schreibe einen Kommentar