Istruzione For Each … Next

Ripete un gruppo di istruzioni per ogni elemento di un array o di una raccolta.

Sintassi

For Each element In group
  [statements]
  [Exit For]
  [statements]
Next

Argomenti:

  • element: variabile utilizzata per iterare gli elementi della raccolta o dell'array. Per le raccolte, l'elemento può essere solo una variabile Variant, una variabile Object generica o qualsiasi variabile dell'oggetto di automazione specifica. Per gli array, l'elemento può essere solo una variabile Variant.

  • group: nome di una raccolta oggetti o di un array.

  • statements: una o più istruzioni eseguite su ogni elemento del gruppo.

Note

Il blocco For Each viene immesso se nel gruppo esiste almeno un elemento. Una volta il controllo entra nel loop, tutte le istruzioni nel loop vengono eseguite per il primo elemento nel gruppo. Se il gruppo contiene più elementi, le istruzioni nel loop continuano ad essere eseguite per ogni elemento. Quando il gruppo non contiene elementi, il controllo esce dal loop e l'esecuzione continua con l'istruzione che segue l'istruzione Next.

L'istruzioneExit For può essere utilizzata solo all'interno di una struttura di controllo For Each...Next o For...Next per fornire un modo alternativo per uscire. In qualsiasi punto del loop è possibile inserire un numero qualsiasi di istruzioni Exit For. L'istruzione Exit For viene spesso utilizzata con la valutazione di alcune condizioni (ad esempio, If...Then) e trasferisce il controllo all'istruzione immediatamente successiva a Next.

È possibile nidificare i loop For Each...Next inserendo un loop For Each...Next all'interno di un altro loop. Tuttavia, ogni loop deve essere univoco.

Note:

Se si omette un elemento in un'istruzione Next, l'esecuzione continua come se fosse stato incluso un elemento. Se viene rilevata un'istruzione Next prima della corrispondente l'istruzione For, si verifica un errore.

Nell'esempio seguente viene illustrato l'uso dell'istruzione For Each...Next.

Esempio 1

Dim fruits(2)
fruits(0) = "Apple"
fruits(1) = "Banana"
fruits(2) = "Cherry"
For Each fruit In fruits
    ' Variable fruit denotes each element in fruits array
Next