Di seguito vedremo un programma che scorre un intervallo definito.

Ad esempio, quando si vuole far quadrare i numeri in Range ( “A1: A3”). Lo sapevate che è possibile anche scorrere un link: / VBA-esempi-dynamic-range [gamma dinamica]? Situazione:

Loop through Defined Range in Excel VBA

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. In primo luogo, si dichiara due oggetti Gamma. Chiamiamo la gamma di oggetti RNG e delle cellule.

Dim rng As Range, cell As Range

  1. inizializzare il RNG oggetto Range con Range ( “A1: A3”).

Set rng = Range("A1:A3")

  1. Aggiungere il ciclo For Each Avanti.

For Each cell In rng

Next cell

Nota: RNG e cellule sono scelti a caso qui, è possibile utilizzare qualsiasi nome.

Ricordarsi di fare riferimento a questi nomi nel resto del codice.

  1. Successivamente, quadrato ogni cella in questo intervallo. Per ottenere questo, aggiungere la seguente riga di codice al ciclo:

cell.Value = cell.Value * cell.Value

Risultato quando si fa clic sul pulsante di comando sul foglio:

Loop through Defined Range Result

  1. Se si desidera controllare ogni cella in un intervallo selezionato in modo casuale, è sufficiente sostituire:

Set rng = Range("A1:A3")

con:

Set rng = Selection

  1. A questo punto, per esempio selezionare Range ( “A1: A2”).

Loop through Selection in Excel VBA

Risultato quando si fa clic sul pulsante di comando sul foglio:

Loop through Selection Result