xqzz.net
当前位置:首页 >> vBA有条件执行For语句 >>

vBA有条件执行For语句

不一定每次都有结果,得多次运行 Sub cc() Dim e1, e2, a, i a = 0.5 e1 = Rnd e2 = Rnd * -1 For i = 1 To 10 a = e1 * 1 + e2 + a If a < 0 Then MsgBox a Exit Sub End If Next i MsgBox "未找到结果" End Sub

最简单的来两句,不明白请追问~~~FOR的用法是这样的:FOR I=1 TO N语句NEXT I这样的功能是,使里面的 语句 运行N次,每次I的值都不同,分别是1~N,用来完成固定次数的重复.IF的用法是这样的:IF 条件 THEN.语句1.ELSE语句2END IF这样的功能是判断条件是否满足,如果满足就执行 语句1,否则执行 语句2以上例子中的语句、语句1、语句2都可以是一个或者多个语句,往往是一段.

if . then next end if 如果要跳到外层循环的话,必须先结束内层循环.可以用exit for语句结束内层循环.

1、For = To [Step ] [ Exit for] Next 在默认情况下,Step被设为“1”,可以省略,Step也可以设为负值. 例10:下面的代码是一个最简单的累加器,把1到10累加在一起,然Sub ss() a = 0 For i = 1To 10 a = a + i Next i Debug.Print I 'Debug.Print

For i = 1 To 100 If Range("F" &amp; i) = 0 Then Range("D" &amp; i).Delete Shift:=xlUp End IfNext

根据代码程序结构判断是没有问题,可以运行.但是if语句里包含了EXIT FOR语句,说明这个条件一成立,只运行一次就退出i循环,然后继续下一x循环.你说的无法运行是指有错,还是程序没有反应提示呢?具体要根据你的需求以及里边的2个表格的内容才能判断你说的是什么问题了.

For 循环变量=初值 to 终值 step 步长.for next循环语句指的循环是指重复地执行某项动作(语句块).来看一下Fornext 的句式:For 循环变量=初值 to 终值 step 步长 循环体1 [exit for] 循环体2 next 循环变量 解释:从开始到结束,反复执行For和Next之间的指令块,除非遇到Exit For语句,将提前跳出循环.其中,步长和Exit For语句以及Next后的循环变量均可省略,步长省略的时候默认为1.Exit for 语句是强制终止循环的语句,执行它后将退出循环,执行next后面的语句.循环变量是一个变量,可以在循环体中对其进行修改,但一般就避免在循环体中对其修改.

for i= * to * do while 条件 while 条件'循环体 '循环体 '循环体 next i loop wend 太多了..

for语句是vba中的循环控制语句,基本语法结构是: for 变量=初值 to 终值 step 步长 执行的语句 next 通过循环语句,可以处理需要重复处理的操作,比如,如果你要对一个选定区域的没个单元格做判断后进行某个操作,就可以用for语句在该区域的所有行和列中进行循环,依次处理行和列的交叉点的单元格.

明明只有一行数据,为zhidao什么要for i=0 to 5添加6行呢?如果是考虑可能有最多有6行数据,那么for循环专里面应该有一个if判定,判定A列i行是否为空,也就是代码为:For i = 0 To 5 If Cells(i + 5, 1)<>"" Then .Cells(x + i, 1).ReSize(1, 2) = Array([c3], [k3]) .Cells(x + i, 3).ReSize(1, 10) = .Cells(i + 5, 1).ReSize(1, 10) End If Next i另外,你的一属块赋值语句我合并为两行了,希望你能理解.

网站首页 | 网站地图
All rights reserved Powered by www.xqzz.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com