vba自定义函数,设置加载宏，建立自己的excel函数库，代码库

今天的文章真的厉害了，我们都知道excel有很多强大的函数。比如sum,count,if非常的好用。那我们能不能自己定义函数来使用呢！

当然可以，下面我们就来定义函数并且使用它。

案例一：

提取身份证中的生日，如下图：

用excel自带的函数也可以实现

• 方法1.MID(A1,7,4)&"/"&MID(A1,11,2)&"/"&MID(A1,13,2)

• 方法2.TEXT(MID(A1,7,8),"0000/00/00")

但是方法1，太长了，比较复杂。方法2呢，对函数不是特别熟练的小伙伴想不到混合使用。最重要的是上面两个方法得出的数据不是日期格式而是文本格式，我们无法通过设置单元格格式更改日期显示方式。所以我们可以自己定义一个提取身份证中生日的信息来使用。

代码：

Function tqsr(str As String)    Dim rq As String     rq = Mid(str, 7, 8)  &nb