Excel VBA----之do loop循环

 时间:2024-09-28 09:30:28

循环语句:do......Loop的使用方法及其基本案例说明。

工具/原料

Excel软件

方法/步骤

1、do.....Loop:循环语句,直至满足条件后退出。

2、在外狒芙梨VBE中编写代码:SubdoLoop()Dima%Doa=a+1Ifa>10ThenDebug.Print("a已经超过10了荑樊综鲶,该停止了!")ExitDoEndIfLoopEndSub功能为:当a超过10时,将退出该程序。

Excel VBA----之do loop循环

3、运行该代码,运行11次时,将输出a已经超过10了,该停止了!

Excel VBA----之do loop循环

4、接下来,将对Do....Loop进行复杂案例说明:

5、Excel界面的初始数据为:

Excel VBA----之do loop循环

6、在外狒芙梨VBE中编写如下代码:Subjudge()Dimrs%rs=1Dors=rs+1Ifrs>10ThenExitDoElseIf潮贾篡绐Cells(rs,2)>90ThenCells(rs,3)="是"EndIfEndIfLoopEndSub

Excel VBA----之do loop循环

7、在E垓矗梅吒xcel界面中指定宏,并运行代码,得到如下结果。即:当分数超过90时,将在第三列中得到是否为优秀的结果。

Excel VBA----之do loop循环

Excel VBA----之do loop循环

Excel VBA----之do loop循环

8、综上所述,本文说明了Do....Loop的使用说明,并结合Excel进行案例场景使用。

用VB6.0快速实现图象加柔效果 如何使我们的大学生活变得精彩 VB动态创建组合框 Cisco软件怎么进行标准的ACL配置 易语言教程 设置标签的背景颜色
热门搜索
寄生少女 苹果手机壁纸图片大全 水痘早期图片大全 马云图片 五线谱图片