Zemāk mēs apskatīsim programmu, kas cilpas caur noteiktu diapazonu. Piemēram, ja mēs vēlamies kvadrātveida skaitļus diapazonā ("A1: A3"). Vai zinājāt, ka varat arī izmantot dinamisko diapazonu?
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam divus diapazona objektus. Range objektus saucam par rng un cell.
Dim rng As Range, šūna As Range
2. Mēs inicializējam Range objektu rng ar Range ("A1: A3").
Iestatīt rng = Diapazons ("A1: A3")
3. Pievienojiet cilni Par katru nākamo.
Katrai šūnai In rng
Nākamā šūna
Piezīme: rng un šūna šeit tiek izvēlēti nejauši, varat izmantot jebkurus nosaukumus. Atcerieties atsaukties uz šiem nosaukumiem pārējā koda daļā.
4. Tālāk mēs kvadrātu katru šūnu šajā diapazonā. Lai to panāktu, pievienojiet cilpai šādu koda rindiņu:
šūna. Vērtība = šūna. Vērtība * šūna. Vērtība
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:
Iestatīt rng = Diapazons ("A1: A3")
ar:
Set rng = Atlase
6. Tagad, piemēram, izvēlieties Diapazons ("A1: A2").
Rezultāts, noklikšķinot uz komandas pogas lapā:
