vba编程for语句里面有if判断结果提醒next没有for，求指导

VBA问题求教,为什么会提示Next没有for

If与End If不匹配,在End If下面再加上两个End If,即改成如下:Sub 生成战斗数据() For i = 1 To 9 If i 6 Then If Sheet1.Cells(4, 2 * i + 1) = ＂＂ Then MsgBox ＂没有输入等级＂ Exit Sub End If End If End If'--------------生成随机属性和倾向------------- Call 属性随机练习 Call 倾向随机练习 R = 2 * i + 1 Sheet1.Cells(5, R) = 属性 Sheet1.Cells(6, R) = 倾向 NextEnd Sub

vba for each循环 出错 提示:Next 没有 For,求大神修改,指导

“'=222” 再看看别人怎么说的.

vba 总是提示next前没有for

第二个 for j=1 to 7 的next位置不对.不应该在ifelse结构之内.

vba中总是提示next没有for

VBA代码的语法是不能这样写滴!正确的写法:Public Sub BUG()'' Macro1 Macro' 宏由 USER 录制,时间: 2014-3-24'' Dim A As Integer Dim B As String Dim C As .

vb 里打了for语句中间杂加if语句,结尾打了next i 为什么提示说next 没有for

可能是你的if语句是这样写的(少写了End If)For i=.... ... If .. Then ...... '如果If语句没在一行上写完,就一定要另起一行写上End IfNext i

excel 宏,运行时提示 next 没有 for

把你的 第一个 Exit For 删除掉就好了., Exit For 意思是跳出 循环了.要不就是你第一个next i 之前的 if 因没有endif 而 报的错

VBA代码for each in next 始终提示next没有for

end with next application.screenupdating = true end ifnext不应有.如果有,应该与for连用.

excel VBA代码为什么老是提示next没有for,在next f那边

你的end if放错地方了和next i 换个位置就行了.代码如下 Sub QR(rng As Range) Dim rng1 As Range, n As Integer Dim q As Integer, p As Integer Dim i As Integer .

VB提示:有NEXT 没有FOR?

是因为For I = 1 To i1 s1 = Mid(s, I, 5) If IsDate(s1) = True Then Print s1 End If '在这里加上 End If 就可以了Next I 这里的If 语句没有相应的 End If.

<VB中>为什么会显示next 没有for. 明明有for阿. 代码如下.

If sum = i Then List1.AddItem Str(i)Next i可以改成 If sum = i Then List1.AddItem Str(i)Next i或者是 If sum = i Then List1.AddItem Str(i) End IfNext i原因是没有加End If,于是程序认为是这样: If sum = i Then List1.AddItem Str(i) Next i End If所以这样结束If是Next,而更高一级的For却以End If结束.如果是多行的If,一定要加上End If