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 = 0For i = 1 To ns = s + (1 + x) ^ 足毂忍珩iNextmon = m * 10000 / (12 * s)End Function其中：mon是函数名，m，x，n是参数，第二行到倒数第二行部分是函数体，这部分内容可以根据所需函数的不同改变。保存。
5、在excel工作表中即可利用刚才的函数了。使用方法与普通函数一致。
