excel_vba 从入门到精通必备

excel_vba 从入门到精通必备

ID:20840115

大小:8.29 MB

页数:509页

时间:2018-10-17

excel_vba 从入门到精通必备_第1页
excel_vba 从入门到精通必备_第2页
excel_vba 从入门到精通必备_第3页
excel_vba 从入门到精通必备_第4页
excel_vba 从入门到精通必备_第5页
资源描述:

《excel_vba 从入门到精通必备》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、ExcelVBA程序开发自学通2021-7-2第509页/共509页为入门篇:VBA优势、功能与概念第一章从Excel插件认识VBA简单的说,ExcelVBA是依附于Excel程序的一种自动化语言,它可以使常用的程序自动化,类似于DOS(磁盘操作系统)中的批处理文件(后缀名“.bat”)。那么它有什么具体的功能?在工作中与常规操作方式相比,具有哪些优势?笔者试图通过一个简单却实用的插件来展现。本章要点:l从身份证号获取个人信息l在工作中如何发挥Excel插件的优势1.1从身份证号获取个人信息制作人事资料时,通常需要录入职员身份

2、证号码,以及生日、年龄、性别等等。除身份证号码需要手工逐一录入以外,其它三项信息的录入有四种方法:手工录入、内置公式、自定义函数法、插件法。手工输入方式效率极差,且出错机率也最高,本节通过后三种方式来实现并比较,从而让读者对VBA之优势与用法得以初步认知。1.1.1 常规公式法以图1.1数据为例,利用公式从身份证中提取生日、年龄、性别等信息,可以有多种方法。本例列举其中之一。图1.1根据身份证号提取职工年龄、生日与性别通过公式计算职工的年龄、出生日期与性别,步骤如下:(1)在单元格C3输入以下公式,用于计算年龄:=DATEDI

3、F(DATE(MID(B3,7,4-(LEN(B3)=15)*2),MID(B3,11-(LEN(B3)=15)*2,2),MID(B3,13-(LEN(B3)=15)*2,2)),NOW(),"Y")(2)在单元格D3输入以下公式,用于计算出生日期:ExcelVBA程序开发自学通2021-7-2第509页/共509页=TEXT(RIGHT(19&MID(B3,7,LEN(B3)/2-1),8),"#年##月##日")(3)在单元格E3输入以下公式,用于计算性别:=IF(ISODD(MID(B3,15,3)),"男","女")

4、注意:在Excel2003中,ISODD函数默认状态下无法使用,需要加载“分析工具库”才可以正常使用,为了使公式通用,通常改用MOD函数。即公式改为:=IF(MOD(MID(B3,15,3),2),"男","女")(4)选择C3:E3区域,将公式向下填充即完成身份证信息提取。效果如下:图1.2公式法获取身份证信息点评:相对于手工输入法,利用公式从身份证号码获取个人信息有着效率更高、错误率更低之优点,人员越多时越能体现出其高效优势。本例文件参见光盘:..第一章提取身份证信息.xlsm1.1.2自定义函数法自定义函数是指利用V

5、BA编写的外置函数。在本例的随书光盘中已经录入了相关的VBA代码,可以随时调用。对于代码的含义和录入方式在后面的章节后有详细介绍,本章仅通过具体应用了解其用法与优势。具体操作步骤如下:(1)进入“自定义函数法”工作表;(2)在C3:E3区域分别输入以下三个公式,用于计算年龄、出生日期和性别:=SFZ(B3,"NL")=SFZ(B3,"SR")=SFZ(B3)或者=SFZ(B3,"XB")(3)选择C3:E3单元格,将公式向下填充,结果见图1.3所示。ExcelVBA程序开发自学通2021-7-2第509页/共509页图1.3自

6、定义函数法获取身份证信息本例中的函数SFZ即身份证函数,用于从身份证号码中获取年龄、生日与性别等信息。它不属于Excel内置函数,需要利用VBA编写代码才可以使用。读者可以从随书光盘中获取该完整代码。SFZ函数有两个参数,第一参数为单元格引用,第二参数为信息描述,即用于指定需要获取身份证中哪一部分信息。当它为“NL”(不区分大小写)时,获取年龄;当它为“SR”时,获取生日,当它为“XB”或者省略第二参数时,获取性别。点评:相对于内置函数法/公式法,自定义函数法是借用VBA编写的外置函数完成,它的优势在于公式简短,且容易理解。任

7、何不熟悉函数与VBA者皆可一分钟内学会操作并理解其公式含义。1.1.3插件法插件法是指借用Excel插件操作工作表,该插件不隶属于当前工作簿,但却可以实现与当前工作簿交互的功能,批量、迅速完成身份证信息提取工作。操作步骤如下:(1)关闭Excel程序的前提下,将随书光盘中的插件(位置:..第一章批量获取身份证信息.xlam)复制到以下自启动文件夹中即安装完成:C:ProgramFilesMicrosoftOfficeOffice12XLSTART注意:如果您的OFFICE没有装在C盘,那么上面的磁盘号需要根据实际情

8、况做修改;如果您使用OFFICE2003,则将其中“Office12”修改为“Office11”。(2)打开光盘文件“提取身份证信息.xlsm”,进入“插件法”工作表;(3)选择单元格区域B3:B6,单击右键,从右键中选择【批量获取身份证信息】菜单,程序将弹出一个对话框“确定

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。