[算表] vba 循环时遇到if then +1重跑循环

楼主: waiter337 (给开司一罐苏格登)   2016-10-03 04:30:19
软件:
版本:
目前写一份自己的日期报表
aaa111:
For k = 1 To 10
bb = Range("am" & k).Value
If bb = "无" Then
??? k = k + 1
??? go to aaa111
End If
i = Range("am" & 5 + k)
j = Range("am" & 6 + k)
Range("A" & j & ":" & "aa" & i - 1).Select
next
在k=1的情况下
假设bb发现am1的格子内有 "无" 这个字时
他会取消下面 i跟 j的操作
直接回到循环 并且从k=2
我试过直接用next 系统说不行
???的部份我也尝试过
但是k值会从1重新开始
好像逻辑错误
又或者是否要从循环那个面就该中止了
作者: soyoso (我是耀宗)   2016-10-03 07:00:00
aaa111: 标签处移至i跟j的操作下方k=k+1取消
楼主: waiter337 (给开司一罐苏格登)   2016-10-03 07:19:00
阿 是不是for next要改用while wend
作者: soyoso (我是耀宗)   2016-10-03 07:19:00
或是将i跟j的操作,移至逻辑判断if内,条件改为不等于循环改以while wend或do loop应都可
楼主: waiter337 (给开司一罐苏格登)   2016-10-03 07:26:00
好 我研就看看

Links booklink

Contact Us: admin [ a t ] ucptt.com