1、以下假设我们要做求函数：m=12a*[（1+x）+（1+x）^2+……(1+x)^n]，其中a是我们要求的值，m、x、n是表格给出的数值。
2、选择“开发工具”--“visual basis”，进入vba编辑页面；
3、在左边选择插入“模块”；
4、
在生成的空白页面中输入以下代码：
Public Function mon(m, x, n)
s = 0
For i = 1 To n
s = s + (1 + x) ^ i
Next
mon = m * 10000 / (12 * s)
End Function
其中：mon是函数名，m，x，n是参数，第二行到倒数第二行部分是函数体，这部分内容可以根据所需函数的不同改变。
保存。
5、在excel工作表中即可利用刚才的函数了。使用方法与普通函数一致。
