Cikls ar definētu diapazonu programmā Excel VBA

Zemāk mēs apskatīsim programmu, kas cilpas ar noteiktu diapazonu. Piemēram, ja mēs gribam kvadrātveida skaitļus diapazonā ("A1: A3"). Vai jūs zinājāt, ka varat arī izveidot cilpu, izmantojot dinamisko diapazonu?

Situācija:

Cikls ar definētu diapazonu programmā Excel VBA

Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:

1. Vispirms deklarējam divus Range objektus. Mēs saucam diapazona objektus rng un šūnu.

Dim rng As Range, cell As Range

2. Mēs inicializējam Range object rng ar diapazonu ("A1: A3").

Set rng = Range("A1:A3")

3. Pievienojiet par katru nākamo cilni.

For Each cell In rng

Next cell

Piezīme: šeit ir izlases veidā izvēlēts rng un šūna, jūs varat izmantot visus vārdus. Neaizmirstiet atsaukties uz šiem nosaukumiem pārējā kodā.

4. Pēc tam mēs kvadrātiet katru šūnu šajā diapazonā. Lai to panāktu, pievienojiet ciklam šādu koda rindiņu:

cell.Value = cell.Value * cell.Value

Rezultāts, noklikšķinot uz komandas pogas lapā:

5. Ja vēlaties pārbaudīt katru šūnu nejauši izvēlētā diapazonā, vienkārši nomainiet:

Set rng = Range("A1:A3")

ar:

Set rng = Selection

6. Tagad, piemēram, izvēlieties diapazonu ("A1: A2").

Rezultāts, noklikšķinot uz komandas pogas lapā: