1、打开EXCEL电子表格，点击1处的“开发工具”选项卡。
2、点1处的Visual Basic
3、如图骤添加一个模块。
4、输入视在功率自定议函数代码：Function APP_Power(v, 坡纠课柩i)APP_Power = 1.732 * 即枢潋雳v * iEnd Function点保存后返回EXCEL表格。计算的方法要参见三相有功的公式，不同的计算在函数体内写不同的计算公式。
5、在D3的单元格中输入“=APP_Power(A3,B3)”回车后就计算出来了。
6、一样可以拖动填充计算。
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
8、可以使用自定义函数在excel表格中进行计算，如图所示。
