VBA 怎么跳出for 循环?
if range("b" & i).value="发货时间" then
t$=range("c" & i)
goto 20
next i
20 range("f2")=t$
这样的话,应该F2显示第一个发货时间对应得 时间,可是实际上却是最后一个怎么让得到自己想要的数据后跳出循环?? 展开
用语句exit for来跳出for循环,这里跳出循环指的是跳出最里面一层的循环结构。
代码实例如下:
for ii = 1 to 1000
if ii = 500 then
exit for
end if
next
这里的代码尺嫌表示ii从1到1000进行循环,如果ii为500时则跳出循环。
扩展资料:
通过一段VBA代码,可以实现画面的切换;可以实现复杂逻辑的统计(比如从多个表中,自动生成按合同号来跟踪生产量、入库量陵液手、销售量埋碰、库存量的统计清单)等。
掌握了VBA,可以发挥以下作用:
1.规范用户的操作,控制用户的操作行为。
2.操作界面人性化,方便用户的操作。
3.多个步骤的手工操作通过执行VBA代码可以迅速的实现。
4.实现一些VB无法实现的功能。
5.用VBA制做EXCEL登录系统。
6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。
参考资料:百度百科-VBA
用语句exit for来跳出for循环,这里跳出循环指的是跳出最里面汪液一层的循环结构。
代码实例如下:
for ii = 1 to 1000
if ii = 500 then
exit for
end if
next
这里的代码表示ii从1到1000进行循环,如果ii为500时则跳出循环
拓展资料:
Visual Basic for Applications(困慧物VBA)是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。
该语言于1993年由微软公司开发的的应用程序共享一碧山种通用的自动化语言--------Visual Basic For Application(VBA),实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中,即具备了VBA的宏功能。
参考资料:百度百科——VBA
用语句exit for来跳出for循环,这里跳出循环指的是跳出最里面一层的循环结构。
代码实例如下:
for ii = 1 to 1000
if ii = 500 then
exit for
end if
next
扩展资料:
跳出for循环大概三种层次
(1)跳出本次for循环,进行本层的下一次循环
(2)跳出本层for循环,执行for语句之搏扰誉外的其他语句
(3)跳出整个嵌套循环,执行嵌套循环以外的语句
例子:
Sub try()
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 10
If j < 2 Then
Exit For
End If
Debug.Print "--"; j
Next j
Debug.Print i
Next i
Debug.Print "`````````````````"
End Sub
可能结果:
①“--j”,j从2到10的所有数字
②“i”从1到10的所有数字
③一行“````````”
可以看出:
1、如果跳出本次for循环基段的话,得到①②③
2、如果跳出本层for循环的话,得到②③
3、如果跳出所有for循环的话,得到③
参考资料来源李早:for循环-百度百科
代码实例如下:
for ii = 1 to 1000
if ii = 500 then
exit for
end if
next
扩展资料:
跳出for循环大概三种层次
(1)跳出本次for循环,进行本层的下一次循环
(2)跳出本层for循环,执行for语句之外的其他语句帆困缓
(3)跳出整个嵌套循环,执行嵌套循环以外的语句
例子:
Sub try()
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 10
If j< 2 Then
Exit For
End If
Debug.Print "--"; j
Next j
Debug.Print i
Next i
Debug.Print "`````````````````"
End Sub
可能结果:
①“--j”,j从2到10的所有数字
②“i”从1到10的所有数字
③一行“````````”
可以看出:
1、如果跳出本次for循环的话,得到①②③
2、如果跳出本层for循环的话,得到②③
3、如果跳出所有for循环的话,得到③
if range("b" & i).value="发货时间" then t$=range("c"高备 & i):Exit For
或
if range("b" & i).value="发货时间"宽宴 then
t$=range("c" & i)
Exit For
End if