为什么不对呢？谁帮我瞧瞧

yueyaer

Private Sub CommandButton56_Click()

Dim T As Double
T = UserForm3.TextBoxT.Text

Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T < 300 Then UserForm1.Show
Else: MsgBox "超出温度限制，请选择其他法兰"
End If

end select

end sub

总是出现Else没有 If　的错误提示，到底是哪里错了呢？

songzhi

这样写：

Private Sub CommandButton56_Click()

Dim T As Double
T = UserForm3.TextBoxT.Text

 

Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T < 300 Then

   UserForm1.Show
Else

  MsgBox "超出温度限制，请选择其他法兰"
End If

end select

end sub

then后面写了语句这一行就结束了，后面就不能用End if了。

yueyaer

十分感谢，我对ＶＢ语句还是不熟，要加强了，呵呵