今天的文章真的厉害了，我们都知道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)     
    '在函数中给函数名赋值，意思就是这个函数的返回值。  
    tqsr = DateSerial(Left(rq, 4), Mid(rq, 5, 2), Right(rq, 2))
End Function

注意：在函数中给函数名赋值，意思就是这个函数的返回值。

dateserial函数返回的结果是一个数值，所以需要我们自己手动设置一下单元格格式。在调用函数前选中整列设置为日期格式，或者调用后再设置格式也可以。

结果如下图：

我们选中这列自己设置一下想要的格式即可：

上面的例子看完，你可能对自定义函数还是不屑一顾。自定义函数特别好的一点是它可以把vba的函数用到工作表中，那工作表函数的功能真是如虎添翼了！再来看一个例子。

案例二：

把A列的品类，产品，年份，周，款式号信息提取出来

用工作表的mid函数也可以完成，但是很复杂，还要每次去数在A列中第几位。那下面我们就用vba的split函数来搞定它。上一篇文章我们已经讲过split的用法，这里再重复一下，以后不再重复。

用法：

• Split("pw-023-2015-37-001", "-")就是将字符串"pw-023-2015-37-001"以 "-"为分隔符分割。结果会得到一个数组，下标从零开始。
• Split("pw-023-2015-37-001", "-")(0)就是取第1个数据pw
• Split("pw-023-2015-37-001", "-")(1)就是取第2个数据023
• Split("pw-023-2015-37-001", "-")(2)就是取第3个数据2015

代码：

'三个参数分别代表，要分割的字符串，分隔符，要取数组的第几位
Function jqzf(str As String, str1 As String, i As Integer)   
		jqzf = Split(str, str1)(i - 1)
End Function

调用：

现在有一个问题。那就是这个代码只能在当前工作簿中使用，我怎么才能让每一个工作簿都能使用它呢。

• 第一步：新建一个excel文件。打开文件，打开visual basic，插入一个模块，把你的函数都放在里面，形成你的函数库。然后把新建的excel文件另存为.xla的格式,名称可以叫函数库，路径不要选。
• 第二步：打开一个.xlsx文件，点击开发工具下面的加载项，勾选你的函数库就可以了。以后你的excel就会比别人多一些函数功能了。

加了函数库好像excel也没有比别人的高大上，别急，下面我们把宏都加载上去，在主程序上直接使用，和保存按钮放在一起，是不是瞬间感觉很厉害。

怎么做呢，其实和上面函数库差不多

• 第一步：新建一个excel文件。打开文件，打开visual basic，插入一个模块，把你的宏都放在里面，形成你的代码库。然后把新建的excel文件另存为.xla的格式,名称可以叫函数库，路径不要选。
• 第二步：打开一个.xlsx文件，点击开发工具下面的加载项，勾选你的代码库
• 第三步：在选项-》快速访问工具栏中选择宏，选择需要执行的宏操作

还可以修改名称和图标：

然后你的excel就高人一等了。别人都没有，就我有。直接点击就可以使用，是不是很酷。

之后我会不定时分享一些自定义函数和代码填充你们的代码库

每天学一点，薪资翻一番。想获取更多案例请关注我的公众号“学会数据分析”。