Ši pamoka parodys, kaip naudoti „Range.End“ ypatybę VBA.
Dauguma dalykų, kuriuos rankiniu būdu darote „Excel“ darbaknygėje ar darbalapyje, gali būti automatizuoti naudojant VBA kodą.
Jei „Excel“ turite daugybę tuščių langelių ir paspausite Ctrl+rodyklė žemyn, žymeklis pereis į paskutinį tuščią langelį stulpelyje, kuriame esate. Panašiai, jei paspausite Ctl+rodyklė aukštyn, žymeklis pereis į pirmą tuščią langelį. Tas pats pasakytina apie eilutę naudojant Ctrl+rodyklė į dešinę arba Ctrl+rodyklė kairėn pereiti prie tos eilutės pradžios ar pabaigos. Visi šie klavišų deriniai gali būti naudojami jūsų VBA kode, naudojant Pabaigos funkcija.
Diapazono pabaigos ypatybių sintaksė
Naudodami ypatybę „Range.End“ galite pereiti į konkrečią dabartinio regiono ląstelę, su kuria dirbate.
išraiška.Galas (Kryptis)
išraiška yra langelio adresas (diapazonas), nuo kurio norite pradėti, pvz .: diapazonas („A1“)
PABAIGA yra valdomo diapazono objekto savybė.
Kryptis yra „Excel“ konstanta, kurią galite naudoti. Galimi 4 pasirinkimai - xlDown, xlToLeft, xlToRight ir xlUp.
Perėjimas prie paskutinės ląstelės
Toliau nurodyta procedūra perkelia jus į paskutinį langelį dabartiniame ląstelių regione, kuriame esate.
| 1234 | Sub GoToLast ()“pereikite prie paskutinės ląstelės, užimtos dabartiniame ląstelių regioneDiapazonas ("A1"). Pabaiga (xlDown). PasirinkitePabaiga Sub |
Eilių skaičiavimas
Ši procedūra leidžia naudoti xlŽemyn konstanta su ypatybe „Range End“, kad būtų galima suskaičiuoti, kiek eilučių yra dabartiniame regione.
| 12345678 | Sub GoToLastRowofRange ()Dim rw Kaip sveikasis skaičiusDiapazonas („A1“). Pasirinkite“gaukite paskutinę dabartinio regiono eilutęrw = Diapazonas ("A1"). Pabaiga (xlDown). Eilutė“parodykite, kiek eilučių naudojama„MsgBox“ Paskutinė šiame diapazone naudojama eilutė yra „& rw“Pabaiga Sub |
Žemiau esantis skaičiuos diapazono stulpelius naudodami xlToRight pastovus.
| 12345678 | Sub GoToLastCellofRange ()Dim col As As IntegerDiapazonas („A1“). Pasirinkitegauti paskutinį dabartinio regiono stulpelįcol = Diapazonas ("A1"). Pabaiga (xlToRight). Stulpelis“parodykite, kiek stulpelių naudojama„MsgBox“ Paskutinis šiame diapazone naudojamas stulpelis yra „& colPabaiga Sub |
Diapazono masyvo kūrimas
Toliau pateikta procedūra leidžia mums pradėti nuo pirmo langelio įvairiuose langeliuose, o tada naudoti savybę End (xlDown), kad surastume paskutinį langelį ląstelių diapazone. Tada galime iš naujo sudėlioti savo masyvą su visomis diapazono eilutėmis, taip leisdami mums peržvelgti langelių diapazoną.
| 123456789101112131415161718 | Sub PopulateArray ()“paskelbti masyvąDim strSuppliers () kaip eilutė“deklaruokite sveikąjį skaičių, kad suskaičiuotumėte eilutesDim n Kaip sveikasis skaičius'suskaičiuok eilutesn = Diapazonas ("B1", Diapazonas ("B1"). Pabaiga (xlDown)). Eilutės. Skaičius“inicijuokite ir užpildykite masyvą„ReDim str“ Klientai (n)“deklaruokite sveikąjį skaičių cikluiDim i As Integer'užpildyti masyvąJei i = 0 iki nstrCustomers (i) = Diapazonas ("B1"). Poslinkis (i, 0) .VertybėKitas I.Rodyti pranešimų laukelį su masyvo reikšmėmis„MsgBox Join“ („strCustomers“, „vbCrLf“)Pabaiga Sub |
Kai vykdysime šią procedūrą, ji grąžins šį pranešimų laukelį.
