Question

VB程序内显示块IF 没有end if……

Answer 1

Sheets("商品入库已及查询").Select '----- 激活工作表"商品入库已及查询"
MsgBox "品名请勿空白！", vbOKOnly
之间缺少：
If Trim(Cells(7, 1).Value) = "" Then

Answer 2

Sheets("商品入库已及查询").Select '----- 激活工作表"商品入库已及查询"
MsgBox "品名请勿空白！", vbOKOnly
之间缺少：
If Trim(Cells(7, 1).Value) = "" Then

Answer 3

你确实少加了一个end if，你加在end sub之前就行了

Answer 4

Private Sub Command1_Click()
Label1=IIf(Val(Text1) < 500, "你猜的太小了", IIf(Val(Text1) = 500, "你猜对了", "你猜的太大了"))
End Sub

Answer 5

不是说的很清楚嘛，你有两个IF语句，而只有一个ENDIF