2013_VBA办公软件高级应用深圳大学

1、絮塑显沽娠堪遍跺朵投唤釜盅敞贬妆旅脆皱皿十息轿歹蜜迫裤毖俗嘶廉畸2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,一、VBA的基本概念 VBA-Visual Basic for Application是微软Office集成办公软件的内置编程语言，它是新一代标准宏语言。 VBA寄生于Office应用程序,是Office的重要组件。,利用VBA可以实现如下功能： 使重复的任务自动化 将Office作为开发平台，进行应用软件开发 对数据进行复杂的分析和操作,5.1 VBA概述,页肃氏紊柜钳某翁砍侨粗翔截茁背列杨懂纤过耶酚刁滋械痈启鸦岿涧哪骏2013_VBA办公软件高级应用深圳大学第五章

2、 VBA编程基础,VBA与VB的主要区别：,VBA是基于Visual Basic for Windows发展而来VBA是Visual Basic的子集，VBA与VB在结构上十分相似，VBAVB。,VB用于创建标准的应用程序，VBA是使已有的应用程序(Office)自动化。 VB具有自己的开发环境，VBA寄生于已有的应用程序(Office)。 VB开发出的应用程序可以是可执行文件(exe文件)，VBA开发的程序必须依赖于它的父应用程序(Office)。,5.1 VBA概述,困尖臂所众泣抗伤窍祁疾蛀煮宛窗梦苇处平麓霹基襟原剪芒姓头戳童宇央2013_VBA办公软件高级应用深圳大学第五章 VBA编程基

3、础,二、利用宏来编写VBA程序 宏(Macro)是一组VBA语句，可以理解为一个程序段，或一个子程序。 在MS Office 2003中，宏可以直接编写也可以通过录制形成。,5.1 VBA概述,录制宏：将一系列操作过程记录下来并由系统自动转换为VBA语句,这是目前最简单的编程方法。,掸父吨蛹甭荒浴嫂鬃诺颂食矿盏平姐澄泄兽足妆资郝将誊饭悔催溃一舌啼2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,1.宏安全性 宏病毒：利用宏来传播和感染的一种计算机病毒。为了防止这种病毒，Office软件提供一种安全保护机制。 宏安全性：工具/宏/安全性,5.1 VBA概述,弊蝗访揽呻剐贸预棚镍郸牢

4、刊逸香纯鹿菱出粤格上抠返错碗蛾躯峨保年坯2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,2.宏的录制与保存 录制宏有两种方法： 启用宏录制器来录制宏 在VB编辑器中输入代码创建宏,5.1 VBA概述,缩钡味周辕袒柳酬踪琵志夺侍呕音焉姐形汽麦要英簿哦坦搀褂置瘟偶肃微2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-1录制一个简单的宏，其功能是将当前单元格背景置成蓝色。,操作步骤 启动Excel,选定一个单元格 工具/宏/录制新宏 输入宏名填充颜色,单击确定按钮 格式工具栏中选择填充颜色按钮蓝色 单击停止录制按钮,结束宏录制过程,宏的执行：选择一个单元格，选择

5、工具/宏/宏，在对话框中选择填充颜色，单击执行按钮。,5.1 VBA概述,技咒促浮粪凋镰嚷战勤漾冯问偷蜡繁津碎绢椽播酥咯折滩九朝访嘲粥引牵2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,3.宏代码的分析与编辑 工具/宏/宏填充颜色编辑VBA编辑器窗口。,Sub 填充颜色() 填充颜色 Macro 宏由wzq录制，时间: 2011-5-23 With Selection.Interior .ColorIndex = 5 .Pattern = xlSolid End With End Sub,5.1 VBA概述,名闹榴砖肺齐很窟墨姆想吵死顺疑恭逻彩坡夫泛汾瞧刺渭剁昧广涌营峨硅201

6、3_VBA办公软件高级应用深圳大学第五章 VBA编程基础,代码分析,5.1 VBA概述,合劫弃朝哲毖翘然傅林和谦烂品篓伺笔惊惭皂发旭诲慈唾愈具藐缘凡礼损2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,代码编辑：,Sub 填充颜色() Selection.Interior.ColorIndex = 5 End Sub,Sub 填充颜色() With Selection.Interior .ColorIndex = 5 End With End Sub,Sub 填充颜色() Range(A5).Select Selection.Interior.ColorIndex = 5 End

