VBA s | Ako používať s ... Koniec s vyhlásením v Exceli VBA?

S výpisom v programe Excel VBA

Príkaz With sa vo VBA používa na prístup ku všetkým vlastnostiam a metódam spomínaného objektu. Musíme najskôr dodať, na ktorý objekt VBA máme na mysli, potom zavrieť príkaz With príkazom End With , potom vo vnútri tohto príkazu môžeme vykonať všetky zmeny vlastností a metódy spomínaného objektu.

Nižšie je uvedená syntax príkazu With Statement vo VBA.

 Pomocou [OBJEKT] [Kód ... Čo je potrebné urobiť?] Koniec 

Objekt nie je nič iné ako rad buniek alebo buniek, na ktoré odkazujeme, a potom môžeme zmeniť vlastnosti a vykonať všetky metódy spojené s touto konkrétnou bunkou alebo bunkami.

Ako používať príkaz v programe Excel VBA?

Ďalej uvádzame niekoľko príkladov použitia príkazu With Statement v programe Excel VBA.

Túto šablónu VBA s excelom si môžete stiahnuť tu - VBA so šablónou Excel

Príklad č

Predpokladajme, že máte v bunke A1 určitú hodnotu, do bunky A1 som zadal text ako „Excel VBA“.

Teraz pre túto bunku musím urobiť nejaké úlohy, tj formátovanie v programe Excel.

Chcem zmeniť veľkosť písma, názov písma a farbu interiéru, vložiť orámovanie atď. Typické je to, že bunku najskôr odkážeme pomocou objektu VBA RANGE.

Kód:

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

Teraz, aby sme zmenili veľkosť písma, pristupujeme k vlastnosti „písma“ tejto bunky.

Pod vlastnosťou FONT vstúpime do vlastnosti Size a veľkosť zadáme znakom rovnosti.

Kód:

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

Teraz podobne robíme ďalšie úlohy formátovania, ako je uvedené nižšie.

Kód:

 Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xlNepretržitý koncový sub 

Toto urobí všetky spomenuté úlohy, ale ak sa pozriete na kód, aby ste vykonali každú každú formátovaciu činnosť, ktorú sme zadali do adresy bunky zakaždým, spôsobí to, že kód bude zdĺhavý a zdĺhavý.

Teraz použijeme príkaz VBA With, aby sme zakaždým znížili zadanie adresy bunky. Otvorte príkaz WITH v programe Excel VBA a zadajte adresu bunky.

Kód:

 Sub With_Example1 () s rozsahom ("A1") End Sub 

Do výroku With vložte bodku, aby ste videli všetky vlastnosti a metódy bunky A1.

Teraz sa prvou aktivitou formátovania mení veľkosť písma, takže pristupujte k FONTU a pod touto vlastnosťou SIZE prístupu.

Kód:

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

Podobne zadajte ďalšie kódy formátovania a zatvorte príkaz VBA With Statement.

Kód:

 Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xl Kontinuálne Koniec Koncom Sub 

Spustením kódu zobrazíte všetky formátovania v uvedenom objekte, tj. V bunke A1.

Takže všetko formátovanie použité v bunke. Pozri, aká skvelá je táto technika.

Príklad č

Napríklad, ak chcete zmeniť všetky vlastnosti týkajúce sa písma, môžete spomenúť vlastnosť bunka a FONT.

Kód:

 Sub With_Example2 () s rozsahom ("A1"). Písmo Koniec Koniec Sub 

Vo vnútri vyhlásenia vba môžeme vidieť zoznam IntelliSense, ktorý zobrazuje vlastnosti a metódy súvisiace iba s vlastnosťou FONT.

Teraz s tým môžeme vykonávať ľubovoľnú sadu činností.

Kód:

 Sub With_Example2() With Range("A1").Font .Bold = True 'Font will be Bold .Color = vbAlias 'Font color will be Alias .Italic = True 'Font will be italic style .Size = 20 ' Font size will be 20 .Underline = True 'Font will be underlined End With End Sub 

The result of this will be as shown below.

Example #3

Below code will access only cell border-related properties.

Code:

 Sub With_Example3() With Range("B2").Borders .Color = vbRed 'Border color will be red .LineStyle = xlContinuous 'Full border .Weight = xlThick 'Thick border End With End Sub 

The result of this code is as follows.

Things to Remember

  • With statement is used to minimize the code.
  • We need to supply object first for With statement.
  • Once the specific object is supplied we can access only that object’s properties and methods.