Šī apmācība parādīs, kā izmantot Activecell nobīdi VBA.
ActiveCell ir VBA īpašums, kas attēlo darblapas aktīvās šūnas šūnas adresi. Ja peles rādītājs ir novietots šūnā A1, rekvizīts ActiveCell VBA atgriež šūnas adresi “A1”. Tie ir vairāki rekvizīti un metodes, kas ir savienotas ar ActiveCell. Šajā rakstā mēs koncentrējamies uz ActiveCell.Offset metodi.
ActiveCell. Offset īpašības un metodes
Activecell.Offset ir pieejamas vairākas īpašības un metodes, ko ieprogrammēt ar VBA. Lai skatītu pieejamos rekvizītus un metodes, ierakstiet tālāk norādīto procedūru, kā parādīts zemāk, un nospiediet tastatūras taustiņu, lai redzētu nolaižamo sarakstu.
Metodes ir attēlotas ar zaļo metodes ikonu, bet īpašības - ar mazās rokas ikonu. Activecell.Offset metodes īpašības un metodes ir tādas pašas kā Activecell metodei.
ActiveCell. Offset sintakse
Activecell.Offset sintakse
kur RowOffset un ColumnOffset ir rindu skaits, ko kompensēt (pozitīvie skaitļi uz leju, negatīvie skaitļi uz augšu) vai kolonnu skaits, ko vēlaties kompensēt (pozitīvie skaitļi kompensē pa labi, negatīvie skaitļi pa kreisi).
ActiveCell.Offset… Izvēlieties
The Activecell.Offset… Izvēlieties metode ir visbiežāk izmantotā metode ar Activecell.Offset metodi. Tas ļauj pāriet uz citu darblapas šūnu. Šo metodi varat izmantot, lai darblapā pārvietotos pa kolonnām vai augšup vai lejup.
Lai pārvietotos pa rindu uz leju, bet paliktu tajā pašā slejā:
| 1 | Activecell. Offset (1,0). Atlasiet |
Lai pārvietotos pa kolonnu, bet paliktu tajā pašā rindā:
| 1 | Activecell. Offset (0,1). Izvēlieties |
Lai pārvietotos pa rindu uz leju un pāri kolonnai:
| 1 | Activecell. Offset (1,1). Atlasiet |
Lai pārvietotos augšup pa rindu:
| 1 | Activecell. Offset (-1,0). Atlasiet |
Lai pārvietotu kolonnu pa kreisi:
| 1 | Activecell. Offset (0, -1). Atlasiet |
Tālāk aprakstītajā procedūrā mēs veicam cilpu caur šūnu diapazonu un pārvietojamies pa vienu rindu lejup un pa vienu kolonnu, veicot cilpu:
| 12345678 | Sub ActiveCellTest ()Dim x kā vesels skaitlisDiapazons ("A1"). AtlasietX = 1 līdz 10ActiveCell = xActiveCell. Offset (1, 1). AtlasietNākamais xBeigu apakš |
Rezultāts ir parādīts zemāk esošajā grafikā:
Cilpa ievieto vērtību i (1-10) Activecell, un pēc tam tas izmanto Activecell. Nobīde īpašumu, lai pārvietotos pa vienu rindu uz leju un pāri vienai kolonnai pa labi - atkārtojot šo cilpu 10 reizes.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Diapazona objekta izmantošana ar Activecell. Offset Select
Diapazona objekta izmantošana ar aktīvo šūnu dažreiz var mulsināt dažus cilvēkus.
Apsveriet šādu procedūru:
| 1234 | Sub ActiveCellOffsetRange ()Diapazons ("B1: B10"). AtlasietActiveCell.Offset (1, 1). Diapazons ("A1"). IzvēlietiesBeigu apakš |
Izmantojot ActiveCell.Offset (1,1.Range (“A1”), ir norādīts diapazons (“A1”). Tomēr tas nenozīmē, ka lapas A1 šūna tiks atlasīta. Tā kā esam norādījuši diapazonu (“B1: B10”), šī diapazona šūna A1 faktiski ir darbgrāmatas šūna B1. Tāpēc šūna tiks nobīdīta ar 1 rindu un 1 kolonnu no šūna B1 NAV no šūnas A1.
Tāpēc diapazons (“A1”) šajā gadījumā nav obligāts, jo makro darbosies tāpat ar to vai bez tā.
Alternatīvas ActiveCell
Tā vietā, lai izmantotu Activecell ar nobīdes metodi, mēs varam izmantot arī diapazona objektu ar nobīdes metodi.
| 123 | Apakš diapazons: Offset ()Diapazons ("B1"). Nobīde (0, 1). IzvēlietiesBeigu apakš |
Iepriekš minētā procedūra darblapā atlasītu šūnu C1.
