/ / Húzza át a meghatározott tartományt az Excel VBA-ban

Húzza át a meghatározott tartományt az Excel VBA-ban

Az alábbiakban egy programot fogunk megnézni hurkok egy meghatározott tartományon belül. Például, ha meg szeretnénk térképezni a számokat a tartományban ("A1: A3"). Tudta, hogy dinamikus tartományon keresztül is megrajzolható?

Helyzet:

Húzza át a meghatározott tartományt az Excel VBA-ban

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:

1. Először két tartományobjektumot deklarálunk. Hívjuk a gamma objektumokat rng és cell.

Dim rng As Range, cell As Range

2. Inicializáljuk a Range objektum rng tartományát ("A1: A3").

Set rng = Range("A1:A3")

3. Adja hozzá a For Every Next hurokot.

For Each cell In rng

Next cell

Megjegyzés: itt rng és cell véletlenszerűen vannak kiválasztva, bármilyen nevet használhat. Ne feledje, hogy ezekre a nevekre utal a kód többi részében.

4. Ezután négyzetezzünk minden egyes cellát ebben a tartományban. Ehhez a következő kódsorral kell hozzáadni a hurokhoz:

cell.Value = cell.Value * cell.Value

Eredmény, ha rákattint a parancs gombra a lapon:

Határozzuk meg a meghatározott tartomány eredményét

5. Ha minden egyes véletlenszerűen választott tartományban szeretné ellenőrizni az egyes cellákat, egyszerűen cserélje ki:

Set rng = Range("A1:A3")

val vel:

Set rng = Selection

6. Most válassza például a Range ("A1: A2") lehetőséget.

Húzza át a Kiválasztást az Excel VBA programban

Eredmény, ha rákattint a parancs gombra a lapon:

Húzza át a kiválasztási eredményt

Szintén olvasható: