1、打开EXCEL电子表格，点击1处的“开发工具”选项卡。
3、如图骤添加一个模块。
5、在D3的单元格中输入“=APP_Power(A3,B3)”回车后就计算出来了。
7、同时输入有功和无功的自定义脑栲葱蛸函数。'有功功率计算Function AVE_power(v As Variant, i 帆歌达缒As Variant, pf As Variant)Dim apower As Variantapower = 1.732 * v * iAVE_power = apower * pfEnd Function'无功功率计算Function REA_power(v As Variant, i As Variant, pf As Variant)Dim apower, avpower As Variantapower = APP_Power(v, i)avpower = AVE_power(v, i, pf)REA_power = Sqr(apower * apower - avpower * avpower)End Function
