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 FunctionFunction Sex(身份证)Sex = --Mid(身份证, 17, 1)If Sex Mod 2 = 1 ThenSex = "男"ElseSex = "女"End IfEnd Function
4、在输入完函数名称后，可以按Ctrl+Shift+A,调出函数的参数说明
6、同理C1=SEX(A1)
