VBA编程语言支持Do While循环。在本文中,我们将学习如何在Excel VBA中使用Do While循环。

Do While循环的语法

VBA Do While循环具有两种语法:

进入控制执行While循环

Do While Condition

'Statement1

'Statement2

'--

'--

'StatementN

Loop

使用此语法,首先检查条件。如果条件匹配,则控制进入循环,否则循环终止。

退出控制执行While循环

Do

'Statement1

'Statement2

'--

'--

'StatementN

Loop While Condition

按照这种语法,控制首先进入循环。执行完每个任务后,VBA最终检查条件。如果条件为True,则Do While循环继续,否则循环立即终止。当您希望循环至少执行一次时,请使用此语法。

示例:删除工作表直到只剩下2张工作表在此示例中,我们将尝试使用VBA Do While循环一张一张地删除每张工作表,直到工作簿中只剩下2张工作表:

上面的子例程将首先检查工作簿是否超过2张纸。如果工作簿有两个以上的工作表,则控件将进入循环并删除当前活动表。循环将继续进行,直到只剩下2张纸为止。

Sub WhileTest()

Application.DisplayAlerts = False

Do While Sheets.Count > 2

ActiveSheet.Delete

Loop

Application.DisplayAlerts = True

End Sub

如果工作簿已经只有2或1张纸,则控件将不会进入循环并且什么也不会发生。

现在,如果您想在循环开始时至少删除1张纸,即使工作簿只有2张纸,也可以使用退出控件do while循环。

上面的子例程将首先删除1张纸,然后检查那里有几张纸。如果它们大于2页,则循环将继续。如果工作簿剩下2张或更少,则循环将退出。

Sub WhileTest()

Application.DisplayAlerts = False

Do

ActiveSheet.Delete

Loop While Sheets.Count > 2

Application.DisplayAlerts = True

End Sub

这里的主要收获是,该循环将至少执行一次。

您可以通过询问用户来使用它重复一些任务。例如,您可以要求用户输入密码。并循环播放他,直到他输入正确的密码或退出为止。在这种情况下,您必须至少询问用户一次密码。

注意:我已使用Application对象的DisplayAlert属性来禁用警报。您可以阅读以下内容:“link:/ files-workbook-and-worksheets-in-vba-delete-sheets-without-confirmation-prompts-using-vba-in-microsoft-excel [_here]`.所以,是的,伙计们,这就是Excel VBA中的“ Do While循环”。我希望这是可以解释的。如果对此或任何其他与Excel 365/2019/2016相关的查询有任何疑问。在下面的评论部分询问。

相关文章:

链接:/ vba-for-loops-with-7-examples [7个Microsoft Excel VBA中的For循环示例] for循环是任何编程语言中最常用的循环技术。在VBA中,可以以多种方式使用For循环。

VBA中的If ElseIf语句| If ElseIf是用于返回条件输出的基本条件检查技术。

`链接:/在VBA中删除文件工作簿和工作表-在Microsoft Excel中使用vba删除没有确认提示的工作表[在Microsoft Excel中使用VBA删除没有确认提示的工作表]:*删除工作表时,您会收到确认提示。要禁用它,我们使用应用程序…​

在Excel VBA状态栏上显示消息为了在状态栏上显示消息,我们使用Application对象的StatusBar属性。

热门文章:

`链接:/ keyboard-formula-shortcuts-50-excel-shortcuts可提高您的生产率[50 Excel快捷方式以提高生产率]更快地完成任务。这50个快捷键将使您在Excel上的工作速度更快。

Excel中的VLOOKUP函数 |这是excel中最常用和最受欢迎的功能之一,用于从不同范围和工作表中查找值。

在Excel 2016中为COUNTIF使用此惊人的功能对条件进行计数。您无需过滤数据即可计算特定值。

Countif功能对于准备仪表板至关重要。

链接:/ excel-formula-and-function-excel-sumif-function [如何在Excel中使用SUMIF函数]这是仪表板的另一个重要功能。这可以帮助您汇总特定条件下的值。