判断题

glee3

1.判断A1,A2,A3 的值是真假。
2.如果A1,A2.A3全部为真，执行(B1+C1+D1)*E1=F1
3.如果A1，A2为真，A3为假，执行(B1+C1)*E1=F1。
4.如果A1，A3为真，A2为假，执行(B1+D1)*E1=F1。
5.如果A2，A3为真，A1为假，执行(C1+D1)*E1=F1。
6.如果A1为真，A2,A3为假，执行B1*E1=F1。
7.如果A2为真，A1,A3为假，执行C1*E1=F1。
8.如果A3为真，A1,A2为假，执行D1*E1=F1。

有没有简易点的程序可以实现啊，，如果我亘判断加到A5的，当如何实现？？？

兰色幻想

请提交excel表格，现在看的不太明白

mxg825

1. Sub mxg825()
   
2. Dim x%, SUMA! 'SUMA 求和（B1+C1+D1)
   
3. For x = 1 To 3
   
4.     If CBool(Cells(x, 1)) Then 'A1 ,A2, A3 循环
   
5.     SUMA = SUMA + Cells(1, x + 1) 'B1 ,C1,D1
   
6.     End If
   
7. Next
   
8. [F1] = [E1] * SUMA
   
9. End Sub

复制代码

业余爱好者

如果A1:A3是真假判断的话，用下面的公式就行。

F1=(A1*B1+A2*C1+A3*D1)*E1