Ši pamoka išmokys jus, kaip apibrėžti objektų kintamuosius naudojant VBA nustatymą.
Objekto kintamųjų apibrėžimas
Objektai yra kertinis „Microsoft Office“ akmuo - be objektų mes nieko negalime pasiekti. „Excel“ objektai apima darbaknygę, darbalapį arba diapazono objektus. „Microsoft Word“ pavyzdžiai yra dokumentas arba lentelės objektas. Kiekvienas objektas turi įvairovę Savybės ir Metodai kurį galima užprogramuoti valdyti to objekto elgesį.
Objekto kintamojo deklaravimas
Kad galėtume nurodyti kodą objekte ir todėl valdyti objektą, turime deklaruoti objektą. Tai galime padaryti naudodami „Dim Statement“.
| 123456 | Dim wkb kaip darbo knygaPritemdyti wks kaip darbalapįDim Rng kaip diapazonasDim wdDoc kaip dokumentasBlokuoti wdTbl kaip lentelęDim shp kaip Shape |
Tai Mat deklaracija gali būti pateikta procedūros metu:
arba už procedūrų modulio lygiu:
Jei kintamasis deklaruojamas modulio lygiu (ne procedūroje), kintamąjį galima naudoti visame modulyje.
Jei objekto kintamasis deklaruojamas naudojant viešą teiginį, kintamąjį galima naudoti visame VBA projekte:
Nustatykite vertę
Kai deklaravote objektą, turite jam priskirti vertę. Tai reikia padaryti naudojant Nustatykite pareiškimą ir tai galima padaryti tik per a Procedūra.
| 12345 | Sub -Objektai ()Nustatykite wkb = ActiveWorkbookNustatykite wks = Sheet1Nustatyti rng = Diapazonas („A1: G4“)Pabaiga Sub |
Pastaba: tai skiriasi nuo verčių priskyrimo neobjektiniams kintamiesiems. Privalote naudoti sakinį Set, kad priskirtumėte objektą kintamajam. Jei to nepadarysite, gausite klaidą:
Priskyrę objektui vertę, galite parašyti kodą, kad galėtumėte valdyti elgesį arba manipuliuoti objektu.
VBA programavimas | Kodo generatorius jums tinka!
„Excel“ objektų pavyzdžiai
Darbo knygos objektas
Paskelbę darbaknygės kintamąjį, galite priskirti darbaknygę tam objektui ir naudoti turimas ypatybes bei metodus, kad galėtumėte manipuliuoti tuo objektu. Žemiau pateiktame pavyzdyje mes išsaugosime darbaknygę.
| 123456789101112 | Antrasis darbaknygės objektas ()“paskelbti darbo knygos objektąDim wkb kaip darbo knyga“priskirkite objektui neišsaugotą darbaknygęNustatykite wkb = Darbaknygės („1 knyga“)'išsaugoti darbo knygąwkb.SaveAs "C: \ data \ testbook.xlsx"'uždarykite darbo knygąwkb.uždaryti„nepamirškite paleisti objektoNustatyti wkb = niekoPabaiga Sub |
Darbo lapo objektas
Panašiai galite manipuliuoti darbalapiu ar darbalapiais, kai paskelbiate darbalapį kaip kintamąjį. Žemiau pateiktame pavyzdyje mes pervadiname Sheet1 ir Sheet2.
| 12345678910111213 | Antrasis darbalapisObject ()Dim wks1 Kaip darbalapisDim wks2 kaip darbalapis“inicijuoti objektusNustatykite wks1 = Sheet1Nustatykite wks2 = Sheet2“pervadinkite lapuswks1.Name = "Klientai"wks2.Name = "Produktai"“Neleiskite objektams niekowks1 = niekowks2 = niekoPabaiga Sub |
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
Diapazono objektas
Diapazono objektas yra vienas iš naudingiausių „Excel“ manipuliavimo objektų. Žemiau pateiktame pavyzdyje paryškiname diapazoną nuo A1 iki E1 ir formuojame jį su apatine riba.
| 12345678910111213 | Sub diapazonasObject ()Dim rng1 Kaip diapazonas“Inicijuokite asortimentąNustatyti rng = Diapazonas („A1: E1“)paryškinkite diapazoną ir nustatykite apatinę kraštąrng.Font.Bold = TiesaSu rng1.Borders (xlEdgeBottom).LineStyle = xlTęstinis.ColorIndex = 0.TintAndShade = 0.Svoris = xlPlonasPabaiga suPabaiga Sub |
Formos objektas
Norėdami dirbti su figūromis, taip pat galite naudoti objektų kintamuosius.
| 123456789101112 | Sub AddShape ()Dim shp As Shape“sukurkite formąNustatykite shp = ActiveDocument.Shapes.AddShape (msoShapeSmileyFace, 68.25, 225.75, 136.5, 96#)Su shp"pakeisti vidinę spalvą ir stilių.Fill.ForeColor.RGB = RGB (255, 255, 0).Pilti.Kietas'koreguok šypseną!. Koregavimai. 1 punktas = 0,07181Pabaiga suPabaiga Sub |