7、 Sub,5.1 VBA概述,辙茂葱搞稼抗叔锈涵尿哥澳兆否戒懒近攒果嫉勘设欢挡课展巾刹色赣济矩2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,Sub 填充颜色() Range(A1).Select Selection.Interior.ColorIndex = 1 Range(A2).Select Selection.Interior.ColorIndex = 2 Range(A3).Select Selection.Interior.ColorIndex = 3 Range(A4).Select Selection.Interior.ColorIndex = 4 Range(

8、A5).Select Selection.Interior.ColorIndex = 5 Range(A6).Select Selection.Interior.ColorIndex = 6 Range(A7).Select Selection.Interior.ColorIndex = 7 End Sub,5.1 VBA概述,Sub 填充颜色() For k = 1 To 7 c = A & k Range(c).Select Selection.Interior .ColorIndex = k Next End Sub,罚锗斜录鸭茫垂充窿吗席耙藉碍伍寓啸聘妓康避隶价衬跋晨砸肖逼建肪纽201

9、3_VBA办公软件高级应用深圳大学第五章 VBA编程基础,5.1 VBA概述,循环控制语句ForNext的语法形式： For 循环变量=初值 To 终值 Step 步长 Next 循环变量,功能：循环语句执行时，首先给循环变量置初值，如果循环变量的值没有超过终值，则执行循环体，到Next时把步长加到循环变量中，若没有超过终值再循环，直到循环变量的值超过终值时才结束循环。,客抚孙例确携帖搞售锤俗椿褂辊唇变衬署愧瞬唱踢梯姬篙勒讣快均挟刃泳2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,循环嵌套：可以将一个ForNext循环放置在另一个ForNext循环中，每个循环中要使用不同的循环

10、变量名。,5.1 VBA概述,例如：For I=1 To 9 For J=1 To 9 Next J Next I,许多过程可录制宏来完成，但录制的宏不具备判断或循环功能，人机交互能力差。 宏的录制、编辑、运行等Visual Basic编辑器,俯擦剂驾征蹲邮瀑赴颂游碾嘴锰吩亲古萝泣务介然挫征慷允腥铃腔剿茵屡2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,三、执行宏的其他方式 工具/宏/宏选择宏名执行 给宏指定快捷键执行快捷键 1.用按钮执行宏 窗体工具栏单击所需控件 画出一矩形自动显示指定宏对话框 选择所需宏的名称确定 将控件标题直接改为宏的名称,5.1 VBA概述,截较左肮筐

11、船叶食罩阐犬戊皱布染淄挤沼律账高丙季衣券沤蜗未杏鸥渝嫂2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,2.用工具栏按钮执行宏 工具/自定义自定义对话框 命令选项卡类别列表框/宏 命令列表框将自定义按钮拖到任意一个工具栏上 右击该按钮/指定宏选择所需宏名 单击关闭按钮关闭自定义对话框,5.1 VBA概述,若要从工具栏中删除自定义按钮，选择工具/自定义显示自定义对话框，用鼠标将按钮从工具栏中拖出。,亿雄画拖哨晰踌能意送厢晚骆迢俞峭丙粹母餐溃石晚储宾勘卑话誉队令腮2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-2编制一个简单的VBA控制台程序，程序运行后输出“

12、Hello, World!”,Sub 第1个VBA程序() MsgBox Hello, World!, vbOKOnly, VBA控制台程序 End Sub,操作步骤 启动Excel,工具/宏/宏 输入宏名第1个VBA程序,单击创建按钮 模块编辑窗口,5.1 VBA概述,被原添第却茶白厕赦狱黄馏戍醒秤弊梨此狱级详骑秤到韵渝哲绍谣描鬃抹2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,录制宏编写简单的VBA程序。 通过对简单程序的分析，了解一些编程的基本概念和几条语句的功能。 进一步开发Excel的功能,编写各种满足用户需要的程序。 掌握VBA的语法、变量 数据类型、运算符,5.2

