Di seguito vedremo un programma che passa attraverso un intervallo definito. Ad esempio, quando vogliamo elevare al quadrato i numeri in Range ("A1: A3"). Sapevi che puoi anche eseguire il loop attraverso una gamma dinamica?
Situazione:
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiariamo due oggetti Range. Chiamiamo gli oggetti Range rng e cell.
Dim rng As Range, cella As Range
2. Inizializziamo l'oggetto Range rng con Range("A1:A3").
Imposta rng = Intervallo ("A1: A3")
3. Aggiungere il ciclo For Each Next.
Per ogni cella In rng
Cella successiva
Nota: rng e cella sono scelti a caso qui, puoi usare qualsiasi nome. Ricorda di fare riferimento a questi nomi nel resto del codice.
4. Successivamente, quadratiamo ogni cella in questo intervallo. Per ottenere ciò, aggiungi la seguente riga di codice al ciclo:
cella.Valore = cella.Valore * cella.Valore
Risultato quando si fa clic sul pulsante di comando sul foglio:
5. Se vuoi controllare ogni cella in un intervallo selezionato casualmente, sostituisci semplicemente:
Imposta rng = Intervallo ("A1: A3")
insieme a:
Imposta rng = Selezione
6. Ora, ad esempio, seleziona Intervallo ("A1: A2").
Risultato quando si fa clic sul pulsante di comando sul foglio: