VBA: Übergabe mehrerer Werte Instr

Nun habe ich eine lange Liste von "Industrie" - Werte, dass der Benutzer durch ein Formular abgeschickt. Ich habe ein makro geschrieben, dass die Suche nach bestimmten Begriffen in diese Werte und die Werte einfügen, die konform zu meinem deutlich kleineren Liste der "akzeptablen" Industrie-Werte. Der Punkt ist, reclassify alle aktuellen Industrie-Werte, die die Benutzer abgegeben haben, in meine bestehende Taxonomie. Hier ist übrigens mein Wenn-Dann-Aussagen, die Aussehen, als jetzt:

If InStr(1, Cells(i, "A").Value, "Energy") > 0 Or InStr(1, Cells(i, "A").Value, "Electricity") > 0 Or InStr(1, Cells(i, "A").Value, "Gas") > 0 Or InStr(1, Cells(i, "A").Value, "Utilit") > 0 Then
Cells(i, "B").Value = "Energy & Utilities"
End If

Es ist ziemlich hässlich. Funktioniert perfekt in Ordnung, aber ist ein Bär zu Lesen. Mein makro ist übersät mit diesen kaum verständlichen Wenn-Dann-Aussagen, und es ist schwierig, über alles Lesen. Gibt es eine Möglichkeit, mehrere Werte übergeben, um die "String2" argument Instr?

InformationsquelleAutor xxxRxxx | 2015-11-23
  1. 5

    [Auf Bearbeiten: modifizierte ich die Funktion so, dass, wenn das Letzte argument ist eine Ganzzahl, es spielt die Rolle des compareMode parameter in Instr (0 für " case-sensitive Suche, das ist der Standard und 1 für die groß-und Kleinschreibung). Als Letzte zu optimieren, könnte man auch einen booleschen Wert übergeben, anstatt ein integer für das optionale Letzte argument, mit True entsprechenden groß- /Kleinschreibung und False entsprechend der default case-sensitive]

    Wenn Sie tun, diese Art der Sache, viele macht es Sinn, eine Funktion schreiben, die ähnlich inStr aber in der Lage mehrere Muster. ParamArray ist ein natürliches Werkzeug zu verwenden:

    Function Contains(str As String, ParamArray args()) As Boolean
    Dim i As Long, n As Long, mode As Integer

    n = UBound(args)
    If TypeName(args(n)) <> "String" Then
        mode = args(n)
        mode = Abs(mode) 'So True => -1 => 1 for case-insensitive search
        n = n - 1
    End If

    For i = 0 To n
        If InStr(1, str, args(i), mode) > 0 Then
            Contains = True
            Exit Function
        End If
    Next i
    Contains = False
End Function

    Getestet wie:

    Sub Test()
    Debug.Print Contains("General Electric", "Gas", "Electric", "Oil")
    Debug.Print Contains("General electric", "Gas", "Electric", "Oil")
    Debug.Print Contains("General electric", "Gas", "Electric", "Oil", False)
    Debug.Print Contains("General electric", "Gas", "Electric", "Oil", True)
    Debug.Print Contains("General electric", "Gas", "Electric", "Oil", 1)
    Debug.Print Contains("General Motors", "Gas", "Electric", "Oil")
End Sub

    Ausgabe:

    True
False
False
True
True
False
    InformationsquelleAutor John Coleman
  2. 0

    Gibt es keine Möglichkeit, mehrere Parameter übergeben zu InStr, aber Sie können erstellen Sie Ihre eigenen sub, der es anfaßt. Ich würde einen Unterordner erstellen, die den string zu suchen und in ein array von Zeichenfolgen zu suchen. Es könnte in einer Schleife über das array und call-Befehle für jeden string. Haben Sie wieder ein endgültiges Ergebnis, ob es alle von Ihnen gefunden wird oder nicht, und dann ersetzen Sie alle Ihre hässliche bedingte Anweisungen mit einem Aufruf deiner sub.

    InformationsquelleAutor Kat
  3. -1
    If Instr(1, Cells(i, "A").Value, "EnergyElectricityGasUtilit") > 0 Then
    Cells(i, "B").Value = "Energy & Utilities"
    • Ich glaube nicht, dass dies funktionieren wird.
    • Sie sind richtig, @John Coleman. Nicht sicher, was ich dachte.
    • Es passiert uns allen
    InformationsquelleAutor bilbo_strikes_back
Schreibe einen Kommentar