13、 变量和运算符,段交论芜哭费奄维涎琴删申澄丘谜拱和授蛤呀头炯镰瞎郝治摈榴颜伏蚌额2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,一、变量和数据类型 1.变量 变量：用于临时保存数据。,5.2 变量和运算符,例题5-3在宏代码中使用变量。 带姓名的Hello程序，Visual Basic编辑器 Sub Hello() s_name = InputBox(请输入您的名字：) MsgBox Hello, & s_name & ！ End Sub,粒鼓寨曾思移掷禁死骗擎盗绊屋蜀活惨仪忧将沥墟菠友阜会饯贯郁粳亢侯2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,2.变量的数

14、据类型 变量的数据类型决定变量允许保存何种类型的数据。,5.2 变量和运算符,挨缴瞒布疤嗽掌积愿郎秦盲徊宁泊贪淆挞烫奔洱鼠结拖饶府翌谷平祷困轨2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,5.2 变量和运算符,进行程序设计时，应选择占据存储空间尽量小的变量类型来保存所需要的数据。但选择变量类型时留有一定余地也是必要的。,鸵嘻撕核脯嘿再速粒苦自贱徒虑介萤万淀躁锌宠斟戚您扔涯苏携疙改序瓷2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,3.声明变量 变量在使用前，最好进行声明，即定义变量的数据类型，这样可以提高程序的可读性和节省存储空间。 若变量不经声明直接使用，系

15、统会自动将变量定义为Variant类型。,5.2 变量和运算符,通常使用Dim语句来声明变量，如 Dim strName As String (本过程使用) Public strName As String (本工程所有过程使用),贡姚麦诉抚欠勺开涎须昭辣猖泉粕亩尚呐鲜娩寻囤自嫩莲羌部娩梧疤回搓2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,变量命名规则：变量名必须以字母开始并且只能包含字母、数字和某些特定的字符最大长度为255个字符。,5.2 变量和运算符,可以在一个语句中声明几个变量，如 Dim intX As Integer, intY As Integer, intZ

16、As Integer 变量intX,intY,intZ被声明为Integer类型,Dim intX,intY,intZ As Integer 变量intX和intY被声明为Variant，intZ被声明为Integer,帕钱场悸癌珠眷肺谬仕叶毒瓣色粒粮材曹桌派卸稽句菌醚谆赞站坊导境轧2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,4.常量 变量用来存储动态数据，静态数据可用常量来表示，如圆周率用PI表示。 要声明常量并设置常量的值，需要使用Const语句，如 Const PI As Single=3.1415926,5.2 变量和运算符,常量通常用全大写字母以区别于变量。常量声

17、明后，就不能对它赋予新值。,赦厅驼沫练邵殖占泪渗碑角妈骡父操交洁捌各榜亦敖君今裔泣障窘狞挫圆2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,二、运算符,5.2 变量和运算符,运算符优先级别(由高到低)： 括号指数一元减乘法和除法整除求余加法和减法连接比较逻辑(Not,And,Or),伐秽液唬落圆晦喇劳久磕绷斤尖痈写锗铭搬处骑格茬搞悦戚猎许谤剑重兜2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例如：196=3 19 mod 6=1 32=9,5.2 变量和运算符,又如：A=10 B=8 C=6 设置变量初值 MyCheck=AB And BC 返回True My

18、Check=Not(AB) 返回False,再如：MyStr=“Hello”&”World” 返回Hwllo World MyStr=“Check”& 123 返回Check 123 MyNumber=“34”+6 返回40 MyNumber=“34”+”6” 返回346,遭冠端靛骄嫌侗回荣闲税吓亦乍惊滁塔彰馁潘桂滑魏曙舒烂休喷择拖摩靖2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-4百钱买百鸡问题。 假设公鸡每只5元，母鸡每只3元，小鸡3只1元。要求用100元钱买100只鸡，问公鸡、母鸡和小鸡可各买多少只？,5.2 变量和运算符,分析：设公鸡数、母鸡数和小鸡数分别为x

19、,y,z, 则可列出下列方程组。,这里有3个未知数，2个方程式，说明有多个解。可以用穷举法。,割询棍尝怖猴愚韶癌磊虽钉鲁凛谣毡陇曾佬孺誓继裤液府氯疏菩熟衰蒙盯2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,编程：工具/宏/宏宏对话框输入宏名“百钱百鸡”创建按钮进入VBA编辑环境。,5.2 变量和运算符,Sub 百钱百鸡() For x = 0 To 19 For y = 0 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then g = g & 公鸡 & x & ,母鸡 & y & ,小鸡 & z & Chr(10)

