欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]学习VBS,guotx2010能提供跳出内部循环的例子吗?

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有6639人关注过本帖树形打印复制链接

主题:[求助]学习VBS,guotx2010能提供跳出内部循环的例子吗?

帅哥哟,离线,有人找我吗?
26327756l
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/8/31 11:31:54 [显示全部帖子]

有时候,你并不想等到循环自己结束,可能是用户输入了错误的数据,过程遇到了错误或者可能是任务已经完成并且没有必要作更多的循环。你可以提前跳出循环,而不必等到条件正常结束。VB有两种Exit语句:

n         Exit For语句用来提前退出For…Next或者For Each…Next循环

n         Exit Do语句立即退出任何VBA Do 循环

下面的过程示范如何使用Exit For语句提前跳出For Each…Next循环:

1.       在当前模块里输入下列过程:

Sub EarlyExit()

Dim myCell As Range

 

For Each myCell in Range("A1:H10")

If myCell.Value = "" Then

myCell.Value = "empty"

Else

Exit For

End If

Next myCell

End Sub


 回到顶部