[vba] not in array

[john_revelator]

Ciao a tutti. Scusate la domanda sicuramente banale ma anche google non mi è stato d'aiuto.

Esempio

array = array(1,3,5)
for i = 1 to 10
 if i not in array then
   msgbox i
 end if
next i

Come penso si intuisca lo scopo del codice è quello di stampare i numeri da 1 a 10 escludendo quelli definiti nell'array. L'intenzione è quella di evitare una serie lunghissima di and che nel mio caso reale sarebbe fastidioso. Quale costrutto posso usare? Ciao e grazie.

[john_revelator]

Continuando a cercare ho trovato una possibile soluzione

http://www.dailydoseofexcel.com/arch...ction-members/

Sub exclusion()

    Dim SheetsToKeep As String
    Dim i As Long
    Dim ws As Worksheet
    
    ‘Names of sheets to keep
    ‘note the last comma
    SheetsToKeep = “Save1,Save2,Save3,”
    
    ‘Loop through the sheets
    For Each ws In ThisWorkbook.Worksheets
        ‘See if the sheet’s name is in the string
        ‘don’t forget the comma
        If InStr(1, SheetsToKeep, ws.Name & “,”) = 0 Then
            ws.Delete
        End If
    Next ws
    
End Sub

che fa uso della funzione instr. Non dovessi trovare di meglio adotterò quella ma se esiste un modo più elegante ben venga.

[MarcoGG]

Originariamente inviato da john_revelator

Come penso si intuisca lo scopo del codice è quello di stampare i numeri da 1 a 10 escludendo quelli definiti nell'array.

Private Function TrovaInArray(valore As Variant, A() As Variant) As Long
  
    Dim i As Long
    For i = LBound(A) To UBound(A)
        If valore = A(i) Then
            TrovaInArray = i
            Exit Function
        End If
    Next i
    TrovaInArray = -1
     
End Function

Ritorna l'indice della prima occorrenza trovata nell'array passato come argomento. Se non trova occorrenze, ritorna -1.

E qui, come usarla :

    Dim mioArray() As Variant
    mioArray = Array(1, 3, 5)
    Dim i As Integer
    For i = 1 To 10
         If TrovaInArray(i, mioArray) = -1 Then MsgBox i
    Next i

[john_revelator]

Ah, quindi non esiste nessun costrutto precotto e occorre costruirsi una funzioncina ad hoc. Mi inchino come sempre al tuo sapere. Grazie mille Marco.

[MarcoGG]

Originariamente inviato da john_revelator

Ah, quindi non esiste nessun costrutto precotto e occorre costruirsi una funzioncina ad hoc. Mi inchino come sempre al tuo sapere. Grazie mille Marco.

Beh, sì. VBA è più spartano, ma ovviamente non è una regola generale di VB.
in VB.NET ad esempio il tutto si ridurrebbe ad una riga di codice :

        Dim mioArray() As Integer = {1, 3, 5}
        For i As Integer = 1 To 10
            If Not mioArray.Contains(i) Then MsgBox(i)
        Next

[john_revelator]

Decisamente più pratico. Bisogna che prenda coraggio e provi a iniziare a studiare vb.net. Grazie ancora.