VBA z | Kako uporabljati z ... Končaj z izjavo v Excelu VBA?

Z izjavo v Excelu VBA

Stavek With se v VBA uporablja za dostop do vseh lastnosti in metod omenjenega predmeta. Navesti moramo, na kateri objekt VBA se sklicujemo, nato izjavo With zapremo s End With , nato lahko v tej izjavi izvedemo vse spremembe lastnosti in metode omenjenega predmeta.

Spodaj je sintaksa With Statement v VBA.

 Z [OBJECT] [Koda ... Kaj je treba storiti?] Končaj z 

Predmet ni nič drugega kot nabor celic ali celic, na katere se sklicujemo, nato pa lahko spremenimo lastnosti in izvedemo vse metode, povezane s to določeno celico ali celicami.

Kako uporabljati izjavo v Excelu VBA?

Spodaj je nekaj primerov za uporabo z izjavo v Excelu VBA.

To VBA z Excelovo predlogo lahko prenesete tukaj - VBA z Excelovo predlogo

Primer # 1

Predpostavimo, da imate določeno vrednost v celici A1, v celico A1 sem vnesel besedilo kot "Excel VBA".

Zdaj za to celico moram opraviti nekaj nalog, npr. Formatiranje v Excelu.

Želim spremeniti velikost pisave, ime pisave in barvo notranjosti, vstaviti obrobo itd. Običajno je, da celico najprej napotimo s pomočjo predmeta VBA RANGE.

Koda:

 Sub With_Example1 () Obseg ("A1") Konec Sub 

Zdaj za spremembo velikosti pisave dostopamo do lastnosti "font" te celice.

Pod lastnostjo FONT dostopamo do lastnosti Size in vnesemo velikost tako, da damo enak znak.

Koda:

 Sub With_Example1 () Obseg ("A1"). Font.Size = 15 End Sub 

Zdaj podobno opravljamo tudi druge naloge oblikovanja, kot je prikazano spodaj.

Koda:

 Sub With_Example1 () Obseg ("A1"). Font.Size = Obseg 15 ("A1"). Font.Name = Obseg "Verdana" ("A1"). Notranjost.Barva = vbRumeni obseg ("A1"). Meje .LineStyle = xlNeprekinjeni končni pod 

S tem bodo opravljene vse omenjene naloge, vendar če si ogledate kodo in izvedete vsako dejavnost oblikovanja, ki smo jo vsakič posredovali, je koda videti dolgotrajna in dolgotrajna.

Zdaj bomo z izjavo VBA With vsakič zmanjšali vnos naslova celice. Odprite izjavo WITH v Excelu VBA in vnesite naslov celice.

Koda:

 Sub With_Example1 () With Range ("A1") End Sub 

V stavku With postavite piko, da vidite vse lastnosti in metode celice A1.

Zdaj prva dejavnost oblikovanja spreminja velikost pisave, zato dostopajte do FONT in pod to lastnost SIZE.

Koda:

 Sub With_Example1 () Z obsegom ("A1"). Font.Size = 15 End Sub 

Podobno navedite druge kode za oblikovanje in zaprite VBA z izjavo.

Koda:

 Sub With_Example1 () Z obsegom ("A1"). Font.Size = 15. Font.Name = "Verdana" .Interior.Color = vbRumena .Borders.LineStyle = xlNeprekinjen konec s koncem Sub 

Zaženite kodo in si oglejte celotno oblikovanje v omenjenem objektu, tj. Celici A1.

Torej, vse oblikovanje, uporabljeno za celico. Poglejte, kako kul je ta tehnika.

2. primer

Če želite na primer spremeniti vse lastnosti, povezane s pisavo, lahko omenite lastnost celice in FONT.

Koda:

 Sub With_Example2 () Z obsegom ("A1"). Pisava se konča s koncem Sub 

Znotraj vba With Statement lahko vidimo seznam IntelliSense, ki bo prikazal lastnosti in metode, povezane samo z lastnostjo FONT.

Zdaj lahko s tem opravljamo poljuben sklop dejavnosti.

Koda:

 Sub With_Example2 () Z obsegom ("A1"). Pisava .Bold = True 'Pisava bo krepka .Color = vbAlias' Barva pisave bo Vzdevek. Italic = True 'Pisava bo ležeča. Velikost = 20' Velikost pisave bo be 20. .Underline = True 'Pisava bo podčrtana End With End Sub 

Rezultat tega bo prikazan spodaj.

3. primer

Spodaj koda bo dostopala samo do lastnosti, povezanih z mejo celic.

Koda:

 Sub With_Example3 () Z obsegom ("B2"). Obrobe .Color = vbRed 'Barva obrobe bo rdeča. LineStyle = xlContinuous' Polna obroba. Teža = xlThick 'Debela obroba Konec s koncem Sub 

Rezultat te kode je naslednji.

Stvari, ki si jih je treba zapomniti

• Izjava se uporablja za zmanjšanje kode.
• Najprej moramo dostaviti objekt za izjavo With.
• Ko dobimo določen objekt, lahko dostopamo samo do lastnosti in metod tega predmeta.