Ši pamoka parodys, kaip naudoti „Activecell Offset“ VBA.
„ActiveCell“ yra VBA ypatybė, vaizduojanti jūsų darbalapio aktyvios ląstelės adresą. Jei pelės žymeklis yra A1 langelyje, „ActiveCell“ ypatybė VBA grąžins langelio adresą „A1“. Yra daug savybių ir metodų, prijungtų prie „ActiveCell“. Šiame straipsnyje mes sutelkiame dėmesį į „ActiveCell.Offset“ metodą.
„ActiveCell. Offset“ savybės ir metodai
„Activecell.Offset“ turi daugybę savybių ir metodų, kuriuos galima užprogramuoti naudojant VBA. Norėdami peržiūrėti galimas ypatybes ir metodus, įveskite toliau nurodytą procedūrą, kaip parodyta žemiau, ir paspauskite tašką klaviatūroje, kad pamatytumėte išskleidžiamąjį sąrašą.
Metodai pavaizduoti žalia metodo piktograma, o savybės - mažos rankos piktograma. „Activecell.Offset“ metodo savybės ir metodai yra tokie patys kaip „Activecell“ metodo.
„ActiveCell. Offset“ sintaksė
„Activecell.Offset“ sintaksė yra tokia
kur RowOffset ir ColumnOffset yra eilučių, kurias reikia kompensuoti, skaičius (teigiami skaičiai žemyn, neigiami skaičiai aukštyn) arba stulpelių, kuriuos norite kompensuoti, skaičius (teigiami skaičiai kompensuojami dešinėje, neigiami skaičiai kairėje).
ActiveCell.Offset… Pasirinkite
The Activecell.Offset… Pasirinkite metodas yra dažniausiai naudojamas metodas naudojant „Activecell.Offset“ metodą. Tai leidžia pereiti į kitą darbalapio langelį. Šį metodą galite naudoti norėdami perkelti stulpelius arba aukštyn arba žemyn savo darbalapio eilutes.
Jei norite pereiti žemyn eilute, bet likti tame pačiame stulpelyje:
| 1 | Activecell. Poslinkis (1,0). Pasirinkite |
Jei norite pereiti per stulpelį, bet likti toje pačioje eilutėje:
| 1 | Activecell. Poslinkis (0,1). Pasirinkite |
Norėdami pereiti žemyn eilute ir per stulpelį:
| 1 | Activecell. Poslinkis (1,1). Pasirinkite |
Norėdami pereiti aukštyn eilute:
| 1 | Activecell. Poslinkis (-1,0). Pasirinkite |
Norėdami perkelti stulpelį į kairę:
| 1 | Activecell. Poslinkis (0, -1). Pasirinkite |
Atlikdami toliau nurodytą procedūrą, mes einame per langelių diapazoną ir judame viena eilute žemyn ir per vieną stulpelį, kaip mes darome kilpą:
| 12345678 | Sub ActiveCellTest ()Dim x As IntegerDiapazonas („A1“). PasirinkiteKai x = nuo 1 iki 10„ActiveCell“ = xActiveCell. Offset (1, 1). PasirinkiteKitas xPabaiga Sub |
Rezultatas parodytas žemiau esančioje grafikoje:
Ciklas įkelia i reikšmę (1-10) į „Activecell“, tada jis naudoja „Activecell“. Poslinkis nuosavybę, kad judėtumėte viena eilute žemyn ir per vieną stulpelį į dešinę - kartokite šią kilpą 10 kartų.
VBA programavimas | Kodo generatorius jums tinka!
Naudojant diapazono objektą su „Activecell“. Poslinkis Pasirinkite
Naudojant diapazono objektą su aktyvia ląstele, kai kurie žmonės kartais gali suklaidinti.
Apsvarstykite šią procedūrą:
| 1234 | Sub ActiveCellOffsetRange ()Diapazonas („B1: B10“). Pasirinkite„ActiveCell.Offset“ (1, 1). Diapazonas („A1“). PasirinkitePabaiga Sub |
Naudojant „ActiveCell.Offset“ (1,1 diapazonas („A1“), buvo nurodytas diapazonas („A1“). Tačiau tai nereiškia, kad lapo langelis A1 bus pasirinktas. Kaip nurodėme diapazoną („B1: B10“), to diapazono langelis A1 iš tikrųjų yra darbaknygės langelis B1. Todėl langelis bus kompensuotas 1 eilute ir 1 stulpeliu iš ląstelė B1 NE iš langelio A1.
Todėl diapazonas („A1“) šiuo atveju nėra būtinas, nes makrokomanda veiks taip pat su ja arba be jos.
„ActiveCell“ alternatyvos
Užuot naudoję „Activecell“ su poslinkio metodu, mes taip pat galime naudoti diapazono objektą su poslinkio metodu.
| 123 | Poskyrio poslinkis ()Diapazonas („B1“). Poslinkis (0, 1). PasirinkitePabaiga Sub |
Aukščiau nurodyta tvarka darbalapyje pasirinktų langelį C1.
