[已解决]极端难度求和哪一列隐藏了哪一列就不参与计算

张雄友

平均的搞好了，但是不会自动计算的，要按一下F9。

1. Function PJ(rng)
   
2. Application.Volatile
   
3. For Each cel In rng
   
4.     s1 = s1 + IIf(cel.EntireColumn.Hidden = True, 0, cel.Value)
   
5.     s2 = s2 + IIf(cel.EntireColumn.Hidden = True, 0, 1)
   
6. Next
   
7. PJ = s1 / s2
   
8. End Function
   

复制代码

dsmch

张雄友 发表于 2014-5-13 20:18
不行啊。

1. Function pj(rng)
   
2. Application.Volatile
   
3. For Each cel In rng
   
4. If cel.EntireColumn.Hidden = False Then
   
5. s = s + cel.Value
   
6. s2 = s2 + 1
   
7. End If
   
8. Next
   
9. pj = Application.Round(s / s2, 2)
   
10. End Function
    
11. 
    
12. Function zdz(rng)
    
13. Application.Volatile
    
14. s = -10 ^ 8 '最小值
    
15. For Each cel In rng
    
16. If cel.EntireColumn.Hidden = False Then
    
17. If cel.Value > s Then s = cel.Value
    
18. End If
    
19. Next
    
20. zdz = s
    
21. End Function
    

复制代码

张雄友

dsmch 发表于 2014-5-13 20:42

s = -10 ^ 8 '最小值

这句有什么用？什么意思？

张雄友

还是要按一下F9才行的，隐藏某列后不会自动马上计算的。

张雄友

这样设置的话，最小值就求不了了？？？？？？

s = -10 ^ 8 '最小值

周小艳

学习一下学习一下啊

张雄友

dsmch 发表于 2014-5-13 20:07
………………

再问多一句。谢谢。

张雄友

想通了。

1. Function QH(rng) '求和
   
2. Application.Volatile
   
3. For Each cel In rng
   
4.     s = s + IIf(cel.EntireColumn.Hidden = True, 0, cel.Value)
   
5. Next
   
6. QH = s
   
7. End Function
   
8. 
   
9. Function PJ(rng) '平均值
   
10. Application.Volatile
    
11. For Each cel In rng
    
12. If cel.EntireColumn.Hidden = False Then
    
13. s = s + cel.Value
    
14. s2 = s2 + 1
    
15. End If
    
16. Next
    
17. PJ = Application.Round(s / s2, 2)
    
18. End Function
    
19. 
    
20. Function ZDZ(rng) '取最大值
    
21. Application.Volatile
    
22. s = -10 ^ 8 '定义一个最小值
    
23. For Each cel In rng
    
24. If cel.EntireColumn.Hidden = False Then
    
25. If cel.Value > s Then s = cel.Value
    
26. End If
    
27. Next
    
28. ZDZ = s
    
29. End Function
    
30. 
    
31. Function ZXZ(rng) '取最小值
    
32. Application.Volatile
    
33. s = 10 ^ 9 '定义一个最大值
    
34. For Each cel In rng
    
35. If cel.EntireColumn.Hidden = False Then
    
36. If cel.Value < s Then s = cel.Value
    
37. End If
    
38. Next
    
39. ZXZ = s
    
40. End Function
    

复制代码

张雄友

dsmch 发表于 2014-5-13 20:42

有二个问题：1 将D：I全部隐藏后，计算出错。
                     2，复制粘贴不能用了。

张雄友

上03版附件。