endif没有if块 vb中块if没有end if

表示这是后台执行代码用在前台. 相当於后台的 end if 语句.例子: 11111 0000 它相当於: if(1==1) { return ＂11111＂; } else return ＂0000＂;

If 句 一,行If语句 If <条件> Then 语句 二,块If语句 If <条件1> Then 语句组1 [ elseIf <条件2> Then 语句组2 elseIf <条件3> Then 语句组3..else <条件n> Then 语句组n ] End if 你上面使用的是行If语句,下面的End If就是多余的了.

把你的end if 去掉就行了

也就是你的程序有if 开头的条件语句 但没有输入end if 请检查一下,没有的话,在相应地方加一下即可 特别注意中间的空格

123456789101112 privatesubcommand1_click() dimx asinteger ifx >= 90 then text2.text = ＂a等＂ elseifx >= 80 then text2.text = ＂b等＂ elseifx >= 60 then text2.text = ＂c等＂ elseifx text2.text = ＂e等＂ endif endsub

else和if要连在一起 用法如下 Private Sub List1_Click() If List1.Selected(0) = True Then Label1.Caption = ＂＂ ElseIf List1.Selected(1) = True Then Label1.Caption = ＂＂ ElseIf List1.Selected(2) = True Then Label1.Caption = ＂＂ ElseIf List1.Selected(3) = True Then Label1.Caption = ＂＂ Else Label1.Caption = ＂＂ End If

if和then在同一行成为完整的＂if语句＂,不需要end if结尾. ,你写在同一行认为此if语句结束,后边的End if 就没有if 块儿而不在同一行则成为＂if 语块＂,需要End if结尾.改 为If Trim(Cells(9, 1).Values) = ＂＂ Then MsgBox ＂品名不能为空!＂, vbOKOnlyExit SubEnd If '限制某个输入项不能为空'

多处if语句没加end ifprivate sub command1_click()dim x as integer, y as integer, z as integer, f as integer, i as integerx = inputbox(＂输入1-10＂, ＂输入＂, 100)if x 10 .

vba里面的每一个end if都必须有if配对,单行的if不需要end if,可以粘贴你的代码帮你修改,必须是文本方式,拷屏图片无法修改的.

第一个if缺一个end if,或者把第二行和第一行中间加空格放一起.