怎样使用VBA根据身份证号返回性别？

2025-10-11 08:50:05

1、首先在开发工具中打开VBA编辑器

怎样使用VBA根据身份证号返回性别？

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA根据身份证号返回性别？

3、在VBA编辑器中插入模块

怎样使用VBA根据身份证号返回性别？

4、在模块当中输入如下代码，然后运行

Function sex(rng As Variant) '提取性别

sex=VBA.IIf((Mid(rng.Text, 15, 3) Mod 2), "男", "女")

End Function

怎样使用VBA根据身份证号返回性别？

5、在单元格A1和A2中分别输入15位和18位的身份证号，在B1中输入公式“=Sex(a1)”，然后下拉，公式返回同样结果，即表示本函数可适应15位和18位身份证，如图

怎样使用VBA根据身份证号返回性别？

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。