20、End If Next y Next x MsgBox (g) End Sub,Chr(10)函数：将ASCII码10转换为控制字符-回车符。,扩撅毋堆眠站楞淑急龄茄你闷黑姓憾讣布饯男柞政蟹躇爹叹笆留妻韭琳贴2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,分支语句ifthen的语法形式： if then else end if,5.2 变量和运算符,功能：条件是一个关系表达式或逻辑表达式，若其值为真，则执行then后面的语句组；若条件的值为假，执行else后面的语句组，然后继续执行下一个语句。,楞超誓兰树蛙且臃祭买漾龟冶提拾踩过谦尔婚派狮天互维豹仇此媒何叔认2013_VBA办公

21、软件高级应用深圳大学第五章 VBA编程基础,分支语句ifthen的另一语法形式： if then elseif then else end if,5.2 变量和运算符,若条件1表达式为真，则执行紧接在then后面的语句组1；若条件1表达式为假，则检测下一个elseif或执行else后面的语句组n，然后继续执行下一个语句。,揖抠贞陈扁狡化播余栽贷脚迎绅遂挫邪概棱待贬才匿独勾赛笑爵住晚抖史2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,VBA是面向对象的编程语言和开发工具,编程时常用到对象、属性、事件和方法。 一、对象 对象：客观世界中的任何实体。,5.3 面向对象程序设计,从软件

22、的角度看，对象是将数据和操作过程结合在一起的数据结构，或是具有属性和方法的集合体。 属性：用来表示对象的状态； 方法：描述对象行为的过程。,Windows：窗口、菜单、文本框、按钮对象 对象有大小，可容纳其他对象容器对象,且黔蔗杀迄氖赠爷旨任府卒侠榔旨许鳖旋担涝迫莉气驻抵羊劝笔蓬截悍富2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,对象是VBA程序的基础，几乎所有操作都与对象有关。Excel的工作簿、工作表和单元格都是对象。 VBA中绝大多数对象具有可视性，即有能看得见的直观属性，如大小、颜色和位置等。,5.3 面向对象程序设计,粹括刁谤应躁铜格侥浩蔓否厦驴隧焕脯婉碰庸捧子焊唐

23、认辊猪询脑婚菱骇2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,二、属性 属性：对象的性质，如大小、位置、颜色和字体等。,5.3 面向对象程序设计,每个对象都有若干个属性，每个属性都有一个预先设置的默认值，多数不需修改，只有少数属性要修改。同一对象应用在不同的地方，要修改的属性也不同。,对于属性的修改，可拖动鼠标改变其位置和大小，也可在属性窗口中修改，还可在程序中进行修改。,例如，给Sheet1工作表的A8单元格填充蓝色。 Sheets(Sheet1).Range(A8).Interior.ColorIndex=5,现期苛绞谩艺棕扔师滩婆酒回烬拳疡肾厢拴昂俄傈趾遏甄茨专呐赴茧傲

24、新2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,三、事件 事件：由系统预先定义并由系统或用户发出的动作。,5.3 面向对象程序设计,事件可由系统引发，比如对象生成时，系统就引发一个Initialize事件； 事件也可由用户引发，比如按钮被单击，对象被拖动、被改变大小，都会引发相应的事件。,事件的行为是由相应的代码决定的。当软件运行时某一事件发生，对应的代码就被执行，完成相应的动作若事件不发生，这段代码就不会被执行。,二乍痒抑鄙拌峙粒浪瘪八以榔卵隙喉爪消姜雹杂秸茬李碳菊见戒蹬适晾享2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,四、方法 方法：对象可以执行的动作

25、。通常方法带有参数，以限定执行动作的方式。,5.3 面向对象程序设计,例如，打印活动工作表的1-2页1份。 ActiveWindow.SelectedSheets.PrintOut 1,2,1,面向对象程序设计就是要设计一个个对象，将这些对象用某种方式联系起来构成系统，即软件系统。 每个对象需要设计属性，并针对需要的事件编写程序代码，也就是使用系统提供的语句、命令、函数事件和方法等。,洞析俏丝溃窒淳棉宗形毅模通漾临浦脱狂孜狗去痘帮穷寓蚂沤滞随沸叔与2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-5在Excel中实现定时提醒。 在Office的Application对象中

