在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 设置宏按钮
本节案例演示:
- 创建自定义函数-计算美金
- 创建自定义函数-计算性别
- 创建自定义函数-转化日期
- 创建带参数的过程-新建工作表并命名
- 加载宏-表格拆分为文件
- 加载宏-表格拆分到多表
Function ZMJ()
续: