分享

谁说的VBA已经过时了?教你用VBA自定义个简单的函数!

 L罗乐 2018-05-25

某天,在办公室里同事闲聊,我说我最近在学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



支持鹏哥,请点赞 ↓ ↓ ↓

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多