Tento tutoriál vám ukáže, ako používať Activecell Offset vo VBA.
ActiveCell je vlastnosť VBA, ktorá predstavuje adresu bunky aktívnej bunky vo vašom hárku. Ak je ukazovateľ myši umiestnený v bunke A1, vlastnosť ActiveCell vo VBA vráti adresu bunky „A1“. K ActiveCell je pripojených množstvo vlastností a metód. V tomto článku sa zameriavame na metódu ActiveCell.Offset.
Vlastnosti a metódy ActiveCell.Offset
Activecell.Offset má množstvo vlastností a metód, ktoré je možné naprogramovať pomocou VBA. Ak chcete zobraziť dostupné vlastnosti a metódy, zadajte nasledujúci príkaz v nižšie uvedenom postupe a stlačením klávesu s bodkou na klávesnici zobrazte rozbaľovací zoznam.
Metódy sú zobrazené zelenou ikonou metódy a vlastnosti malou ikonou ruky. Vlastnosti a metódy pre metódu Activecell.Offset sú rovnaké ako pre metódu Activecell.
Syntax ActiveCell.Offset
Syntax Activecell.Offset je nasledovná
kde RowOffset a ColumnOffset je počet riadkov, ktoré sa majú odsadiť (kladné čísla pre nadol, záporné číslo pre nahor) alebo počet stĺpcov, ktoré chcete odsadiť (kladné čísla sa posunú doprava, záporné číslo doľava).
ActiveCell.Offset … Vyberte
The Activecell.Offset … Vyberte metóda je najčastejšie používanou metódou pre metódu Activecell.Offset. Umožňuje vám prejsť na inú bunku v pracovnom hárku. Túto metódu môžete použiť na pohyb v stĺpcoch alebo v riadkoch nahor alebo nadol v pracovnom hárku.
Ak sa chcete posunúť o riadok nadol, ale zostať v rovnakom stĺpci:
| 1 | Activecell. Offset (1,0). Vyberte |
Ak sa chcete pohybovať v stĺpci, ale zostať v rovnakom riadku:
| 1 | Activecell.Offset (0,1). Vyberte |
Ak sa chcete posunúť o riadok nižšie a cez stĺpec:
| 1 | Activecell. Offset (1,1). Vyberte |
Ak sa chcete posunúť o riadok vyššie:
| 1 | Activecell.Offset (-1,0). Vyberte |
Presunutie stĺpca doľava:
| 1 | Activecell.Offset (0, -1). Vyberte |
V nižšie uvedenom postupe prechádzame rozsahom buniek a posúvame sa nadol o jeden riadok a cez jeden stĺpec pri vykonávaní cyklu:
| 12345678 | Sub ActiveCellTest ()Dim x As IntegerRozsah („A1“). VybertePre x = 1 až 10ActiveCell = xActiveCell.Offset (1, 1). VyberteDalej xKoniec pod |
Výsledok je znázornený na obrázku nižšie:
Slučka vloží hodnotu i (1-10) do Activecell, a potom použije príponu Activecell. Offset vlastnosť sa posunie o jeden riadok nadol a o jeden stĺpec doprava - túto slučku opakujte 10 -krát.
Programovanie VBA | Generátor kódu pracuje za vás!
Použitie objektu Range s Activecell.Offset Select
Použitie objektu Range s aktívnou bunkou môže niektorých ľudí niekedy zmiasť.
Zvážte nasledujúci postup:
| 1234 | Sub ActiveCellOffsetRange ()Rozsah („B1: B10“). VyberteActiveCell.Offset (1, 1). Rozsah ("A1"). VyberteKoniec pod |
S ActiveCell.Offset (1,1 Range („A1“) bol špecifikovaný rozsah („A1“). To však neznamená, že bude zvolená bunka A1 v hárku. Ako sme špecifikovali rozsah („B1: B10“), bunka A1 v tomto rozsahu je v skutočnosti bunkou B1 v zošite. Bunka bude preto odsadená o 1 riadok a 1 stĺpec od bunka B1 NIE z bunky A1.
Preto rozsah („A1 ′) v tomto prípade nie je potrebný, pretože makro bude fungovať rovnako s ním alebo bez neho.
Alternatívy k ActiveCell
Namiesto použitia Activecell s metódou Offset môžeme použiť aj objekt Range s metódou Offset.
| 123 | Podrozsah Offset ()Rozsah („B1“). Ofset (0, 1). VyberteKoniec pod |
Vyššie uvedeným postupom by ste vybrali bunku C1 v pracovnom hárku.
