为什么不对呢？谁帮我瞧瞧
<P><FONT size=1>Private Sub CommandButton56_Click()</FONT></P><P><FONT size=1>Dim T As Double<BR>T = UserForm3.TextBoxT.Text</FONT></P>
<P><FONT size=1>Select Case UserForm3.ListBoxM.Text<BR>Case "Q235A"<BR>If T > 0 And T < 300 Then UserForm1.Show<BR>Else: MsgBox "超出温度限制，请选择其他法兰"<BR>End If</FONT></P>
<P><FONT size=1>end select</FONT></P>
<P><FONT size=1>end sub</FONT></P>
<P>总是出现<FONT size=1>Else没有 If 的错误提示，到底是哪里错了呢？</FONT></P> <P><FONT size=1>这样写：</FONT></P>
<P><FONT size=1>Private Sub CommandButton56_Click()</FONT></P>
<P><FONT size=1>Dim T As Double<BR>T = UserForm3.TextBoxT.Text</FONT></P>
<P><FONT size=1></FONT> </P>
<P><FONT size=1>Select Case UserForm3.ListBoxM.Text<BR>Case "Q235A"<BR>If T > 0 And T < 300 Then</FONT></P>
<P><FONT size=1> UserForm1.Show<BR>Else</FONT></P>
<P><FONT size=1> MsgBox "超出温度限制，请选择其他法兰"<BR>End If</FONT></P>
<P><FONT size=1>end select</FONT></P>
<P><FONT size=1>end sub</FONT></P>
<P><FONT size=1>then后面写了语句这一行就结束了，后面就不能用End if了。</FONT></P> 十分感谢，我对ＶＢ语句还是不熟，要加强了，呵呵
页:
[1]