在VBA中，自定义函数实例应用（6）——数值相加

在本篇经验中，我们将继续探讨在VBA中如何应用自定义函数，此次的主题是数值相加。 步骤一：进入VBA编辑界面 首先，在Excel工作表中点击菜单栏上的【开发工具】，然后在其工具栏内找到并点击【Vi

在本篇经验中，我们将继续探讨在VBA中如何应用自定义函数，此次的主题是数值相加。

步骤一：进入VBA编辑界面

首先，在Excel工作表中点击菜单栏上的【开发工具】，然后在其工具栏内找到并点击【Visual Basic】。

步骤二：插入模块

进入VBA编辑界面后，点击菜单栏上的【插入】，在下拉菜单中选择【模块】，这样会弹出一个模块编辑窗口。

步骤三：编写代码

在模块编辑窗口中，输入以下代码：

Function jia0(ParamArray num())
    For Each n In num
        For Each i In n
            m  m   i
        Next i
    Next n
    jia0  m
End Function

步骤四：使用自定义函数

在Excel工作表的某个单元格（比如[E1]单元格）中，输入自定义函数名"jia0"，然后点击函数图标。在弹出的函数对话框中依次输入要相加的数值。

请参考下图：

步骤五：计算结果

完成参数输入后，点击确定。这样，所选区域的数值之和就会被快速计算出来。

通过以上步骤，您已成功在VBA中创建了一个自定义函数用于实现数值相加的功能。

希望本篇经验能够对您在VBA编程中的学习与实践有所帮助。