excel-vba - while - not equal vba

Imitando al operador “IN”

Question

¿Cómo se puede lograr:

if X in (1,2,3) then

en lugar de:

if x=1 or x=2 or x=3 then

En otras palabras, ¿cómo puede uno imitar mejor al operador IN en VBA para sobresalir?

Answer 1

Lo escribí ahora ...

Public Function IsInArray(FindValue As Variant, ParamArray arrEmailAttachment()) As Boolean
Dim element As Variant
For Each element In arrEmailAttachment
If element = FindValue Then
IsInArray = True
Exit Function
End If
Next element
IsInArray = False
End Function

Answer 2

No creo que haya una solución muy elegante.

Sin embargo, puedes intentar:

If Not IsError(Application.Match(x, Array("Me", "You", "Dog", "Boo"), False)) Then

o podrías escribir tu propia función:

Function ISIN(x, StringSetElementsAsArray)
ISIN = InStr(1, Join(StringSetElementsAsArray, Chr(0)), _
x, vbTextCompare) > 0
End Function
Sub testIt()
Dim x As String
x = "Dog"
MsgBox ISIN(x, Array("Me", "You", "Dog", "Boo"))
End Sub

Answer 3

No hay ninguno que yo sepa.

Usualmente uso una función InArray () hecha en casa como la que se encuentra en freevbcode.com/ShowCode.asp?ID=1675

También puede crear una versión que itere a través de la matriz en lugar de concatenar, si eso es más apropiado para su tipo de datos.

Answer 4

También puedes probar la sentencia CASE en lugar de IF

Select Case X
Case 1 To 3
'' Code to do something
Case 4, 5, 6
'' Code to do something
Case 7
'' Code to do something
Case Else
'' More code or do nothing
End Select

Answer 5

has probado

eval("3 in(1,2,3,4,5)")

Answer 6

Método más rápido:

Este es un método mucho más rápido y compacto que cualquiera de las otras respuestas, y funciona con valores numéricos o de texto:

Function IsIn(valCheck, valList As String) As Boolean
IsIn = Not InStr("," & valList & ",", "," & valCheck & ",") = 0
End Function

Ejemplos:

Utilice IsIn con un valor numérico:

Sub demo_Number()
Const x = 2
If IsIn(x, "1,2,3") Then
Debug.Print "Value " & x & " was Found!"
Else
Debug.Print "Value " & x & " was not Found."
End If
End Sub

Utilice IsIn con un valor de cadena:

Sub demo_Text()
Const x = "Dog"
If IsIn(x, "Me,You,Dog,Boo") Then
Debug.Print "Value " & x & " was Found!"
Else
Debug.Print "Value " & x & " was not Found."
End If
End Sub

Comparación de velocidad:

Para comparar la velocidad, realicé la prueba de la respuesta aceptada 100,000 veces:

• 0.406 sec (FASTEST) Esta función (usando InStr ):
• Answer aceptada de 1.828 sec (450% slower) con la función "ISIN"
• 1.799 sec (440% slower) Answer con el "IsInArray" de freeVBcode
• 0.838 sec (206% slower) Answer con la función modificada "IsInArray"

No SELECT..CASE answer mucho más larga que usa SELECT..CASE ya que el objetivo del OP era presumiblemente simplificar y acortar la tarea en comparación con " if x=1 or x=2 or x=3 then ".