1、打开要进行计算的工作表，确定输入量和输出量。例如，本例中的输入量是“相对数量”，输出量是“绝对数量”。（“相对数量”是某零件相对于其父层的数量，“绝对数量”是该零件在总成中的总数量）
2、点击 视图->宏，在出现的对话框中输入要创建的公式的名称，如 JueDuiShuLiang，然后点击 创建。
3、出现 VBA编辑窗口，在窗口中有如下代码：
Sub JueDuiShuLiang()
End Sub
4、Sub代表该代码是一段子程序，但我们要建立的函数，所以应该将Sub改为Function，如下：
Function JueDuiShuLiang(rng as Range) as Integer
End Sub
5、这时返回到表格窗口，在要返回函数值的单元格内输入“=JueDuiShuLiang()”，可以看到函数能自动出现！
6、剩下就是编写函数功能代码的事了。本例编写的代码如图，主要思想是向上找所有的父层，然后乘以所有的父层数量。
7、返回到工作表，重新输入函数名，选择输入单元格，回车，即可得到函数的返回值！按住单元格右下角的十字，向下拉，可以填充其余单元格。
