[已解决]求教自定义函数

chunlin1wang

求各位大虾帮忙建立一个自定义函数，谢谢了！

Nbkg0i7T.zip (2.17 KB, 下载次数: 2)

2009-12-26 15:43 上传

点击文件名下载附件
求教自定义函数

最佳答案

月排行榜 / 总排行榜

枯禅

2009-12-26 16:10

Function Mg(h As Double, r As Double, l As Double, m As Double)
    Mg = (Application.Acos((r - h) / h) * r ^ 2 - (r ^ 2 - (r - h) ^ 2) ^ 0.5 * (r - h)) * l * m
End Function

跳转到最佳答案楼层

搁浅2008

你可以把某个单元格替换成h假如是B1＝{Acos((0.6-a1)/a1)*0.6^2-(0.6^2-(0.6-a1)^2)^0.5*(0.6-a1)}*2*1.25然后把高度值现在A1里边

枯禅

Function Mg(h As Double, r As Double, l As Double, m As Double)
    Mg = (Application.Acos((r - h) / h) * r ^ 2 - (r ^ 2 - (r - h) ^ 2) ^ 0.5 * (r - h)) * l * m
End Function

chunlin1wang

太好用了！谢谢了,

yuang68

真是高手呀