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 alle Eigenschaftsänderungen und Methoden des genannten Objekts ausführen.

Unten finden Sie die Syntax von With Statement in VBA.

 Mit [OBJECT] [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.

Sie können diese VBA mit Excel-Vorlage hier herunterladen - VBA mit Excel-Vorlage

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 ausführen, z. B. die Formatierung in Excel.

Ich möchte die Schriftgröße, den Schriftnamen und die Innenfarbe ändern, einen Rahmen einfügen usw. Typischerweise verweisen wir zuerst auf die Zelle, indem wir das VBA RANGE-Objekt verwenden.

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 durch Setzen eines Gleichheitszeichens ein.

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

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

Jetzt verwenden wir die VBA With-Anweisung, 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

Fügen Sie in die With-Anweisung einen Punkt ein, 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

In der vba With-Anweisung wird die IntelliSense-Liste angezeigt, in der nur Eigenschaften und Methoden für die FONT-Eigenschaft angezeigt werden.

Damit können wir jetzt jede Art von Aktivität ausführen.

Code:

 Sub With_Example2 () With Range ("A1"). Font .Bold = True 'Die Schriftart ist fett .Color = vbAlias' Die Schriftfarbe ist Alias .Italic = True 'Die Schriftart ist kursiv .Size = 20' Die Schriftgröße ist be 20 .Underline = True 'Die Schriftart wird mit End With End Sub unterstrichen

Das Ergebnis ist wie folgt.

Beispiel 3

Der folgende Code greift nur auf Eigenschaften zu, die sich auf den Zellenrand beziehen.

Code:

 Sub With_Example3 () With Range ("B2"). Borders .Color = vbRed 'Die Rahmenfarbe ist rot .LineStyle = xlContinuous' Full border .Weight = xlThick 'Dicker Rand End With End Sub

Das Ergebnis dieses Codes ist wie folgt.

Dinge, an die man sich erinnern sollte

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.