Login
Registrati
Stai vedendo 5 articoli - dal 1 a 5 (di 5 totali)
-
Articoli
-
Private Function trova_err2() As Boolean
Dim i As Longtrovato1 = False
trovato2 = False
trovato3 = False
trova_err2 = False
val1 = Worksheets("F2").Range("B10").Value
val2 = Worksheets("F2").Range("B11").Value
val3 = Worksheets("F2").Range("B9").ValueFor i = LBound(ListBox2.List) To UBound(ListBox2.List)
valore1 = ListBox2.List(i)If valore1 = val1 Then
trovato1 = True
Exit For
End If
Next iFor i = LBound(ListBox2.List) To UBound(ListBox2.List)
valore2 = ListBox2.List(i)
If valore2 = val2 Then
trovato2 = True
Exit For
End If
Next iFor i = LBound(ListBox2.List) To UBound(ListBox2.List)
valore3 = ListBox2.List(i)
If valore3 = val3 Then
trovato3 = True
Exit For
End If
Next iIf trovato1 And trovato2 And trovato3 Then
MsgBox "Nella lista a destra deve rimanere una delle 3 strighe: " & val1 & " , " & val2 & " o " & val3
trova_err2 = TrueElseIf trovato1 And trovato2 Then
MsgBox "Nella lista a destra deve rimanere una delle 2 stringhe: " & val1 & " o " & val2
trova_err2 = TrueElseIf trovato1 And trovato3 Then
MsgBox "Nella lista a destra deve rimanere una delle 2 stringhe: " & val1 & " o " & val3
trova_err2 = TrueElseIf trovato2 And trovato3 Then
MsgBox "Nella lista a destra deve rimanere una delle 2 stringhe : " & val2 & " o " & val3
trova_err2 = TrueEnd IfEnd FunctionCiao a tutti,Sopra trovatela funzione che da errore se lascio nella listbox 2 2 o più valori.Praticamente dai tre valori nella listbox 2 deve essere solo un valore se sono 2 o 3 mi da errore.Volevo chiedervi A VOI ESPERTI DI PROGRAMMAZIONE se esiste qualche modo più semplice per fare lo stesso controllo ma con 6 o più valori di input.Più che altro per non avere 6 fattoriali ELSEIF e 6 o più cicli FOR!!!Grazie in anticipoallega un file di esempio da testaredovrò crearlo da 0 che quello che ho ha delle informazioni sensibili e non posso allegarloQuello che in realtà mi interessa è se riesco a fare un codice che mi controlli nella listbox e che mi faccia un check di tutte le stinghe che ci sono dentro e devo avere solo un valore dei val1,val2,val3,val4,val5 e val6.Magari esiste già il codice vba che fa questo controllo.dovrò crearlo da 0 che quello che ho ha delle informazioni sensibili e non posso allegarlonon ci vuole molto ad eliminare un po' di dati e cambiare qualche nome, i numeri non sono sensibili
Stai vedendo 5 articoli - dal 1 a 5 (di 5 totali)