范文健康探索娱乐情感热点
热点动态
科技财经
情感日志
励志美文
娱乐时尚
游戏搞笑
探索旅游
历史星座
健康养生
美丽育儿
范文作文
教案论文

excelvba在身份证中如何提取数字来判别男女

  excel中使用vba在身份证中提取数字来判别男女方法,有需要的朋友可以参考本文,一起来看看吧!
  步骤
  1、首先我们打开一个工作样表作为例子。
  使用alt+f11快捷键或者使用开发者工具进入vba编辑窗口。预先输入身份证代码变量。
  在下面输入以下代码。
  i = Right(sid, 1)
  If Int(i / 2) = i / 2 Then '为偶数
  sex = "女"
  Else
  sex = "男"
  End If
  MsgBox "性别:" + sex
  End Sub
  代码解释一下,首先对15位数身份证的末尾值取值,然后用if函数对i变量进行判断,判断的条件为i值是否为偶数。如果为偶数则性别显示为女。
  反之,则显示性别为男。完成判断需要输入end if结束if判断。然后输入信息显示函数msgbox来显示性别的信息。
  这个例子使用的是固定的变量,如果需要手动输入身份证拥有更多的自主性,我们可以将固定变量的代码修改一下。我把代码放在图片里,大家可以看看。
  以上就是excel vba在身份证中怎么提取数字来判别男女方法介绍,操作很简单的,大家学会了吗?希望这篇文章能对大家有所帮助!

