cwlr.net
当前位置:首页 >> nExt vBA >>

nExt vBA

退出整个循环用 exit for for n=1 to 20 ..... if X then exit for end if ..... next 如果想结束本次循环可以用goto for n=1 to 20 ..... GoTo e ..... ..... e: next

变成死循环 你可以用下面的代码测试一下 如果A1有值,说明执行循环了 Sub test() Dim j As Integer j = 1 For i = 1 To 10 Step 0 If j > 10 Then Exit For Sheet1.Range("A" & i) = 1 j = j + 1 Next i End Sub

你的书可以拿去烧掉了,乱说一气!正解如下: I的值从1开始,一直到20为止,步长是2,即I的值为1,3,5,7,9...19 循环体是x=x+I,就是把x+I的结果赋给x,Next I与FOR构成循环 所以x的值为:5+1+3+5+7+9+...+19=105 没有正确选项,应该是105

这个问题只要看循环次数就行了 i循环3次 j循环4次 那么n就累加了 3x4次 结果就是12了。

VBA代码的语法是不能这样写滴! 正确的写法: Public Sub BUG()'' Macro1 Macro' 宏由 USER 录制,时间: 2014-3-24''Dim A As IntegerDim B As StringDim C As IntegerFor A = 1 To 100 B = CStr(2 ^ A) C = CInt(Mid(B, 1, 1)) If Not ((A Mod ...

End With Next Application.ScreenUpdating = True End If next不应有。如果有,应该与FOR连用。

If与End If不匹配,在End If下面再加上两个End If,即改成如下: Sub 生成战斗数据() For i = 1 To 9 If i < 4 Then If Sheet1.Cells(4, 2 * i + 1) = "" Then MsgBox "没有输入等级" Exit Sub ElseIf i > 6 Then If Sheet1.Cells(4, 2 * i + 1)...

将这两行合并为一行即可: If Cells(Row, 1).Value = MAXNUM ThenExit For 改为:If Cells(Row, 1).Value = MAXNUM Then Exit For 从代码看你是想把当前单元格定位在A列的最大值上,下面代码更好: Sub RANGETEST()Range("A:A").Find(WorksheetF...

因为会重复执行WITH语句导致(FOR里面没有END WITH) End With放在所有的FOR里面或者把WITH放到所有的FOR外面,就可以了~

Sub Myfind() Dim iRange As Range, iFined As Range Dim iStr, iAddress As String, N As Integer '以上是定义使用到的变量 Set iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域 iStr = Range("A1").Value '给要查找的字符串变量赋...

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