seychellesartprojects.org

Lausekkeella Excel VBA: ssa

With lauseketta käytetään VBA: ssa kaikkien mainittujen objektien ominaisuuksien ja menetelmien käyttämiseen. Meidän on toimitettava ensin mikä VBA-objekti, johon viittaamme, sitten ensin Sulje With-lauseke kanssa End With , sitten tämän lauseen sisällä voimme suorittaa kaikki mainitun objektin ominaisuusmuutokset ja -menetelmät.

Alla on VBA: n With Statement -syntaksi.

 Kohdassa [KOHDE] [Koodi ... Mitä on tehtävä?] Lopeta 

Kohde on vain solualue tai solu, johon 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.

Voit ladata tämän VBA: n Excel-mallilla täältä - VBA: n Excel-mallilla

Esimerkki 1

Oletetaan, että sinulla on tietty arvo A1-solussa, olen kirjoittanut tekstin soluksi A1 "Excel VBA".

Nyt tässä solussa minun on tehtävä joitain tehtäviä, ts. Muotoilu Excelissä.

Haluan muuttaa kirjasinkokoa, 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 

Nyt muuttaa kirjasinkokoa pääsemme tämän solun "font" -ominaisuuteen.

FONT-ominaisuuden alla käytämme Koko-ominaisuutta ja syötämme 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 katsot koodia suorittamaan jokaisen muotoilutoiminnon, jonka olemme toimittaneet solun osoitteen joka kerta, tämä tekee koodista näyttävän pitkä ja aikaa vievä.

Nyt käytämme VBA With -lauseketta vähentämään solun osoitteen syöttöä 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 eli solussa A1.

Joten kaikki soluun käytetyt muotoilut. Katso kuinka siisti tämä tekniikka on.

Esimerkki 2

Esimerkiksi, jos haluat muuttaa kaikkia fonttiin liittyviä ominaisuuksia, voit mainita solun ja FONT-ominaisuuden.

Koodi:

 Sub With_Example2 () Range ("A1"). Kirjasimen loppu End Sub 

Sisällä vba With Statement, voimme nähdä IntelliSense-luettelon, joka 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

Koodin alapuolella voi 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ä.