See õpetus õpetab teile, kuidas VBA -s Set -lause abil objekti muutujaid määratleda.
Objekti muutujate määratlemine
Objektid on Microsoft Office'i alustala - ilma objektideta ei saa me midagi saavutada. Excelis sisaldavad objektid töövihikut, töölehte või vahemiku objekte. Microsoft Wordis on näiteks objektid Dokument või Tabel. Igal objektil on erinevaid Omadused ja Meetodid mida saab programmeerida objekti käitumise juhtimiseks.
Objekti muutuja deklareerimine
Enne kui saame objektile koodis viidata ja seega objekti juhtida, peame objekti deklareerima. Seda saame teha Dim Statement abil.
| 123456 | Dim wkb töövihikunaDim wks töölehenaDim Rng kui vahemikDim wdDoc dokumendinaDim wdTbl tabelinaDim shp kui Shape |
See Dim deklareerimine võib toimuda protseduuri käigus:
või väljaspool protseduuri mooduli tasandil:
Kui muutuja on deklareeritud mooduli tasemel (väljaspool protseduuri), saab muutujat kasutada kogu mooduli ulatuses.
Kui objekti muutuja on deklareeritud avaliku avaldusega, saab seda muutujat kasutada kogu VBA projekti vältel:
Määra väärtus
Kui olete objekti deklareerinud, peate objektile väärtuse määrama. Seda tuleb teha kasutades Määra avaldus ja seda saab teha ainult a piires Menetlus.
| 12345 | AlamhulkObjects ()Määra wkb = ActiveWorkbookMäära wks = leht 1Määra rng = vahemik ("A1: G4")End Sub |
Märkus. See erineb väärtuste määramisest mitteobjektilistele muutujatele. Objekti muutujale määramiseks PEAB kasutama lauset Set. Kui te seda ei tee, saate vea:
Kui olete objektile väärtuse määranud, saate kirjutada koodi käitumise juhtimiseks või objektiga manipuleerimiseks.
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Objektide näited Excelis
Töövihiku objekt
Kui olete töövihiku muutuja deklareerinud, saate sellele objektile määrata töövihiku ja kasutada selle objektiga manipuleerimiseks saadaolevaid atribuute ja meetodeid. Allolevas näites salvestame töövihiku.
| 123456789101112 | Töövihiku alamobjekt ()'deklareerige töövihiku objektDim wkb töövihikuna'määrake objektile salvestamata töövihikMäära wkb = Töövihikud ("Raamat1")'salvestage töövihikwkb.SaveAs "C: \ data \ testbook.xlsx"'sulgege töövihikwkb.sulge"ärge unustage objekti vabastadaMäära wkb = mitte midagiEnd Sub |
Töölehe objekt
Samamoodi saate töölehe või töölehtedega manipuleerida, kui olete töölehe muutujaks kuulutanud. Allolevas näites nimetame Sheet1 ja Sheet2 ümber.
| 12345678910111213 | AlamlehtObject ()Dim wks1 kui töölehtDim wks2 töölehena'initsialiseeri objektidMäära wks1 = leht1Määra wks2 = Sheet2"nimetage lehed ümberwks1.Name = "Kliendid"wks2.Name = "Tooted"seadke objektid tühjakswks1 = mitte midagiwks2 = mitte midagiEnd Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
Vahemiku objekt
Objekt Range on üks kasulikumaid objekte Excelis manipuleerimiseks. Allolevas näites me paksendame vahemikku A1 kuni E1 ja vormindame selle alumise äärisega.
| 12345678910111213 | AlamvahemikObject ()Dim rng1 As Range'Intialiseeri vahemikMäära rng = vahemik ("A1: E1")'rasvane vahemik ja määrake alumine äärrng.Font.Bold = TõsiKoos rng1.Borders (xlEdgeBottom).LineStyle = xlPidev.ColorIndex = 0.TintAndShade = 0.Kaal = xlÕhukeLõpetaEnd Sub |
Kuju objekt
Kujudega töötamiseks saate kasutada ka objektimuutujaid.
| 123456789101112 | Sub AddShape ()Dim shp As Shape'loo kujuMäära shp = ActiveDocument.Shapes.AddShape (msoShapeSmileyFace, 68.25, 225.75, 136.5, 96#)Koos shp"värvi ja stiili muutmine.Fill.ForeColor.RGB = RGB (255, 255, 0).Täida. Tahke'kohandage naeratust!.Kohandused.Item (1) = 0,07181LõpetaEnd Sub |
