Šī apmācība iemācīs jums definēt objektu mainīgos, izmantojot iestatījumu VBA.
Objektu mainīgo definēšana
Objekti ir Microsoft Office stūrakmens - bez objektiem mēs neko nevaram sasniegt. Programmā Excel objekti ietver darbgrāmatu, darblapu vai diapazona objektus. Programmā Microsoft Word piemēri ir objekts Dokuments vai Tabula. Katram objektam ir dažādi Rekvizīti un Metodes ko var ieprogrammēt, lai kontrolētu šī objekta uzvedību.
Objekta mainīgā deklarēšana
Pirms mēs varam atsaukties uz objektu kodā un tādējādi kontrolēt objektu, mums ir jādeklarē objekts. Mēs to varam izdarīt, izmantojot Dim Statement.
| 123456 | Dim wkb kā darbgrāmataDim wks kā darblapaDim Rng kā diapazonsDim wdDoc kā dokumentsDim wdTbl kā tabulaDim shp kā Shape |
Šī Izmērs deklarācija var notikt procedūras ietvaros:
vai ārpus procedūras moduļa līmenī:
Ja mainīgais ir deklarēts moduļa līmenī (ārpus procedūras), mainīgo var izmantot visā modulī.
Ja objekta mainīgais ir deklarēts ar publisko paziņojumu, tad mainīgo var izmantot visā VBA projektā:
Iestatiet vērtību
Kad esat deklarējis objektu, jums tam jāpiešķir vērtība. Tas jādara, izmantojot Iestatiet paziņojumu un to var izdarīt tikai a Procedūra.
| 12345 | Apakškopu objekti ()Iestatīt wkb = ActiveWorkbookIestatīt wks = Sheet1Iestatīt rng = Diapazons ("A1: G4")Beigu apakš |
Piezīme. Tas atšķiras no vērtību piešķiršanas mainīgajiem, kas nav objekti. Jums ir jāizmanto paziņojums Set, lai objektu piešķirtu mainīgajam. Ja to nedarīsit, tiks parādīts kļūdas ziņojums:
Kad esat piešķīris objektam vērtību, varat rakstīt kodu, lai kontrolētu darbību vai manipulētu ar objektu.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Objektu piemēri programmā Excel
Darbgrāmatas objekts
Kad esat deklarējis darbgrāmatas mainīgo, varat šim objektam piešķirt darbgrāmatu un izmantot pieejamās rekvizītus un metodes, lai manipulētu ar šo objektu. Zemāk redzamajā piemērā mēs saglabāsim darbgrāmatu.
| 123456789101112 | Apakšgrāmatas apakšobjekts ()'deklarēt darbgrāmatas objektuDim wkb kā darbgrāmata'piešķiriet objektam nesaglabātu darbgrāmatuIestatīt wkb = Darbgrāmatas ("1. grāmata")'saglabājiet darbgrāmatuwkb.SaveAs "C: \ data \ testbook.xlsx"'aizveriet darbgrāmatuwkb. aizvērt'atcerieties atbrīvot objektuSet wkb = NekasBeigu apakš |
Darblapas objekts
Līdzīgi jūs varat manipulēt ar darblapu vai darblapām, kad esat deklarējis darblapu kā mainīgo. Zemāk redzamajā piemērā mēs pārdēvējam Sheet1 un Sheet2.
| 12345678910111213 | Apakšlapa Objekts ()Dim wks1 kā darblapaDim wks2 kā darblapa'inicializēt objektusIestatīt wks1 = Sheet1Iestatīt wks2 = Sheet2'pārdēvēt lapaswks1.Name = "Klienti"wks2.Name = "Produkti"'iestatiet objektus uz nekowks1 = Nekaswks2 = NekasBeigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Diapazona objekts
Diapazona objekts ir viens no visnoderīgākajiem objektiem programmā Excel. Zemāk redzamajā piemērā mēs treknrakstām diapazonu no A1 līdz E1 un formatējam to ar apakšējo apmali.
| 12345678910111213 | Apakš diapazonsObject ()Dim rng1 kā diapazonsIntializējiet diapazonuIestatīt rng = Diapazons ("A1: E1")treknrakstā diapazonu un iestatiet apakšējo apmalirng.Font.Bold = PatiessAr rng1.Borders (xlEdgeBottom).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Svars = xlThinBeigt arBeigu apakš |
Formas objekts
Varat arī izmantot objektu mainīgos, lai strādātu ar formām.
| 123456789101112 | Sub AddShape ()Dim shp kā forma'izveidot formuIestatiet shp = ActiveDocument.Shapes.AddShape (msoShapeSmileyFace, 68.25, 225.75, 136.5, 96#)Ar shp"mainīt krāsu un stilu.Fill.ForeColor.RGB = RGB (255, 255, 0).Pildīt.Ciets'noregulējiet smaidu!.Pielāgojumi. Vienums (1) = 0,07181Beigt arBeigu apakš |
