if语句优化

菜鸟一枚

If ComboBox1 = "" And ComboBox2 ="" And TextBox1 = "" Then   ’1、2、3为空

   Call 子程序1

ElseIf ComboBox1 = "" AndComboBox2 = "" Then  ’2、3为空

   Call 子程序2

ElseIf TextBox1 = "" AndComboBox1 = "" Then  ’1、2为空

   MsgBox "请选择起始日期"

ElseIf TextBox1 = "" AndComboBox2 = "" Then  ’1、3为空

   MsgBox "请选择截止日期"

ElseIf TextBox1 = "" Then                    ’1为空

   Call子程序3

ElseIf ComboBox1 = "" Then                  ’2为空

   MsgBox "请选择起始日期"

ElseIf ComboBox2 = "" Then                  ’3为空

   MsgBox "请选择截止日期"

Else

Call子程序4

End If

EndSub


我写得比较繁琐，有没有优化的写法？

MOY838840554

理解你要干嘛，没必要这样。只要判断1，2，3都不能为空就行了。你是要多条件输入任一条件就可以查找是吧，子程序页只需要一个。参考这个帖子http://club.excelhome.net/forum. ... ead&tid=1444643

zopey

if TextBox1<> "" Then   t1=4

If ComboBox1<> "" then t2=2

if ComboBox2<>"" then t3=1

t=t1+t2+t3

if t mod 4=1 then

    msgbox "起始日期"

elseif t mod 4=2 then

   msgbox "截至日期"

else

   call 子程序 & t

end if

菜鸟一枚

zopey 发表于 2018-11-19 15:25
if TextBox1 "" Then   t1=4If ComboBox1 "" then t2=2 if ComboBox2"" then t3=1
t=t1+t2+t3
if t mod 4 ...

谢谢了，
call 子程序 & t 这句程序报错，改用Application.Run "子程序" & t