构建一个自定义函数

1、  打开EXCEL，使用组合键ALT+F11打开vba编辑器

2、  插入模块，并修改名称为“自定义函数”

2、  在代码区输入下列代码：

Function Birthday(身份证)

y = --Mid(身份证, 7, 4)

m = --Mid(身份证, 11, 2)

d = --Mid(身份证, 13, 2)

Birthday = DateSerial(y, m, d)

End Function

Function Sex(身份证)

Sex = --Mid(身份证, 17, 1)

If Sex Mod 2 = 1 Then

Sex = "男"

Else

Sex = "女"

End If

End Function

3、OK，回到EXCEL界面

在B1单元格输入Bir，可以看到刚才构建的自定义函数已经出现了，我们可以输入完整名称，或直接双击出现的函数名

4、在输入完函数名称后，可以按Ctrl+Shift+A,调出函数的参数说明

5、这时，只要我们用鼠标选择A1就可以了，只有一个参数。

6、同理C1=SEX(A1)