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

张雄友

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

将D：I全部隐藏后，最大与最小值计算出错。0才对。

dsmch

没有值，也就没有最大最小值，还是初始值，增加一个判断

张雄友

dsmch 发表于 2014-5-15 09:02
没有值，也就没有最大最小值，还是初始值，增加一个判断

怎么增加？

dsmch

Function PJ(rng) '平均值
On Error Resume Next
Application.Volatile
For Each cel In rng
If cel.EntireColumn.Hidden = False Then
s = s + cel.Value
s2 = s2 + 1
End If
Next
PJ = Application.Round(s / s2, 2)
End Function

Function ZDZ(rng) '取最大值
Application.Volatile
s = -10 ^ 8 '定义一个最小值
For Each cel In rng
If cel.EntireColumn.Hidden = False Then
If cel.Value > s Then s = cel.Value
End If
Next
ZDZ = IIf(s = -10 ^ 8, "", s)
End Function

Function ZXZ(rng) '取最小值
Application.Volatile
s = 10 ^ 9 '定义一个最大值
For Each cel In rng
If cel.EntireColumn.Hidden = False Then
If cel.Value < s Then s = cel.Value
End If
Next
ZXZ = IIf(s = 10 ^ 9, "", s)
End Function