如何解决带有多个“And”的“If”条件没有得到预期的结果
使用条件允许一个按钮,我还是没有得到预期的结果。该按钮未考虑提到的条件。怎么来的
Private Sub CONFIRM2_Click()
If NAMEC.Value = "" And DATEC.Value = "" And CREF.Value = "" And SPN.Value = "" And AMENDT.Value = "" And LINKA.Value = "" And BUDGETI.Value = "" And TOR.Value = "" And LINKA.Value = "" And DETAIL.Value = "" Then
MsgBox "Thanks to fill all requested informations"
Exit Sub
ElseIf NAMEC.Value <> "" And DATEC.Value <> "" And CREF.Value <> "" And SPN.Value <> "" And AMENDT.Value <> "" And LINKA.Value <> "" And BUDGETI.Value <> "" And TOR.Value <> "" And LINKA.Value
一些附加信息:我在条件中添加了一个字段 (TOR),但下面的 MsgBox(MsgBox“感谢填写所有请求的信息”)并未考虑该附加字段。怎么了?
解决方法
Select Case
而不是 If
Private Sub CONFIRM2_Click()
Select Case ""
Case NAMEC.Value,DATEC.Value,CREF.Value,SPN.Value,AMENDT.Value,_
LINKA.Value,BUDGETI.Value,TOR.Value,DETAIL.Value
MsgBox "Please fill in all of the requested information."
' Do whatever.
Case Else
MsgBox "Thanks for supplying the requested information"
Exit Sub
End Select
End Sub
简化版
Sub SelectCase()
Select Case ""
Case Range("A1").Value,Range("A2").Value
MsgBox "Nope" ' Either A1,A2 or both are equal to ""
Case Else
MsgBox "Yupee" ' Both are not equal to "".
End Select
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。