Variablenbereich in VBA erstellen

In diesem Artikel wird vorgestellt, wie Sie eine Variable im Bereich in VBA Excel festlegen.

Einstellen eines Variablenbereichs in VBA

Der Bereich ist eine VBA-Eigenschaft, die verwendet wird, um eine einzelne Zelle, eine Gruppe von Zellen, Zeilen und Spalten auszuwählen. Der Bereich wird in VBA häufig verwendet, um Datensätze aus Blättern auszuwählen und ihnen Werte zuzuweisen oder Werte aus dem Datensatz abzurufen.

Wir müssen uns merken, welcher Bereich verwendet werden soll, wenn eine Bereichseigenschaft verwendet wird. Um dieses Problem zu umgehen, können wir den Bereich einer Variablen zuweisen und ihn später verwenden, wann immer wir ihn verwenden möchten.

Diese Variablen sind nützlich, wenn es um komplexe Programmierung und Automatisierung geht. Set-Anweisungen können verwendet werden, um eine Variable auf einen Bereich einer bestimmten Größe festzulegen, und die Range-Eigenschaftsmethode kann verwendet werden, um Werte abzurufen, die in diesem bestimmten Bereich gespeichert sind, oder sie durch andere Werte zu ersetzen.

Lassen Sie uns ein Beispiel durchgehen und versuchen, einer Variablen einen Bereich zuzuweisen.

Code:

# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A1")
ARange.Value = "Selected"
End Sub

Ausgabe:

Wie Sie sehen können, haben wir Zelle A1 der Variablen ARange zugewiesen. Lassen Sie uns nun in einem anderen Beispiel versuchen, einer Variablen einen Bereich aus mehreren Zellen zuzuweisen.

Code:

# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A1:B10")
ARange.Value = "Selected"
End Sub

Ausgabe:

Aus dem obigen Code haben wir den Wert allen in diesem Bereich vorhandenen Zellen zugewiesen. Mit dieser Methode können wir einer bestimmten Zeile oder Spalte Werte zuweisen.

Wir können auch die Variable range verwenden, um den Wert des Bereichs zu lesen. Versuchen wir, den Wert der Zelle zu lesen und im Meldungsfeld anzuzeigen.

Code:

# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A4")
msgBox ARange
End Sub

Ausgabe: