发布网友 发布时间:2022-05-01 06:10
共1个回答
热心网友 时间:2022-06-25 09:57
用vba写个自定义函数。举例说明,例如有表格数据如图:
第一步:编制代码如下:
Function myH(myrange As Range)
myH = 0
For Each MYC In myrange
Pi = MYC.Value
myH = myH + Pi * Application.WorksheetFunction.Ln(Pi)
Next MYC
myH = myH * (-1)
End Function
第二步:在I2输入公式:=myh(G2:G13).结果如图: