VBA herauszufinden, ob ein Wert in Werte

Ich habe einen Wert y, und ich möchte, um herauszufinden, ob dieser Wert innerhalb dieser Gruppe von Werten : x1, x2, ... xn.

Kann ich es so machen:

if(y = x1 or y = x2 or .....)

Aber gibt es einen schöneren Weg? pseudocode:

if(y in (x1, x2, ...., xn))

InformationsquelleAutor Jaanus | 2013-03-17

  1. 4

    Könnten Sie schreiben, eine Helfer-Funktion, wie diese:

    Public Function FindValue(ByVal ValueToFind As Variant, ParamArray SearchIn() As Variant)

    Dim i As Integer

    For i = 0 To UBound(SearchIn)
        If SearchIn(i) = ValueToFind Then
            FindValue = True
            Exit Function
        End If
    Next

End Function

    Den zweiten parameter (den ParamArray) ist ein array, so kann man tatsächlich an eine unbestimmte Anzahl von Parametern.

    So können Sie einfach alle übergeben Ihre Werte an die Funktion, die Sie wollen zu finden, zuerst, und nach, dass alle diejenigen, die Sie durchsuchen möchten:

    Dim Found As Boolean

Found = FindValue(y, x1, x2, x3, xn)

    InformationsquelleAutor Christian Specht

  2. 2

    Können Sie Wählen Fall in der gleichen Weise (wenn, dann, sonst):

    Select Case Y
       Case X1, X2, X3, ...
            Do if True
       Case Else
            Do if False
End Select

    InformationsquelleAutor Yoram Ariel

  3. 1

    Arrays:

    dim x(10)

x(1)=....
x(2)=....

y=....

for i=1 to 10
    if x(i)=y then
         ....
    end if
next i

    InformationsquelleAutor Paolo

  4. 0
    dim values as string
values = "1,2,3,4,5,"  'Note that comma is a separator and added towards the end as well.

dim lookupValue as string
lookupValue = ",4,"

dim found as Boolean
found = (instr(1, values, lookupValue) <> 0)

if found then


end if

    EDIT: eine Andere Möglichkeit

    dim lookupValue as long
lookupValue = 21000

dim values
set values = CreateObject("Scripting.Dictionary")

with values
   .Add 1, 1
   .Add 10, 1
   .Add 100, 1
   .Add 1000, 1
   .Add 10000, 1
end with

dim found as Boolean
found = values.Exists(lookupValue)

    InformationsquelleAutor shahkalpesh

  5. 0

    Ganz einfache Idee, um zu überprüfen, ob der Wert vorhanden ist zu verwenden Match Funktion:

    Dim myTBL As Variant
    myTBL = Array(20, 30, 40, 50, 60)

'if value '30' exists in array than the position (which is >0) will be returned
    Debug.Print WorksheetFunction.Match(30, myTBL, 0)

    Das problem ist nur, dass wenn der Wert nicht existiert, wird das Match-Funktion gibt einen Fehler zurück. Daher sollten Sie die Verwendung von Fehlerbehandlung Technik.

    Dass Aussehen könnte für den nicht vorhandenen Wert '70':

    'if doesn't exists error would be returned
On Error Resume Next
    Debug.Print WorksheetFunction.Match(70, myTBL, 0)
If Err.Number <> 0 Then
    Debug.Print "not exists"
    Err.Clear
End If

    Leider, dass funktioniert nur in Excel.

    InformationsquelleAutor Kazimierz Jawor

  6. 0

    Noch in anderer Weise

    Haben Sie Zugriff auf MS-Access 2000+?
    Wenn ja, fügen Sie die Access-Objekte-Bibliothek-Referenz, und Sie werden in der Lage sein zu verwenden Eval-Funktion:

    result = Eval("'y' IN ('x1', 'x2', '...' 'xn')")

    Wertet string-Ausdrücke. Einige der SQL-Operatoren wie die IN verwendet werden kann.
    Sehen Dokumentation

    InformationsquelleAutor Mike

  7. 0

    Wählen Sie ein Trennzeichen angeben, das nicht vorhanden ist in einem der Werte (z.B. pipe"|"), und Sie können es eine Zeile:

    If "|x1|x2|...|xn|" Like "*|" & y & "|*" Then

    InformationsquelleAutor Michael

Schreibe einen Kommentar