干衣机如何安装干衣机安装方法及注意事项详解潮湿的天气总是让人很烦躁,因为潮湿的天气衣服总是晾不干,如果家里面有干衣机的话,晾不干衣服就不再是一个烦恼了,那么大家知道,干衣机安装的注意事项吗?今天小编就告诉大家干衣机安装的注干衣机怎么安装干衣机安装步骤图文详解无论是在干洗店还是在我们的家中,都有可能会使用到干衣机,干衣机的作用是非常多的,能够快速的烘干衣服,给我们带来不少的便利,很多人都不知道应该如何安装干衣机,今天小编就为大家介绍一下艾美特干衣机怎么安装艾美特干衣机安装方法步骤在连着几天阴雨绵绵的天气,家里的衣物都干不了,这个时候我们就需要一个干衣机了,有了干衣机就不用担心在下雨的时候没有衣服穿了,市场上干衣机的需求很大,所以干衣机的品牌有很多,艾美特干暖风干衣机怎么安装暖风干衣机安装方法详细介绍摘要暖风干衣机是一种集干衣取暖挂衣消毒于一身的多功能家电用品,使用安全方便。下面为您介绍暖风干衣机安装原理特点等方面进行介绍。暖风干衣机暖风干衣机安装方法暖风干衣机怎么安装暖风干衣直排干衣机怎样直排干衣机品牌推荐详解大家都在使用什么牌子的干衣机呢,大家的回答可能都不一样。干衣机是利用高温烘干衣服,让衣服在最快的时间变干。今天小编要介绍给大家的是直排干衣机品牌推荐,感兴趣的朋友们就跟着小编一起来伊莱克斯滚筒干衣机好吗伊莱克斯干衣机怎样图文干衣机是能够快速干燥衣物的家用电器,非常适用于北方的冬季和南方的梅雨季节。然而现在市场上各种品牌的干衣机都有,质量参差不齐,让人难以选择,这其中便包括了伊莱克斯滚筒干衣机。小编现在ctt干衣机是哪个牌子ctt干衣机好不好用图文洗衣机是人们洗衣服的好帮手,为了快速的让衣服变干,很多人都会使用干衣机,在干衣机的各种品牌,ctt滚筒干衣机的销量和口碑都是比较好的,在使用ctt滚筒干衣机的时候,我们要先了解一下松下滚筒式干衣机好不好松下干衣机介绍详解现在市场上干衣机品牌各种各样,像海尔西门子等著名的电器品牌都推出了自己家的干衣机。松下,作为日本的老牌家电品牌,当然也不例外,也研制了自己家的干衣机,而且十分受喜欢日货人们的喜爱,松下滚筒干衣机如何使用松下滚筒干衣机使用方法详解一年四季春夏秋冬的变化是我们不能改变的。那么在天气冷的时候我们怎么样来解决衣服清洗后快速烘干成了我们值得考虑的问题。松下滚筒干衣机的出现解决了我们在寒冷季节洗衣服后烘干的问题,为了滚筒干衣机什么品牌好滚筒干衣机品牌推荐详解南方的冬季阴冷潮湿,洗涤后的衣物都不会很快被晾干。于是,干衣机渐渐成为了当下很多人的新选择。但是很多人对于这类新兴电器并不了解。今天,小编带来了干衣机十大品牌排行榜,让大家知道知道意式和美式咖啡机哪个好意式和美式咖啡机区别介绍详解对于意式咖啡机和美式咖啡机,可能大部分的消费者对此没有深入的了解,这也使得我们在选购的时候产生困惑。意式咖啡机和美式咖啡机都有哪些区别呢?我们在选购意式咖啡机或者美式咖啡机的时候,
CAD如何使用偏移命令CAD二维软件,是工科类机械类建筑类不可缺少的制图软件。作为入门学者,只要积极进行学习练习,很快就能独自完成二维图纸绘制。1经常将偏移命令使用在一个对象的多次重复绘制。以直线的偏移word2003英文单词之间空格太大怎么删除word作为常用的办公软件,我们常常用它来处理一些资料,而有的时候,在处理含有英文的文档时,会出现有些地方间隔会过大的情况,如何解决这种问题,下面简单介绍一下。一打开文档在下图中,如何自动去除复制粘贴随身空格不知道有木有遇到这样的情况,插入剪贴板内容时,Word自作多情地为添加了前后空格,还要去手工删除。能不这样吗?下面告诉大家如何自动去除随身空格。在文档中进行删除文字操作时,Wordword输入几个字就自动换行怎么办WORD输入几个字就自动跳到下一行,这个可以通过调整WORD的标尺来解决,下面介绍下具体操作吧。1首先做一个WORD样本,输入几个字就自动跳到下一行,如图所示2在WORD右上角点击Word2013保存时发现公式变成图片怎么办Microsoftoffic软件版本都是向下兼容的,所以用高版本编辑的文件另存为低版本时往往会出现问题。最近遇到的一个问题就是Word2013上编辑的公式在另存为Word2003(word文章中如何插入数学公式下面介绍的是如何在word里面添加自己需要的公式,word里面自带了一个公式编辑器,不知道有没有用过,没用过的话也没关系,下面给大家做一个详细的制作过程。方法一直接编辑1先打开一个在word文档中运用编辑表格的方法工作中经常用word来写各类总结方案通告等文件,多数情况下都会文本表格并用。如何在word中自如地运用各类表格,本文分享几个经常用到的小技巧。快速插入多行或多列表格1)通过插入表格Word2007怎如何从非首页设置页码在写论文时经常会用到WORD文档要从非首页设置页码,比如要求首页为封面的,或者目录不能显示页码的,这时候就要用到非首页设置页码了,下面来分享MicrosoftOfficeWord2word文档中英文字母下的波浪线如何去掉我们在编辑word文档的时候,往往填写一些英文字母信息,这个时候word文档往往会出现波浪下划线,给人一种不是很好的感觉,下面介绍下如何将其去掉,下面就为大家介绍一下,来看看吧!方office2016标题栏主题设置方法office2016标题栏主题的设置技巧1首先,单击ldquo文件rdquo选项卡。2在后台屏幕上,单击左侧的项目列表ldquo选项rdquo。3在右侧,在个性化您的MicrosoWord2016怎么加载EndNoteX7解决安装endnotes在office中无法显示使用的问题。Word2016怎么加载EndNoteX7?1安装好office2016和Endnotesx7。2找到安装目录Progr