Private Sub CommandButton56_Click()
Dim T As Double
T = UserForm3.TextBoxT.Text
Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T
end select
end sub
总是出现Else没有 If 的错误提示，到底是哪里错了呢？
这样写：
Private Sub CommandButton56_Click()
Dim T As Double
T = UserForm3.TextBoxT.Text
Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T
UserForm1.Show
Else
MsgBox "超出温度限制，请选择其他法兰"
End If
end select
end sub
then后面写了语句这一行就结束了，后面就不能用End if了。
置顶卡
