Der Do While-Schleife in Excel VBA
Die Programmiersprache VBA unterstützt die Do While-Schleife. In diesem Artikel erfahren Sie, wie Sie die Do While-Schleife in Excel VBA verwenden.
Die Syntax von Do While Loop
Die VBA Do While-Schleife hat zwei Syntaxen:
Eingabesteuerung Do While Loop
Do While Condition 'Statement1 'Statement2 '-- '-- 'StatementN Loop
In dieser Syntax wird zuerst die Bedingung überprüft. Wenn die Bedingung erfüllt ist, tritt die Steuerung in die Schleife ein, andernfalls wird die Schleife beendet.
Control Do While Loop beenden
Do 'Statement1 'Statement2 '-- '-- 'StatementN Loop While Condition
In dieser Syntax tritt die Steuerung zuerst in die Schleife ein. Nach dem Ausführen jeder Aufgabe überprüft VBA am Ende die Bedingung. Wenn die Bedingung wahr ist, wird die Do While-Schleife fortgesetzt, andernfalls wird die Schleife sofort beendet. Verwenden Sie diese Syntax, wenn Ihre Schleife mindestens einmal ausgeführt werden soll.
Beispiel: Löschen von Blättern, bis nur noch 2 Blätter übrig sind In diesem Beispiel versuchen wir, jedes Blatt einzeln zu löschen, bis nur noch 2 Blätter in der Arbeitsmappe mit VBA Do While Loop:
übrig sind
Sub WhileTest() Application.DisplayAlerts = False Do While Sheets.Count > 2 ActiveSheet.Delete Loop Application.DisplayAlerts = True End Sub
Die obige Unterroutine prüft zunächst, ob die Arbeitsmappe mehr als 2 Blätter enthält. Wenn die Arbeitsmappe mehr als 2 Blätter enthält, tritt das Steuerelement in die Schleife ein und löscht das aktuelle aktive Blatt. Die Schleife wird fortgesetzt, bis nur noch 2 Blätter übrig sind.
Wenn die Arbeitsmappe bereits nur 2 oder 1 Blatt enthält, tritt das Steuerelement nicht in die Schleife ein und es passiert nichts.
Wenn Sie nun zu Beginn der Schleife mindestens 1 Blatt löschen möchten, auch wenn die Arbeitsmappe nur 2 Blätter enthält, verwenden Sie die Exit-Steuerung do while-Schleife.
Sub WhileTest() Application.DisplayAlerts = False Do ActiveSheet.Delete Loop While Sheets.Count > 2 Application.DisplayAlerts = True End Sub
Die obige Unterroutine löscht zuerst 1 Blatt und prüft dann, wie viele Blätter vorhanden sind. Wenn sie größer als 2 Blatt sind, wird die Schleife fortgesetzt. Wenn in der Arbeitsmappe maximal 2 Blatt verbleiben, wird die Schleife beendet.
Der wichtigste Aspekt hierbei ist, dass diese Schleife mindestens einmal ausgeführt wird.
Sie können dies verwenden, um einige Aufgaben zu wiederholen, indem Sie den Benutzer fragen. Sie können beispielsweise einen Benutzer nach dem Kennwort fragen. Und schleife ihn, bis er das richtige Passwort eingibt oder beendet. In diesem Szenario müssen Sie den Benutzer mindestens einmal nach dem Kennwort fragen.
Hinweis: Ich habe die DisplayAlert-Eigenschaft des Anwendungsobjekts verwendet, um die Warnungen zu deaktivieren. Sie können darüber lesen it link: / files-workbook-and-worksheets-in-vba-delete-sheet-ohne-bestätigungs-aufforderungen-using-vba-in-microsoft-excel [here] . Also ja Leute Dies war die Do While-Schleife in Excel VBA. Ich hoffe es war erklärend genug. Wenn Sie Zweifel an dieser oder einer anderen Excel 365/20/2016-bezogenen Abfrage haben. Fragen Sie in den Kommentaren unten.
Verwandte Artikel:
link: / vba-for-Schleifen-mit-7-Beispielen [7 Beispiele für For-Schleifen in Microsoft Excel VBA] | Die for-Schleife ist die am häufigsten verwendete Schleifentechnik in jeder Programmiersprache. In VBA kann die For-Schleife auf verschiedene Arten verwendet werden.
Die If ElseIf-Anweisung in VBA | Das If ElseIf ist eine grundlegende Bedingungsprüfungstechnik für die Rückgabe bedingter Ausgaben.
link: / files-arbeitsmappe-und-arbeitsblätter-in-vba-lösche-blätter-ohne-bestätigungs-aufforderungen-mit-vba-in-microsoft-excel [lösche blätter ohne bestätigungs-aufforderungen mit vBA in Microsoft Excel]: * Beim Löschen von Blättern erhalten Sie eine Bestätigungsaufforderung. Um es zu deaktivieren, verwenden wir die Anwendung …
link: / menüs-Symbolleisten-Statusleiste-in-vba-Anzeige-einer-Nachricht-in-der-Statusleiste-mit-vba-in-Microsoft-Excel [Anzeige einer Nachricht in der Excel VBA-Statusleiste] | Um eine Nachricht in der Statusleiste anzuzeigen, verwenden wir die Eigenschaft StatusBar des Anwendungsobjekts.
Beliebte Artikel:
link: / Tastatur-Formel-Verknüpfungen-50-Excel-Verknüpfungen-zur-Steigerung-Ihrer-Produktivität [50 Excel-Verknüpfungen zur Steigerung Ihrer Produktivität] | Werden Sie schneller bei Ihrer Aufgabe. Mit diesen 50 Verknüpfungen können Sie noch schneller in Excel arbeiten.
link: / formeln-und-funktionen-einführung-der-vlookup-funktion [Die VLOOKUP-Funktion in Excel] | Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, mit der Werte aus verschiedenen Bereichen und Tabellen gesucht werden.
link: / tips-countif-in-microsoft-excel [COUNTIF in Excel 2016] | Zählen Sie Werte mit Bedingungen, die diese erstaunliche Funktion verwenden. Sie müssen Ihre Daten nicht filtern, um bestimmte Werte zu zählen.
Die Countif-Funktion ist wichtig, um Ihr Dashboard vorzubereiten.
link: / excel-formel-und-funktion-excel-sumif-funktion [Verwendung der SUMIF-Funktion in Excel] | Dies ist eine weitere wichtige Funktion des Dashboards. Auf diese Weise können Sie Werte unter bestimmten Bedingungen zusammenfassen.