[已解决]请老师帮助修改vba数组代码

qhllqhll

请问帮忙修改下面的代码：If arr(i, 3) <> "" Then arr(i, 8) = arr(i, 5) + arr(i, 6) + arr(i, 7)

当“arr(i, 5) ，arr(i, 6) ，arr(i, 7)” 都为空时（也就是在各科分数在没输入前 ，怎样不让  arr(i, 8)= 0 )  而且 arr(i, 8)=空
解释：arr(i, 3) 是姓名列，arr(i, 5) + arr(i, 6) + arr(i, 7) 为分数列，arr(i, 8) 为总分列

谢谢

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2013-3-31 10:22

If arr(i, 3) <> "" And Len(arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 7)) > 0 Then
          arr(i, 8) = arr(i, 4) + arr(i, 5) + arr(i, 6) + arr(i, 7)
      Else
          arr(i, 8) = ""
      End If

跳转到最佳答案楼层

1032446692

？什么意思？你能不能说的清楚一点？最好上传附件并举例说明。

zjdh

If arr(i, 3) <> "" And (arr(i, 5) + arr(i, 6) + arr(i, 7))<>0 Then arr(i, 8) = arr(i, 5) + arr(i, 6) + arr(i, 7)

qhllqhll

1032446692 发表于 2013-3-30 17:25
？什么意思？你能不能说的清楚一点？最好上传附件并举例说明。

大师您好：
         如果 arr(i, 5) + arr(i, 6) + arr(i, 7)  均为空  则 arr（i，8） 也为空
另外：如果 arr(i, 5) + arr(i, 6) + arr(i, 7)  有一个为 0 其他 为空（也就是不填数）  则 arr（i，8） 为 0
请问能否作到
谢谢

qhllqhll

zjdh 发表于 2013-3-30 17:34
If arr(i, 3)  "" And (arr(i, 5) + arr(i, 6) + arr(i, 7))0 Then arr(i, 8) = arr(i, 5) + arr(i, 6) + a ...

大师您好：
         如果 arr(i, 5) + arr(i, 6) + arr(i, 7)  均为空  则 arr（i，8） 也为空
另外：如果 arr(i, 5) + arr(i, 6) + arr(i, 7)  有一个为 0 其他 为空（也就是不填数）  则 arr（i，8） 为 0
请问能否作到
谢谢

1032446692

If arr(i, 3) <> "" And (arr(i, 5) <> "" Or arr(i, 6) <> "" Or arr(i, 7) <> "") Then arr(i, 8) = arr(i, 5) + arr(i, 6) + arr(i, 7)

qhllqhll

1032446692 发表于 2013-3-30 17:55
If arr(i, 3)  "" And (arr(i, 5)  "" Or arr(i, 6)  "" Or arr(i, 7)  "") Then arr(i, 8) = arr(i, 5) +  ...

都为空时，还是等于 0

难道我的表有问题吗

请您上传附件吧

谢谢

1032446692

qhllqhll 发表于 2013-3-30 18:05
谢谢我先测试一下

经过测试的  没有问题的

qhllqhll

1032446692 发表于 2013-3-30 18:09
经过测试的  没有问题的

您好如果都为空（也就是都不填数的情况下）怎么我测试 还是 显示 0

qhllqhll

1032446692 发表于 2013-3-30 18:09
经过测试的  没有问题的

麻烦您把您的附件

传上来好吗

谢谢