Lausekkeella Excel VBA: ssa
With lauseketta käytetään VBA: ssa kaikkien mainitun objektin ominaisuuksien ja menetelmien käyttämiseen. Meidän on toimitettava ensin mikä VBA-objekti, johon viittaamme, sulkea ensin With-käsky kanssa End With ja sitten tämän lauseen sisällä. Voimme suorittaa kaikki mainitun kohteen ominaisuusmuutokset ja menetelmät.
Alla on VBA: n With Statement -syntaksi.
Kohdalla (OBJECT) (Koodi … Mitä on tehtävä?) Lopeta
Kohde ei ole muuta kuin joukko soluja tai soluja, joihin viittaamme, ja sitten voimme muuttaa ominaisuuksia ja suorittaa kaikki kyseiseen soluun tai soluihin liittyvät menetelmät.
Kuinka käyttää lauseketta Excel VBA: ssa?
Alla on joitain esimerkkejä Excel VBA: n kanssa lauseen kanssa.
Esimerkki 1
Oletetaan, että sinulla on tietty arvo A1-solussa, olen kirjoittanut tekstin "Excel VBA" -soluun A1.
Nyt tässä solussa minun on tehtävä joitain tehtäviä, ts. Muotoilu Excelissä.
Haluan muuttaa kirjasimen kokoa, fonttinimeä ja sisustuksen väriä, lisätä reunuksen jne. … Tyypillistä on, että viittaamme ensin soluun käyttämällä VBA RANGE -objektia.
Koodi:
Sub With_Example1 () Range ("A1") End Sub
Jos haluat muuttaa kirjasinkokoa, pääsemme tämän solun "font" -ominaisuuteen.
FONT-ominaisuuden alla käytämme Koko-ominaisuutta ja annamme koon asettamalla yhtäläisyysmerkin.
Koodi:
Sub With_Example1 () -alue ("A1"). Font.Size = 15 End Sub
Nyt samoin teemme muita muotoilutehtäviä, kuten alla on esitetty.
Koodi:
Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xlJatkuva loppuosa
Tämä tekee kaikki mainitut tehtävät, mutta jos tarkastelet koodia jokaisen muotoilutoiminnon suorittamiseksi, olemme toimittaneet solun osoitteen joka kerta. Tämän vuoksi koodi näyttää pitkältä ja aikaa vievältä.
Nyt käytämme VBA With -lauseketta soluosoitteen vähentämiseen joka kerta. Avaa WITH-käsky Excel VBA: ssa ja lähetä solun osoite.
Koodi:
Sub With_Example1 () With Range ("A1") End Sub
Laita With-lauseen sisään piste nähdäksesi kaikki solun A1 ominaisuudet ja menetelmät.
Nyt ensimmäinen muotoilutoiminto muuttaa kirjasinkokoa, joten siirry FONT-kohtaan ja tämän SIZE-ominaisuuden alle.
Koodi:
Sub With_Example1 () With Range ("A1"). Font.Size = 15 End Sub
Anna vastaavasti muut muotoilukoodit ja sulje VBA lausekkeella.
Koodi:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlJatkuva loppu loppuosalla
Suorita koodi nähdäksesi kaikki muotoilut mainitussa objektissa, ts. Solussa A1.
Joten kaikki soluun käytetyt muotoilut. Katso kuinka siisti tämä tekniikka on.
Esimerkki 2
Jos esimerkiksi haluat muuttaa kaikkia kirjasimeen liittyviä ominaisuuksia, voit mainita solun ja FONT-ominaisuuden.
Koodi:
Sub With_Example2 () Range ("A1"). Kirjasimen loppu End Sub
VBA With Statement -sovelluksen sisällä voimme nähdä IntelliSense-luettelon. Se näyttää vain FONT-ominaisuuteen liittyvät ominaisuudet ja menetelmät.
Voimme suorittaa tällä hetkellä minkä tahansa toiminnan.
Koodi:
Sub With_Example2 () with Range ("A1"). Font .Bold = True 'Fontti on lihavoitu .Color = vbAlias' Fontin väri on Alias .Italic = True 'Fontti on kursivoitu .Size = 20' Fontin koko olla 20 .Underline = True 'Fontti alleviivataan End With End Sub
Tämän tulos on seuraava.
Esimerkki 3
Alla oleva koodi käyttää vain solurajaan liittyviä ominaisuuksia.
Koodi:
Sub With_Example3 () with Range ("B2"). Borders .Color = vbRed 'Border colours is red .LineStyle = xlContinuous' Full border .Weight = xlThick 'Thick border End With End Sub
Tämän koodin tulos on seuraava.
Muistettavaa
- Kanssa lauseketta käytetään koodin minimoimiseksi.
- Meidän on toimitettava ensin objekti With-lauseelle.
- Kun tietty objekti on toimitettu, voimme käyttää vain kyseisen objektin ominaisuuksia ja menetelmiä.
