某天,在办公室里同事闲聊,我说我最近在学VBA,同事凑上前来,啥是VBA呀?然后另一同事立马解释到,她上学时学过一点简单的VBA ,就是会VBA的话自己可以定义函数。 那么今天开始,我们就学习下如何自定义函数。 什么叫自定义函数? 自定义函数干嘛呢? 这种傻问题也问?顾名思义,当然是根据用户自己的需求自己搞个函数出来呀,自己用着爽呀,简称自爽,😄,区别与Excel中内置的函数。 自定义函数的基本语法: 我们在Excel中使用的内置函数,有的没参数,比如Rand函数,有的有参数,比如Vlookup,参数还好几个,有些参数是区域,有些是数字。 我们今天就从最基本的开始,先来学习下定义一个没有参数和一个只有一个参数的函数,通过最基本的例子来掌握自定义函数的基本语法结构。 自定义函数的语法结构: Function 函数名(参数1,参数2,……,参数n) 代码 函数名 = 代码执行的结果 End Function 语法很简单,看来难在了怎么得到结果的这段代码上。 好了,下面我们就开始自定义一个没有参数的函数吧。 定义一个函数,提取当前工作表的表名。 代码如下: Function WSN() WSN = ActiveSheet.Name End Function 怎么样,简单吧,我们试试效果。(WSN是worksheet.name的简写) 我们再来定义只有一个参数的函数。 当参数为0时返回当前工作表的表名,当参数为1时返回当前工作簿的名字。 代码如下: Function WN(num As Integer) If num = 0 Then WN = ActiveSheet.Name ElseIf num = 1 Then WN = ThisWorkbook.Name End If End Function 代码也很简单,试试效果! 挺好玩吧!我们这才只是学了VBA的一点皮毛而已,学会了VBA,可以根据用户的需求对OFFICE软件进行深度开发,让办公变得更加高效!你还说VBA过时了吗? 今天的分享就到这里了!需要Excel视频(收费)的请联系我微信:527240310 支持鹏哥,请点赞 ↓ ↓ ↓ |
|