MacroFacili: Ciclo For

I ciclo for in VBA: permette l'esecuzione ripetuta di una parte di codice per un numero noto di volte.

La forma più comune, in questo caso ad ogni ciclo la variabile Contatore si incrementa di 1 partendo da ValoreMinimo fino ad arrivare a ValoreMassimo

For Contatore = ValoreMinimo To ValoreMassimo
istruzioni...
Next Contatore

In questo caso Contatore viene incrementato di Passo volte ad ogni ciclo.

For Contatore = ValoreMinimo To ValoreMassimo Step Passo
istruzioni...
Next Contatore

Un esempio di utilizzo è questa funzione per il calcolo del fattoriale

Function Fattoriale(N As Long) as Long
  Dim F As Long
  F = 1
  For i = 2 To N
    F = F * i
  Next i
  Fattoriale= F
End Sub

E' comunque sempre possibile uscire dal ciclo utilizzando l'istruzione:

Exit For

For Each

Si può usare l'iestruzione For Each per eseguire un insieme di istruzioni, in modo simile ad un ciclo for, per ogni elemento di un vettore o di una collection.

For Each elemento In gruppo
istruzioni...
Next elemento

Un esempio dell'utlizzo di For Each con un vettore

Frutti = Array("Arancia", "Mela", "Banana", "Pera", "Uva")
Testo = ""
For Each Frutto In Frutti
Testo = Testo & Frutto & Chr(10)
Next
MsgBox Testo

Oppure volendo scorrere tutti i fogli del file per attivare la protezione

Dim F As Worksheet
For Each F In Worksheets
F.Protect
Next