请问各位这个平均值求法错在哪里？谢谢！

mikewolf

​'a为单元格范围,比如：F54:f94，b为数据值，C为权重，求考核得分
Function JXKH(a, b, c)
Dim MaxV, MinV, AvgV As Long
AvgV = Application.WorksheetFunction.Average(a)
MaxV = Application.WorksheetFunction.Max(a)
MinV = Application.WorksheetFunction.Min(a)
'    指标值低于(等于)分行平均值时:指标得分=权重分+(分行平均值-指标值)÷(分行平均值-分行最小值)×权重分×0.8

'    指标值高于分行平均值时:指标得分=权重分-(指标值-分行平均值)÷(分行最大值-分行平均值)×权重分×0.8
If b < AvgV Then
   JXKH = c * (1 + (AvgV - b) / (AvgV - MinV) * 0.8)
Else
   JXKH = c * (1 - (b - AvgV) / (MaxV - AvgV) * 0.8)
End If
End Function


通过调试发现，AvgV始终都为0，不是真正的平均数，不知道哪里写错了。请各位大侠指正。谢谢了。
&#8203;

tanglf188

我这边测试没问题，看下你调用函数时单元格区域设置是不是有问题，最好带上表名
Sub ww()
    MsgBox JXKH(Sheet2.Range("H3:H6"), 58, 0.6)
End Sub

fzxba

mikewolf

tanglf188 发表于 2023-3-16 16:01
我这边测试没问题，看下你调用函数时单元格区域设置是不是有问题，最好带上表名
Sub ww()
    MsgBox JXK ...

用了二楼的方法就搞定了。谢谢！

mikewolf

fzxba 发表于 2023-3-16 16:07

搞定了，谢谢了！什么原理？一脸蒙圈！

fzxba

mikewolf 发表于 2023-3-17 09:01
搞定了，谢谢了！什么原理？一脸蒙圈！

mikewolf

fzxba 发表于 2023-3-17 09:21

明白了，非常感谢！