Exceli VBA avaldusega
Koos avaldusega kasutatakse VBA-s juurdepääsu kõigile nimetatud objekti omadustele ja meetoditele. Peame esitama, millisele VBA-objektile me viitame, seejärel sulgeda lause With-ga koos End With-ga , seejärel selle avaldise sees. Saame teha kõik nimetatud objekti omaduste muutused ja meetodid.
Allpool on VBA avalduse süntaks.
Funktsiooniga (OBJECT) (kood … Mida tuleb teha?) Lõpeta
Objekt pole midagi muud, kui rakkude või rakkude vahemik, millele me viitame, ja seejärel saame muuta omadusi ja teostada kõiki selle konkreetse raku või rakkudega seotud meetodeid.
Kuidas Exceli VBA-s avaldusega kasutada?
Allpool on toodud mõned näited Exceli VBA-s avaldise kasutamiseks.
Näide 1
Oletame, et teil on lahtris A1 kindel väärtus, olen lahtrisse A1 sisestanud teksti „Excel VBA”.
Selle lahtri jaoks pean tegema mõned ülesanded, st vormindama Excelis.
Ma tahan muuta fondi suurust, fondi nime ja sisevärvi, sisestada ääre jne … Tavaliselt teeme seda, et me suuname kõigepealt lahtrisse objekti VBA RANGE abil.
Kood:
Alam_näide1 () vahemik ("A1") Lõpp alam
Nüüd saate fondi suuruse muutmiseks pääseda selle lahtri atribuudile „font”.
Atribuudi FONT all pääseme juurde atribuudile Size ja sisestame suurus, pannes võrdusmärgi.
Kood:
Alamvalik_näide1 () Vahemik ("A1"). Font.Size = 15 Lõpp-alam
Nüüd samamoodi teeme ka teisi vormindamisülesandeid, nagu allpool näidatud.
Kood:
Alamvalik_näide1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xlContinuous End Sub
See teeb kõik mainitud ülesanded, kuid kui vaatate koodi iga iga vormindamistoimingu sooritamiseks, oleme iga kord lahtri aadressi sisestanud. Nii näeb kood välja pikk ja aeganõudev.
Nüüd kasutame lauset VBA With, et vähendada lahtriaadressi sisestamist iga kord. Avage Exceli VBA-s lause WITH ja sisestage lahtriaadress.
Kood:
Alam_näide1 () koos vahemikuga ("A1") Lõpp alam
Avalduse With sisse asetage punkt, et näha lahtris A1 kõiki omadusi ja meetodeid.
Nüüd muudab esimene vormindamistegevus fondi suurust, nii et avage FONT ja selle juurdepääsu all SIZE.
Kood:
Sub With_Nample1 () koos vahemikuga ("A1"). Font.Size = 15 End Sub
Samamoodi esitage muud vorminduskoodid ja sulgege VBA koos avaldusega.
Kood:
Sub With_Eexample1 () koos vahemikuga ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlContinuous End With End Sub
Käivitage kood, et näha kogu mainitud objekti vormingut, st lahtrit A1.
Niisiis, kogu lahtrile rakendatud vormindus. Vaata, kui lahe see tehnika on.
Näide 2
Näiteks kui soovite muuta kõiki fontiga seotud atribuute, võite mainida lahtrit ja omadust FONT.
Kood:
Alamfail_näide2 () koos vahemikuga ("A1"). Fondi lõpp alamrubriigiga
VBA koos avaldusega näeme IntelliSense'i loendit. See näitab ainult atribuudiga FONT seotud omadusi ja meetodeid.
Sellega saame nüüd teha mis tahes tegevuste komplekti.
Kood:
Sub With_Example2 () koos vahemikuga ("A1"). Font .Bold = True 'Font on paks .Color = vbAlias' Fontide värv on Alias .Italic = True 'Font on kursiivstiil .Size = 20' Fondi suurus olema 20 .Underline = True 'Font joonitakse alla Lõpp lõpuga
Selle tulemus on selline, nagu allpool näidatud.
Näide # 3
Allolev kood pääseb juurde ainult lahtrite piiridega seotud atribuutidele.
Kood:
Alamjoonega_Näide3 () koos vahemikuga ("B2"). Äärised .Värv = vbRed 'Äärise värv on punane .LineStyle = xlContinuous' Täispiir .Weight = xlThick 'Paks ääris End Sub Sub
Selle koodi tulemus on järgmine.
Asjad, mida meeles pidada
- Koodiga minimeerimiseks kasutatakse valikut With.
- Esmalt peame objekti With with lause esitama.
- Kui konkreetne objekt on tarnitud, pääseme juurde ainult selle objekti omadustele ja meetoditele.
