Im Folgenden sehen wir uns ein Programm an, das durchläuft einen definierten Bereich. Zum Beispiel, wenn wir die Zahlen in Range("A1:A3") quadrieren möchten. Wussten Sie, dass Sie auch einen Dynamikbereich durchlaufen können?
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir zwei Range-Objekte. Wir nennen die Range-Objekte rng und cell.
Dim rng als Bereich, Zelle als Bereich
2. Wir initialisieren das Range-Objekt rng mit Range("A1:A3").
Set rng = Range("A1:A3")
3. Fügen Sie die For Each Next-Schleife hinzu.
Für jede Zelle In rng
Nächste Zelle
Hinweis: rng und cell werden hier zufällig ausgewählt, Sie können beliebige Namen verwenden. Denken Sie daran, sich im Rest Ihres Codes auf diese Namen zu beziehen.
4. Als nächstes quadrieren wir jede Zelle in diesem Bereich. Um dies zu erreichen, fügen Sie der Schleife die folgende Codezeile hinzu:
cell.Value = cell.Value * cell.Value
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
5. Wenn Sie jede Zelle in einem zufällig ausgewählten Bereich überprüfen möchten, ersetzen Sie einfach:
Set rng = Range("A1:A3")
mit:
Set rng = Auswahl
6. Wählen Sie nun zum Beispiel Range("A1:A2").
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