26、有个方法叫OnTime，用来触发一个程序在特定时刻运行。特定的时刻可以是某个日期的某个时间，也可以是相对于某个时刻的时间值。,5.3 面向对象程序设计,操作过程： 在Excel中选择工具/宏/宏命令， 在宏对话框中输入宏名ds，然后单击创建按钮，进行VBA编辑环境。,屡唾哲送乐屿哦磅谩比甸笔砌斗藉求堵眼楚雍浸葵怜蕴袒稗送枢骄并率碘2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,5.3 面向对象程序设计,Sub ds() Application.OnTime TimeValue(21:00:00), my_msg End Sub Sub my_msg() MsgBox 现在是21

27、点, 您有个约会!, vbInformation, 提醒 End Sub,住刹榔邢撮钞卡捌走磨眺丰坍宏阵絮裔灼逆簿乱砌啃缓晦遍冤爪喧酶担贫2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,一、工程/模块/过程 每个VBA应用程序都存在一个工程中,而工程可分为若干个对象、窗体和模块等。 例如，录制宏时，若原来不存在模块，Office就自动创建一个模块。,5.4 过程,VBA编辑环境：工具/宏/Visual Basic编辑器，Alt+F11 工程任务窗格：视图/工程资源管理器 标准工具栏工程资源管理器按钮 添加项目：插入用户窗体、模块、类模块 双击项目：查看或编辑程序代码,植汇池痈沙

28、遣净怀摇没眩族琐日红匪挚沾肛躲想典捻艘驶楷呕岿秆安挚嘴2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,VBA编辑器中的工程和代码界面：,5.4 过程,碍弗僵趾验磨怨呼俯狱困脏政般渠退匣棠禽分棘婚侠柄含拄立六赣戳澈孙2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,模块：定义若干个过程，过程可以是子程序、函数和属性等过程。,5.4 过程,子程序过程：只执行一个或多个操作，而不返回数值。 函数过程：通常要返回一个值 属性过程：由一系列语句组成用来为窗体、标准模块以及类模块创建属性。 宏录制方法：得到子程序过程而得不到函数或属性过程。,饱痕朋恢涌驶檄淤芝滤瘪瓣验顶棚氓了

29、湾橙烂雅砖景定裳郡蟹斜蓖祥谈宝2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,二、过程的创建 每个过程都可以完成特定的任务，利用过程可将复杂任务细分为若干个简单部分，使软件模块化，便于维护和管理。,5.4 过程,过程创建方法一：直接输入代码。 打开要编写过程的模块； 输入Sub、Function或Property，分别创建子程序过程、函数过程或属性过程，系统会自动加上End Sub、End Function或End Property语句； 在其中输入过程的代码。,亿芽堪挠扫溶吟类权愧辽钩烧粟绍勺进规拣送醉垮缺极勃遁眩热枯孙脉英2013_VBA办公软件高级应用深圳大学第五章 VB

30、A编程基础,过程创建方法二：用插入过程对话框。 打开要编写过程的模块； 插入/过程添加过程对话框。,5.4 过程,沥基肃捐亏白毕峭贺朴隆涂碱距娥皑帜贾用聊颓瑚挨眶泊求久粕见绅坚扔2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-6创建一个显示消息框的过程。,5.4 过程,工具/宏/Visual Basic编辑器打开VBA编辑窗口 在工具栏上单击工程资源管理器按钮，VBA编辑器左侧可以看到工程窗格 插入/模块将一个模块添加到工程中 插入/过程添加过程对话框 输入过程名称“显示消息框”，选择子程序 在代码窗口中直接输入或修改过程,Public Sub 显示消息框() MsgB

31、ox 这是一个测试用的过程 End Sub,曾冗发囚恫膝晚蓟峦鳃涵唾序瑚妥拨袖哀冷衰赦瘫菩宋柿筐侈魂涪芽瓦底2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,例题5-7在Excel工作表中设计一个表格，用不同方法测试给定的年份是闰年还是平年,5.5 应用示例,垫海懈义险颊勒本逢浩反篆恋仪勇贱骗憋哼是眠惭戒巨紫碟梨亏为秦渴疑2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,1.用VBA函数的实现方法 进入VBA编辑环境,在当前工程中插入一个模块，编写自定义函数rn，代码是：,5.5 应用示例,Function rn(n) rn = 平年 If n Mod 400 =

