Verificar si una variable pertenece a un conjunto de valores Resuelto

Question

Hola,

solo quiero verificar mediante una condición si mi variable pertenece a un conjunto de valores.
por supuesto, puedo hacer:

If Var = 1 o Var = 5 o Var = 12 o..... entonces

pero es un poco tedioso cuando hay muchas pruebas.

debería haber algo así como

if Var = (o(1,5,12...)) entonces

o

if Var = {1;5;12...} entonces

estoy seguro de que hay algo así y que la respuesta será evidente, pero no lo encuentro.
aclaro que es VBA para Access.

Configuración: Windows XP / Firefox 8.0.1

panda · Answer

Estaba buscando utilizando la función array, pero sin éxito:

firstarray = Array(8, 9, 10, 11, 12, 13, 14, 15)
myarray = Filter(firstarray, Var)
If UBound(myarray) > 0 Then

se queda bloqueado en "myarray = Filter(firstarray, nomod)". He intentado "myarray = Filter(firstarray, Var, true)" pero en todos los casos me dice que no tengo el número correcto de argumentos.

¿Alguna idea?

panda · Answer

tengo otra pista con este código encontrado en un sitio:

Sub ensayo()
montableo = Array("A", "B", "C", "D")
x = "C"
p = Application.Match(x, montableo, 0)
If IsError(p) Then
MsgBox x & " desconocido"
Else
MsgBox p
End If
End Sub

pero mi VBA (para Access) parece no conocer el método Match

Yoda · Answer

Hola,

Es necesario revisar todo el arreglo en un bucle para saber si un elemento existe.

Sub ensayo() montableau = Array("A", "B", "C", "D") x = "C" encontrado=False For i = LBound(montableau) To UBound(montableau) if x=montableau(i) then encontrado=True next if encontrado then MsgBox x & " Conocido" else MsgBox x & " Desconocido" endif End Sub

Lo más práctico sería hacer una función personalizada.

A+.

Patrice33740 · Answer

Hola,

Para evitar el bucle, puedes usar un diccionario:

Option Explicit Sub Test1() Dim d As Object Dim x As String 'Variable a encontrar x = "C" 'Creación de un diccionario Set d = CreateObject("Scripting.Dictionary") 'Añadir claves, valores d.Add "A", "" d.Add "B", "" d.Add "C", "" d.Add "D", "" 'Test If d.Exists(x) Then MsgBox x & " existe" Else MsgBox x & " desconocido" End If End Sub

El mismo con una referencia a Microsoft Scripting Runtime:

Sub Test2() ' Añadir una referencia a Microsoft Scripting Runtime Dim d As Scripting.Dictionary Dim x As String 'Variable a encontrar x = "C" 'Creación de un diccionario Set d = New Dictionary 'Añadir claves, valores d.Add "A", "" d.Add "B", "" d.Add "C", "" d.Add "D", "" 'Test If d.Exists(x) Then MsgBox x & " existe" Else MsgBox x & " desconocido" End If End Sub

--
Atentamente
Patrice

panda · Answer

gracias por tu respuesta.
así debe funcionar efectivamente.
lo que es una pena es que quería una instrucción lo más corta posible para hacer un simple

if Var pertenece a {x,y,z} entonces

y hacer que el código sea lo más legible posible.
pero servirá muy bien a falta de algo mejor.
sigo sorprendido de que no haya algo más conciso.

panda · Answer

no está mal la idea del diccionario, no la conocía. es un poco la idea que tenía, probar la existencia de mi variable en un conjunto, aquí está en un diccionario.

telliak · Answer

Hola, ¿Has probado algo como Select Case Var Case 1, 5, 12, ... Instrucciones Case else End select ? no es fácil hacerlo más simple.

Yoda · Answer

Como decía, se puede programar una función personalizada, por lo que se vuelve muy simple y legible, por ejemplo:

La función

Function Existe(table, elem) As Boolean Existe = False For i = LBound(table) To UBound(table) If table(i) = elem Then Existe = True Next End Function

Llamada a la función

Sub essai() A1 = Array(8, 9, 10, 11, 12, 13, 14, 15) var=10 If Existe(A1, var) then MsgBox var & " existe" Else MsgBox var & " desconocido" End If var="X" S1 = Array("A", "B", "C", "D", "E") If Existe(S1, var) then MsgBox var & " existe" Else MsgBox var & " desconocido" End If End Sub

panda · Answer

bon, entonces quedaría:

Function testchoix(Tabl As String, quoi As Integer) As Boolean

montab = Array(Tabl)
trouve = False
For i = LBound(montab) To UBound(montab)
If quoi = montab(i) Then trouve = True
Next

End Function

y para probar:

ouinon = testchoix("(1,3,5,7,9,11,13,15)", Var)
If ouinon = True Then
.....

pero no parece funcionar, mi condición if siempre es falsa

Patrice33740 · Answer

Re,
«lo que es una lástima es que quería una instrucción lo más corta posible para hacer un simple
if Var pertenece a {x,y,z} entonces
y hacer que el código sea lo más legible posible»

Aquí está:

Sub test() Dim var As Integer var = 12 If Pertenece(var, "8, 9, 10, 12, 14, 15") Then MsgBox var & " existe" Else MsgBox var & " desconocido" End If End Sub Private Function Pertenece(var As Variant, lista As String) As Boolean Select Case CStr(var) Case lista Pertenece = True Case Else Pertenece = False End Select End Function

--
Cordialmente
Patrice

Verificar si una variable pertenece a un conjunto de valores

10 respuestas

Copiar el formato de una celda a otra celda

Estado de error tras la instalación de norton

Orange wins the legislative battle against cold calling

Macbook pro pour étudiante en graphisme

Encontrar la nube

Mensaje de mi antivirus avast

Problema para importar los contactos

Conectar una sony handycam video 8 ccd f555e a un televisor hd

Versiones antiguas pero eficientes de office en windows 10/11

Eliminar cuenta