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. Najprv musíme dodať, na ktorý objekt VBA máme na mysli, potom zavrieť príkaz With príkazom End With , potom 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ť?) Končite
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.
Príklad č
Predpokladajme, že máte určitú hodnotu v bunke A1, 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 „font“ tejto bunky.
V rámci vlastnosti FONT pristupujeme k vlastnosti Size a veľkosť zadávame znamienkom 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ť, zakaždým sme zadali adresu bunky. Vďaka tomu vyzerá kód zdĺhavo a zdĺhavo.
Teraz použijeme príkaz VBA With na zníženie zadania adresy bunky zakaždým. 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 súvisiace s písmom, môžete spomenúť vlastnosť bunka a FONT.
Kód:
Sub With_Example2 () s rozsahom ("A1"). Písmo Koniec Koniec Sub
Inside the VBA With Statement, we can see the IntelliSense list. It will show properties and methods related to FONT property only.
We can perform any set of activities with this now.
Code:
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
The 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
- Príkaz With sa používa na minimalizáciu kódu.
- Najprv musíme dodať objekt pre príkaz With.
- Po zadaní konkrétneho objektu môžeme pristupovať iba k jeho vlastnostiam a metódam.
