S výpisem v aplikaci Excel VBA
Příkaz With se ve VBA používá pro přístup ke všem vlastnostem a metodám zmíněného objektu. Nejprve musíme zadat, na který objekt VBA odkazujeme, poté zavřít příkaz With pomocí End With , pak uvnitř tohoto příkazu. Můžeme provést všechny změny vlastností a metody zmíněného objektu.
Níže je uvedena syntaxe příkazu With Statement ve VBA.
S (OBJECT) (Kód … Co je třeba udělat?) Konec s
Objekt není nic jiného než řada buněk nebo buněk, na které odkazujeme, a pak můžeme změnit vlastnosti a provést všechny metody spojené s touto konkrétní buňkou nebo buňkami.
Jak používat s příkazem v aplikaci Excel VBA?
Níže uvádíme několik příkladů, které lze použít s Prohlášením v aplikaci Excel VBA.
Příklad č. 1
Předpokládejme, že máte určitou hodnotu v buňce A1, do buňky A1 jsem zadal text jako „Excel VBA“.
Nyní pro tuto buňku musím udělat nějaké úkoly, tj. Formátování v aplikaci Excel.
Chci změnit velikost písma, název písma a barvu interiéru, vložit ohraničení atd.… Typické je to, že nejprve odkazujeme na buňku pomocí objektu VBA RANGE.
Kód:
Sub With_Example1 () Range ("A1") End Sub
Nyní pro změnu velikosti písma přistupujeme k vlastnosti „font“ této buňky.
V části FONT vlastnost přistupujeme k vlastnosti Size a zadáme velikost vložením znaménka rovná se.
Kód:
Sub With_Example1 () Range ("A1"). Font.Size = 15 End Sub
Podobně nyní provádíme další úlohy formátování, jak je znázorněno níže.
Kód:
Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xl Kontinuální koncový díl
Tímto provedete všechny zmíněné úkoly, ale pokud se podíváte na kód a provedete každou každou činnost formátování, pokaždé jsme zadali adresu buňky. Díky tomu vypadá kód zdlouhavě a časově náročný.
Nyní použijeme příkaz VBA With ke snížení zadávání adresy buňky pokaždé. Otevřete příkaz WITH v aplikaci Excel VBA a zadejte adresu buňky.
Kód:
Sub With_Example1 () With Range ("A1") End Sub
Uvnitř příkazu With vložte tečku, abyste viděli všechny vlastnosti a metody buňky A1.
Nyní první aktivací formátování je změna velikosti písma, takže přejděte na FONT a pod tuto vlastnost SIZE přístupu.
Kód:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 End Sub
Podobně zadejte další formátovací kódy a zavřete příkaz VBA With Statement.
Kód:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlContinuous End With End Sub
Spuštěním kódu zobrazíte veškeré formátování ve zmíněném objektu, tj. Buňce A1.
Takže veškeré formátování použité pro buňku. Podívejte se, jak skvělá je tato technika.
Příklad č. 2
Například pokud chcete změnit všechny vlastnosti související s písmem, můžete uvést vlastnost buňky a FONT.
Kód:
Sub With_Example2 () With Range ("A1"). Písmo End With End 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
- Příkaz With se používá k minimalizaci kódu.
- Nejprve musíme zadat objekt pro příkaz With.
- Jakmile je zadán konkrétní objekt, můžeme přistupovat pouze k jeho vlastnostem a metodám.