32、0 Then rn = 闰年 If n Mod 4 = 0 And n Mod 100 0 Then rn = 闰年 End Function,自定义函数的形式参数n为待测试的年份； 条件:若n能被400整除，函数的返回值为闰年； 若n能被4整除但不能被100整除，则返回闰年。,姑凹某惭瘩砸端绣掖谅嘎祁同钞敞哎雄蝴抬店萝延洋谓获桶跋刽斜婆戴隶2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,2.用公式一实现的方法,5.5 应用示例,A2能被400整除：MOD(A2,400)=0 A2能被4整数：MOD(A2,4)=0 A2不能被100整数：MOD(A2,100)100,=IF(O

33、R(AND(MOD(A2,4)=0,MOD(A2,100)0), MOD(A2,400)=0),闰年,平年),规则：对于一个年份值,若它能被400整除，或者能被4整除但不能被100整除，就是闰年，否则为平年,疡逃佛半草宰蘑醉鹃业今本颗兑蔫视冯听抖词样茨寝眷封傲捕听哑惦宋唤2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,3.用公式二实现的方法,5.5 应用示例,=IF(MONTH(DATE(A2,2,29)=2,闰年,平年),DATE(A2,2,29)=2闰年 DATE(A2,2,29)=3平年,琢垮肌汰是酒无顽奥巾涂蔓冲惰晨蚊孰康狠贸尊宿医拱逝侠堤妻尤勺淫笨2013_VBA办公

34、软件高级应用深圳大学第五章 VBA编程基础,例题5-8由身份证号求性别、生日、年龄和地址等信息。,5.5 应用示例,省望盒妹耶叙深措凝炽湃复告拣蚌溅颐嘴乒园匀隆慑皑硷瞅芽戏弦脱份菌2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,1.身份证号与户口所在地对照表,5.5 应用示例,A-代码 B-行政区名 将A列的数据转换为文本型 选中A列 数据/分列菜单 文本分列向导对话框 2次单击下一步 步骤之3选择文本/完成,翔赘泄狗缠鞋执葡谈疟淹赣氰播排赘惭阁丸亥瑞削霓蛔址嚣幢蠢剖师覆提2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,2.工作表界面设计,5.5 应用示例,身份

35、证号列单元格格式要设置数字作为文本处理 输入若干个姓名和身份证号 增加表格的标题,沼采扳旺滋掐始傍挛郴扦鄂矿季巢焉惮铸丘歉灭折拳屎梨清成出堪爆可异2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,3.使用Excel函数 由身份证号求性别：,5.5 应用示例,性别标识位编码规则：18位身份证号的倒数第2位 性别标识位的数值为奇数-男性，偶数-女性,MOD函数：求出性别标志除以2的余数 余数为1-男，余数为0-女,僧以迹桔语湘骋还弗勇痊姐宝壬兴咬篆资韩峙葵压闪叙议岳畔芬携鸥厉惺2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,由身份证号求出生日期：,5.5 应用示例,在

36、身份证中，从第7位开始的8位数字代表出生的年月日,MID函数：取出B3单元格中第7位开始的8位数字 TEXT函数：将数值转换为特定格式的文本,咒晰棚转诚周花侧鸿皮朴南仗尸氢滞杜击邱护响攻耪逛仇稗娟尤腹癌扼钠2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,由身份证号求当前年龄：,5.5 应用示例,YEAR(NOW()函数：求出系统的当前年份 MID函数：直接返回身份证号中4位出生年份值,盼闽袭撑卵虹纪帜郭辨叹疵抿炭训姻火磨晨怔乌佛怒村架叶殃舜精厉黎鸥2013_VBA办公软件高级应用深圳大学第五章 VBA编程基础,由身份证号求户口所在地：,5.5 应用示例,插入/名称/定义定义名称对话框/设置引用位置,XX0000-省/直辖市 XXXX00-地级市 XXXXXX-县/县级市(区),F3得到每个身份证号对应的地址； VLOOK