Mes jau apžvelgėme kintamuosius ir konstantas mūsų VBA duomenų tipų - kintamųjų ir konstantų pamokoje. Dabar mes pažvelgsime į diapazono objektą VBA ir kaip paskelbti kintamąjį kaip diapazono objektą. Diapazono objektas naudojamas žymėti langelius ar kelias VBA ląsteles. Taigi, tai labai naudinga naudoti savo kode.
Spustelėkite čia, jei norite gauti daugiau informacijos apie VBA diapazonus ir ląsteles.
VBA diapazono objektas
Diapazono objektą galite naudoti norėdami nurodyti vieną langelį. Pvz., Jei norite nurodyti savo VBA kodo A1 langelį, galite naudoti VBA diapazono objektą, kaip parodyta toliau pateiktame kode:
1234 | Antrinis nukreipimasToASingleCellUsingTheRangeObject ()Diapazonas („A1“). Vertė = 89Diapazonas („A1“). Šriftas. Paryškintas = tiesaPabaiga Sub |
Jei norite paleisti kodą, klaviatūroje paspausdami „Vykdyti“ arba F5, faktiniame darbalapyje gausite tokį rezultatą:
Diapazono objektą galite naudoti norėdami nurodyti kelias langelius ar diapazonus. Pvz., Jei norite nurodyti VBA kodo langelių diapazoną (A1: C1), galite naudoti VBA diapazono objektą, kaip parodyta žemiau esančiame kode:
123456 | Antrinis nukreipimasToMultipleCellsUsingTheRangeObject ()Diapazonas ("A1: C1"). Vertė = "ABC"Diapazonas („A1: C1“). Rėmeliai (xlEdgeBottom) .LineStyle = xlDoublePabaiga Sub |
Jei norite paleisti kodą, klaviatūroje paspausdami „Vykdyti“ arba F5, faktiniame darbalapyje gausite tokį rezultatą:
Kintamojo paskelbimas diapazonu
Deklaruojant kintamąjį kaip diapazoną, turėsite naudoti raktinius žodžius „Dim“ ir „Set“. Žemiau pateiktas kodas parodo, kaip kintamąjį paskelbti kaip diapazoną.
123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeNustatyti rng = Diapazonas („A10: B10“)rng.Value = "AutomateExcel"rng.Font.Bold = Tiesarng. Pasirinkiterng. Stulpeliai. AutoFitPabaiga Sub |
Rezultatas yra toks:
Konkrečių eilučių pasirinkimas jūsų diapazono objekte
Savo diapazono objekte galite pasirinkti konkrečias eilutes. Žemiau pateiktas kodas parodo, kaip tai padaryti:
12345678 | Antrinis pasirinkimasSpecificRowsInTheRangeObject ()Dim rng As RangeNustatyti rng = Diapazonas („A1: C3“)rng. Eilutės (3). PasirinkitePabaiga Sub |
Rezultatas yra toks:
Konkrečių stulpelių pasirinkimas diapazono objekte
Savo diapazono objekte galite pasirinkti konkrečius stulpelius. Žemiau pateiktas kodas parodo, kaip tai padaryti:
12345678 | Antrinis pasirinkimasSpecificColumnsInTheRangeObject ()Dim rng As RangeNustatyti rng = Diapazonas („A1: C3“)rng. Stulpeliai (3). PasirinkitePabaiga Sub |