请教如何用VBA表示函数公式?谢谢！！

hqlin65 · 发表于 2019-6-12 11:04

请帮忙将单元格W6中函数公式写成VBA代码,谢谢！！！
=IF(AND(C4=0,K4=0,B1<>0),"空团收付无数",IF(AND(C4=0,K4=0),"",IF(AND(C4<>0,K4<>0,E4=0,M4=0),"团款收付两清",IF(AND(E4<>0,M4<>0),"团款收付未清",IF(AND(C4<>0,K4<>0,E4=0,M4<>0),"收已清付未清",IF(AND(C4<>0,K4<>0,E4<>0,M4=0),"付已清收未清",IF(AND(C4<>0,K4=0,E4=0),"收已清无成本",IF(AND(C4<>0,K4=0,E4<>0),"收未清无成本",IF(AND(C4=0,K4<>0,M4=0),"无收入付已清",IF(AND(C4=0,K4<>0,M4<>0),"无收入付未清"))))))))))

740688321 · 发表于 2019-6-12 11:06

先上测试文件

maditate · 发表于 2019-6-12 11:07

有N多个if连环套。那就把N多个IF分拆开来写

比如
if A  <>  B then  goto 100
  if C <300 then  goto  100
  好多好多 IF　语句

100

kimmyyang · 发表于 2019-6-12 11:07

VBA一样也可以用IF,或者select case也行

hqlin65 · 发表于 2019-6-12 11:11

maditate 发表于 2019-6-12 11:07
有N多个if连环套。那就把N多个IF分拆开来写

比如

老师好！不好意思，能将上面的代码解释一下吗？
GOTO 100是什么意思？

hqlin65 · 发表于 2019-6-12 11:12

maditate 发表于 2019-6-12 11:07
有N多个if连环套。那就把N多个IF分拆开来写

比如

老师好！不好意思，能将上面的代码解释一下吗？
GOTO 100是什么意思？

hqlin65 · 发表于 2019-6-12 11:15

kimmyyang 发表于 2019-6-12 11:07
VBA一样也可以用IF,或者select case也行

真不好意思，我不太懂。上面的公式在2007版以上的可以用，但我用的是2003版的，所以IF的嵌套太多，无法实现，所以想寻求能否用VBA来表示。谢谢！

maditate · 发表于 2019-6-12 11:29

hqlin65 发表于 2019-6-12 11:12
老师好！不好意思，能将上面的代码解释一下吗？
GOTO 100是什么意思？

代码可以有前面标上行号。100是自已给写上去的标记。 goto 100意思是跳到100的地方再往下执行，

NadrsSaber · 发表于 2019-6-12 11:34

这么多条件, 直接 select case 呀

zopey · 发表于 2019-6-12 11:50

=IF(C4=0,"无收入",IF(E4=0,"收已清","收未清")) & IF(K4=0,"无成本",IF(M4=0,"付已清","付未清"))

		自动登录	找回密码
密码			免费注册

[求助] 请教如何用VBA表示函数公式?谢谢！！

最新热点 /1