VBA Mit - Verwendung mit ... End With Statement in Excel VBA?

Mit Anweisung in Excel VBA

Mit der Anweisung wird in VBA auf alle Eigenschaften und Methoden eines genannten Objekts zugegriffen. Wir müssen zuerst angeben, auf welches VBA-Objekt wir uns beziehen, dann die With-Anweisung mit End With schließen und dann innerhalb dieser Anweisung. Wir können alle Eigenschaftsänderungen und Methoden des genannten Objekts durchführen.

Unten finden Sie die Syntax von With Statement in VBA.

Mit (OBJEKT) (Code… Was muss getan werden?) Beenden mit

Das Objekt ist nichts anderes als ein Bereich von Zellen oder Zellen, auf die wir uns beziehen. Anschließend können wir die Eigenschaften ändern und alle Methoden ausführen, die dieser bestimmten Zelle oder diesen bestimmten Zellen zugeordnet sind.

Verwendung mit Anweisung in Excel VBA?

Im Folgenden finden Sie einige Beispiele für die Verwendung von With Statement in Excel VBA.

Beispiel 1

Angenommen, Sie haben einen bestimmten Wert in der A1-Zelle. Ich habe den Text in Zelle A1 als „Excel VBA“ eingegeben.

Für diese Zelle muss ich einige Aufgaben erledigen, z. B. die Formatierung in Excel.

Ich möchte die Schriftgröße, den Schriftnamen und die Innenfarbe ändern, einen Rahmen einfügen usw.… Normalerweise verweisen wir die Zelle zuerst mithilfe des VBA RANGE-Objekts.

Code:

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

Um nun die Schriftgröße zu ändern, greifen wir auf die Eigenschaft "font" dieser Zelle zu.

Unter der Eigenschaft FONT greifen wir auf die Eigenschaft Size zu und geben die Größe ein, indem wir ein Gleichheitszeichen setzen.

Code:

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

In ähnlicher Weise führen wir jetzt andere Formatierungsaufgaben aus, wie unten gezeigt.

Code:

Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbYellow Range ("A1"). Borders .LineStyle = xlContinuous End Sub

Dadurch werden alle genannten Aufgaben ausgeführt. Wenn Sie sich jedoch den Code ansehen, um jede Formatierungsaktivität auszuführen, haben wir jedes Mal die Zellenadresse angegeben. Dadurch sieht der Code langwierig und zeitaufwändig aus.

Jetzt werden wir VBA With eine Anweisung verwenden, um die Eingabe der Zellenadresse jedes Mal zu reduzieren. Öffnen Sie die WITH-Anweisung in Excel VBA und geben Sie die Zellenadresse an.

Code:

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

Setzen Sie in die With-Anweisung einen Punkt, um alle Eigenschaften und Methoden der Zelle A1 anzuzeigen.

Jetzt ändert die erste Formatierungsaktivität die Schriftgröße. Greifen Sie also auf FONT und unter dieser Eigenschaft auf SIZE zu.

Code:

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

Geben Sie in ähnlicher Weise andere Formatierungscodes an und schließen Sie VBA With Statement.

Code:

Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlContinuous End With End Sub

Führen Sie den Code aus, um alle Formatierungen im genannten Objekt anzuzeigen, dh in Zelle A1.

Also alle Formatierungen auf die Zelle angewendet. Schau wie cool diese Technik ist.

Beispiel 2

Wenn Sie beispielsweise alle Eigenschaften ändern möchten, die sich auf die Schriftart beziehen, können Sie die Eigenschaft cell und FONT erwähnen.

Code:

Sub With_Example2 () With Range ("A1"). Font 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

• Mit der Anweisung wird der Code minimiert.
• Wir müssen zuerst das Objekt für die With-Anweisung angeben.
• Sobald das spezifische Objekt bereitgestellt wurde, können wir nur auf die Eigenschaften und Methoden dieses Objekts zugreifen.