Excel VBA für die nächste Schleife
Die VBA For Next-Schleife ist eine Schleife, die von allen Programmiersprachen verwendet wird. In dieser Schleife gibt es ein Kriterium nach der for-Anweisung, für das der Code in der Schleife eine Schleife durchläuft, bis die Kriterien erreicht sind, und wenn die Kriterien erreicht sind, wird die nächste Anweisung angewiesen die Prozedur zum nächsten Schritt des Codes.
Die "For Next" -Schleife ist eine dieser Schleifen, die sehr häufig als andere Schleifen in der VBA-Codierung verwendet wird. Schleifen helfen uns, dieselbe Art von Aufgabe für bestimmte Zellen zu wiederholen, bis die Bedingung WAHR ist.
FOR LOOP durchläuft den Zellenbereich und führt eine bestimmte Aufgabe aus, bis die Bedingung TRUE ist. Wenn Sie beispielsweise die ersten 10 Zellen durchlaufen und um 1 inkrementierte Seriennummern einfügen möchten, können Sie die FOR NEXT-Schleife verwenden.
Diese Schleife benötigt eine Variable, um die Schleife auszuführen. Mit dieser Variablen können wir die Zellen dynamisch referenzieren.
Es enthält drei Parameter.
Für Anweisung = Startpunkt bis Endpunkt (Aufgabe ausführen) Nächste Anweisung
Von der Startpunktschleife aus wird eine Aufgabe gestartet und ausgeführt, nachdem die Aufgabe beendet wurde. Sie wird in die nächste Schleife verschoben und führt dieselbe Aufgabe erneut in der anderen Zelle aus. Auf diese Weise führt es die angegebene Aufgabe weiter aus, bis es den Endpunkt erreicht.
Wie verwende ich VBA für die nächste Schleife?
Angenommen, Sie möchten Seriennummern von 1 bis 10 bis A1 bis A10-Zellen einfügen. Natürlich können wir zehn Codezeilen einfügen.
Code:
Sub For_Next_Loop_Example1 () Bereich ("A1"). Wert = 1 Bereich ("A2"). Wert = 2 Bereich ("A3"). Wert = 3 Bereich ("A4"). Wert = 4 Bereich ("A5") Wert = 5 Bereich ("A6"). Wert = 6 Bereich ("A7"). Wert = 7 Bereich ("A8"). Wert = 8 Bereich ("A9"). Wert = 9 Bereich ("A10") .Wert = 10 End Sub
Aber was ist, wenn ich 100 Seriennummern einfügen möchte? Natürlich kann ich nicht 100 Codezeilen schreiben, nur um Seriennummern einzufügen. Hier kommt die Schönheit der „FOR NEXT“ -Schleife ins Spiel. Befolgen Sie die folgenden Schritte, um den Code zu minimieren.
Schritt 1: Zuerst müssen wir eine Variable definieren. Ich habe den Variablennamen "Serial_Number" als ganzzahligen Datentyp deklariert .
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer End Sub
Schritt 2: Jetzt bestelle ich die FOR NEXT-Schleife. Unser Ziel ist es, Seriennummern von 1 bis 10 einzufügen. Dies bedeutet, dass unsere Schleife zehnmal ausgeführt werden muss. Die FOR LOOP-Anweisung sollte also so sein.
Für Serial_Number = 1 bis 10
Nächste Seriennummer
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer For Serial_Number = 1 bis 10 Next Serial_Number End Sub
Schritt 3: Wir haben die Schleife angewendet. Sobald die Schleife angewendet wurde, müssen wir angeben, was innerhalb der Schleife zu tun ist. Unser Ziel hier ist es, Seriennummern von 1 bis 10 einzufügen. Schreiben Sie den Code also als Cells (Serial_Number, 1) .Value = Serial_Number.
Code:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer Dim Serial_Number = 1 bis 10 Zellen (Serial_Number, 1) .Value = Serial_Number Dim Serial_Number End Sub
Schritt 4: Der Grund, warum wir Serial_Number in der CELLS-Eigenschaft angegeben haben, weil wir hier die Hardcore-Nummer für die Zeilenreferenz nicht angeben können. Bei jeder Zeitschleife möchte ich die neue Seriennummer in die neue Zelle einfügen, nicht in dieselbe Zelle.
Schritt 5: Führen Sie den Code zeilenweise aus, indem Sie die Taste F8 drücken.
Schritt 6: Setzen Sie einen Cursor auf die Variable Serial_Number. Es zeigt den aktuellen Wert von Serial_Number.
Zu diesem Zeitpunkt ist der Wert für Serial_Number Null.
Schritt 7: Drücken Sie die Taste F8 noch einmal. Die gelbe Farbe wechselt zur nächsten Codezeile in VBA. Setzen Sie nun einen Cursor auf die Seriennummer.
Jetzt ist der Wert von Serial_Number gleich eins, da jetzt die Schleife gestartet wird und unsere Schleife bei 1 beginnt, sodass der Wert der Variablen Serial_Number gleich eins ist.
Eine weitere interessante Sache ist hier, wo immer sich die Variable Serial_Number befindet, die ebenfalls gleich 1 ist.
In der Zelleigenschaft haben wir den Code wie folgt erwähnt:
Zellen (Seriennummer, 1) .Wert = Seriennummer
Dies bedeutet Zellen (1, 1) .Wert = 1. (Zellen (1,1) bedeutet Zeile1 und Spalte1.
In Zeile 1 und Spalte 1 sollte der Wert also 1 sein.
Schritt 8: Drücken Sie nun noch einmal F8 und sehen Sie, was in Zeile 1 und Spalte 1, dh in Zelle A1, passiert.
Wir haben also 1 als Wert, dh den Wert von Serial_Number.
Schritt 9: Drücken Sie nun noch einmal die Taste F8. Normalerweise sollte der nächste Code ausgeführt werden, dh das Ende der Unteranweisung. Aber hier wird es zurück zur "obigen Zeile" gehen .
Schritt 10: Denken Sie daran, dass die Schleife den ersten Lauf bereits abgeschlossen hat. Jetzt kehrt es zum zweiten Mal zurück. Setzen Sie nun einen Cursor auf die Variable Serial_Number und sehen Sie, was der Wert ist.
Jetzt ist die Variable Serial_Number gleich 2, da die Schleife bereits zum zweiten Mal zurückgegeben wurde.
Wo auch immer sich Serial_Number befindet, ist der Wert gleich 2. Also der Zeilencode:
Cells (Serial_Number, 1) .Value = Serial_Number ist gleich:
Zellen (2, 1) .Wert = 2. (Zellen (2,1) bedeutet Zeile2 und Spalte1, dh A2-Zelle).
Schritt 11: Führen Sie diesen Code aus und sehen Sie den Wert in der A2-Zelle.
Wir haben also den zweiten Seriennummernwert erhalten.
Schritt 12: Drücken Sie nun die Taste F8. Es wird wieder in die obige Zeile zurückgekehrt, um den Code zu wiederholen. Diesmal ist der Wert für Serial_Number 3.
Schritt 13: Wo immer sich Serial_Number befindet, ist 3 gleich.
Der Zeilencode : Cells (Serial_Number, 1) .Value = Serial_Number ist also gleich:
Zellen (3, 1) .Wert = 3. (Zellen (3,1) bedeutet Zeile3 und Spalte1, dh A3-Zelle).
Schritt 14: Drücken Sie F8, um die markierte Zeile auszuführen und den Wert in der A3-Zelle anzuzeigen.
Schritt 15: Drücken Sie nun weiter F8. Die Seriennummern werden weiterhin eingefügt. Der Momentwert der Variablen Serial_Number ist 10. Sie stoppt die Schleife und verlässt die Schleife.
