Excel VBA系列之自定义函数

在Excel VBA中不仅可以使用程序本身内置的函数（如工作表函数或VBA函数），还可根据需求自定义函数以实现数据处理的要求。

1. 在如图的成绩表中，每项成绩占总成绩的25%，据此要计算出每项（平时、小考、期中、期末）的百分比成绩。

2. 在Excel中可以直接引用单元格作参数写出如图的公式，然后计算出每位学生各项成绩的百分比。

3. 在VBA中，我们也可以自定义一个函数来实现以上的公式计算。

打开Visual Basic，添加一个模块和函数（Function，与过程Sub-End Sub原理是相同的），称之为“计算成绩”。

4. 设自定义函数的参数为x，令函数等于参数乘以0.25，相当于在Excel表中通过单元格引用来进行公式计算。

5. 回到Excel工作表中，在H2单元格中输入“=计算成绩(D2)”，回车即可得到相应的结果。

6. 我们同样也可以在VBA中通过使用循环与上面自定义的函数来计算出所有项目的结果。

以上案例仅用于演示，更多实际应用请根据需求进行相应的调整。

喜欢的朋友请多多关注，感谢支持！

1、直接调用或者call 过程名 call 函数名就可以了，比如

Private Sub CommandButton1_Click()

MsgBox "你调用了CommandButton1_Click过程"

End Sub

Private Sub CommandButton2_Click()

Call CommandButton1_Click

End Sub

2、如果有参数的话需要带上参数，比如

Private Sub CommandButton1_Click()

Call MsgStr("这是过程/函数调用示例")

End Sub

Sub MsgStr(str As String)

MsgBox str

End Sub

扩展资料：

在一个变化过程中，发生变化的量叫变量，有些数值是不随变量而改变的，我们称它们为常量。

自变量：一个与它量有关联的变量，这一量中的任何一值都能在它量中找到对应的固定值。

因变量：随着自变量的变化而变化，且自变量取唯一值时，因变量有且只有唯一值与其相对应。

函数值：在y是x的函数中，x确定一个值，y就随之确定一个值，当x取a时，y就随之确定为b，b就叫做a的函数值

输入值的集合X称为F的域；可能输出值的集合Y称为F的域。函数的值域是指通过映射定义域中所有元素的F而获得的实际输出值的集合。请注意，将函数的值字段称为函数的相应字段的子集是不正确的。

在计算机科学中，参数和返回值的数据类型决定了子程序的定义域和对应域。因此，定义域和相应的域是在函数开始时确定的强制约束。另一方面，价值域与实际实现相关。

参考资料：

百度百科-函数

---