自定义函数和带参过程——Excel之VBA(9)

 

 

在VBA中创建自定义函数

格式：

Function A()

 

..........

End Function

 

•创建带参数的过程

Function A(str as String)

(A = ......)    ' 可用函数名接受返回值

..........

End Function

类比：

 在Sub B()........End Sub中，括号中也可以带参数，例如：sub B（str as string），但是注意，带参数无法自动调用

示例：

1) Sub abc(str as String).....End Sub;    

2) Sub efg().....

call abc(Sheet1.range("a1"))....

End Sub

 

•使用加载宏工具

•STEP1 把代码放在“代码库”里

•STEP2 告诉Excel每次打开文件都加载

•STEP3 设置宏按钮  

 

本节案例演示：

1. 创建自定义函数-计算美金
2. 创建自定义函数-计算性别
3. 创建自定义函数-转化日期
4. 创建带参数的过程-新建工作表并命名
5. 加载宏-表格拆分为文件
6. 加载宏-表格拆分到多表

 

Function ZMJ()

 

续：