sintassi:
Dim variabile dichiaro la variabile

For Each variabile In gruppo inizia ciclo per ciascuna cosa dentro al gruppo

... istruzioni

gruppi

• celle


• celle selezionate
Dim cella As Range
For Each cella In Selection

....

Next cella




• celle in zona
Dim cella As Range
• Set zona = ActiveSheet.Range("A1:A500") definisco zona con comando Set
• Set zona = Sheets("scheda").Range("tabella[colonna]") setto la tabella e colonna
• Set zona = ActiveSheet.UsedRange tutte le cella utilizzate nel foglio attivo
• Set zona = Workbooks("file.xlsx").Sheets("Test").UsedRange setto zona tutte le celle usate nel file file.xlsx nella scheda Test

For Each cella In zona

....

Next cella





• array + arraylist
• array
Dim array(X)

For Each elemento In array

....

Next elemento



• arraylist
(vedi VBA - variabili/costanti - variabili - array - arraylist)
Dim lista As Object
Set lista = CreateObject("System.Collections.ArrayList")

For Each elemento In array

....

Next elemento





• scheda


• scheda Excel
Dim scheda As Worksheet
For Each scheda In Worksheets

If scheda.Name = "NOMESCHEDA" Then ....

Next scheda




• schede selezionate
Dim scheda As Object
For Each scheda In ActiveWindow.SelectedSheets

If scheda.Name = "NOMESCHEDA" Then ....

Next scheda



esempio: arrey dei nomi delle schede selezionate
Dim scheda As Object
Dim schedesel()
quanteschede = Application.ActiveWindow.SelectedSheets.Count quantità di schede selezionate
x = 0 variabile posizione array
ReDim schedesel(quanteschede) ridimensiono arry in base al numero di schede
For Each scheda In ActiveWindow.SelectedSheets ciclo assegna valore agli elementi dell'array

schedesel(x) = scheda.Name
x = x + 1

Next scheda






• file Excel
Dim wb As Workbook
For Each wb In Workbooks

If wb.Name = "XXX.xls" Then wb.Activate

Next wb




• tabelle Pivot
Dim filtro As PivotItem dichiaro la variabile come Item della pivot
For Each filtro In ActiveSheet.PivotTables("TABELLA").PivotFields("CAMPO").PivotItems



creo un filtro automatco in una tabella pivot tramite un ciclo
If filtro = "xxx" Or filtro = "yyy" Then

filtro.Visible = True

Else

filtro.Visible = False

End If



Next filtro




• tabelle
Dim tabella As ListObject
For Each tabella In ActiveSheet.ListObjects

If tabella.Name ... Then

...

End If

Next tabella




• shape
Dim shp As Shape
For Each shp In ActiveSheet.Shapes

shp.metodo

Next shp