在下面这篇文章中将和大家分享一下在Excel VBA中如何自定义含有多个参数的函数。关于VBA中自定义函数的基本操作,大家可以参考之前的一篇文章,如下:
1. 在Excel工作表的A2单元格中有一个类似产品序列号的数据,需要通过VBA自定义函数取出年份和月份信息。
2. 打开Visual Basic,添加一个模块,定义一个函数“czf”,表示拆字符。
Function czf()
End Function
3. 为自定义函数添加三个参数,两个字符类型,一个整数类型;这里可以根据实际需要自行设置参数。
Function czf(str As String, str1 as String, i as Integer)
End Function
4. 定义此函数时,使用Split函数对其参数进行拆分;因为这里是要将一个序列号中的信息提取出来。
Function czf(str As String, str1 as String, i as Integer)
czf = Split(str, str1) (i-1)
End Function
关于Split函数,可参考文章:Excel VBA系列之Split函数 - 简书
5. 自定义函数完成后,回到Excel工作表中,在B2单元格使用该自定义函数,输入“=czf(A2, "-",2)”,获取年份信息。
6. 使用自定义函数“czf”也可以获取月份信息。
7. 使用自定义函数“czf”将两个时间信息进行合并。
以上案例仅用于演示,更多实际应用请根据需求进行相应的调整。
喜欢的朋友请多多关注,感谢支持!