《最新43个典型ExcelVBA实例资料》由会员分享，可在线阅读，更多相关《最新43个典型ExcelVBA实例资料（54页珍藏版）》请在金锄头文库上搜索。
1、43 个典型 ExcelVBA 实例目录例 1. 九九乘法表（ Print 方法的应用） 3例 2 输入个人信息（ Inputbox 函数的应用） 3例 3 退出确认（ Msgbox 函数的应用） 5例 4 突出显示不及格学生 7例 5 从身份证号码中提取性别 8例 6 评定成绩等级 10例 7 计算个人所得税 11例 8 密码验证 13例 9 求最小公倍数和最大公约数 15例 10 输出 ASCII 码表 16例 11 计算选中区域数值之和 17例 12 换零钱法（多重循环） 18例 13 数据排序 21例 14 彩票幸运号码 23例 15 用数组填充单元格区域 24例 16 判断单元格是否
2、包含公式 26例 17 自动填充公式 26例 18 锁定和隐藏公式 28例 19 将单元格公式转换为数值 29例 20 删除所有公式 30例 21 用 VBA 表示数组公式 31数据查询 31例 22 查找指定的值 31例 23 带格式查找 34例 24 查找上一个 / 下一个数据 34例 25 代码转换 36例 26 模糊查询 37例 27 网上查询快件信息 39例 28 查询基金信息 41例 29 查询手机所在地 42例 30 使用字典查询 43数据排序 45例 31 用 VBA 代码排序 45例 32 乱序排序 47例 33 自定义序列排序 48例 34 多关键字排序 49例 35 输入
3、数据自动排序 50例 36 数组排序 51例 37 使用 Small 和 Large 函数排序 53例 38 使用 RANK 函数排序 55例 39 姓名按笔画排序 56例 40 用 VBA 进行简单筛选 59例 41 用 VBA 进行高级筛选 61例 42 筛选非重复值 63例 43 取消筛选 64例 1. 九九乘法表（ Print 方法的应用）1 案例说明在早期的Basic版本中，程序运行结果主要依靠 Print语句输出到终端。在VB中，Print 作为窗体的一个方法，用来在窗体中显示信息。但是在 VBA 中，用户窗体已经不支持 Print 方法了。在 VBA 中， Print 方法只能向
4、“立即窗口”中输出程序的运行中间结果，供开发人 员调试程序时使用。本例使用 Print 方法在立即窗口中输入九九乘法表。2 关键技术在 VBA 中， Print 方法只能应用于 Debug 对象，其语法格式如下：Debug.Print outputlist参数 outputlist 是要打印的表达式或表达式的列表。如果省略，则打印一个空白行。 Print 首先计算表达式的值，然后输出计算的结果。在 outputlist 参数中还可以使用 分隔符，以格式化输出的数据。格式化分隔符有以下几种： Spc（n）:插入n个空格到输出数据之间；Tab（n）:移动光标到适当位置， n为移动的列数； 分号:表
5、示前后两个数据项连在一起输出； 逗号:以 14 个字符为一个输出区，每个数据输出到对应的输出区。3编写代码（1）在 VBE 中，单击菜单“插入 /模块”命令插入一个模块。（2）在模块中输入以下代码:Sub multi（）For i = 1 To 9For j = 1 To iDebug.Print i; x; j; =; i * j; ;NextDebug.PrintNextEnd Sub（3）按功能键“ F5”运行子过程，在“立即窗口”输出九九乘法表，如图3-1所示。例 2 输入个人信息（ Inputbox 函数的应用）1 案例说明本例演示 Inputbox 函数的使用方法。执行程序，将弹出
6、“输入个人信息”对话框，要 求用户输入“姓名、年龄、地址”信息，然后在“立即窗口”中将这些信息打印输出。2关键技术为了实现数据输入， VBA 提供了 InputBox 函数。该函数将打开一个对话框作为输入数 据的界面，等待用户输入数据，并返回所输入的内容。其语法格式如下：InputBox(prompt, title , default , xpos , ypos , helpfile, context) 各参数的含义如下： Prompt ：为对话框消息出现的字符串表达式。其最大长度为 1024 个字符。如果需 要在对话框中显示多行数据，则可在各行之间用回车符换行符来分隔，一般使用 VBA 的常
7、 数 vbCrLf 代表回车换行符。 Title ：为对话框标题栏中的字符串。如果省略该参数，则把应用程序名放入标题 栏中。 Default ：为显示在文本框中的字符串。如果省略该参数，则文本框为空。 Xpos ：应和 Ypos 成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 该参数，则对话框会在水平方向居中。 Ypos ：应和 Xpos 成对出现，指定对话框的上边与屏幕上边的距离。如果省略该参 数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。 Helpfile ：设置对话框的帮助文件，可省略。 Context ：设置对话框的帮助主题编号，可省略。3编写代码( 1)在 VB
8、E 中，单击菜单“插入 /模块”命令插入一个模块。( 2)在模块中输入以下代码：Sub inputinfo()Title = 输入个人信息 name1 = 请输入姓名： age1 = 请输入年龄： address1 = 请输入地址： strName = InputBox(name1, Title) age = InputBox(age1, Title) Address = InputBox(addres1, Title) Debug.Print 姓名： ; strName Debug.Print 年龄： ; age Debug.Print 地址： ; AddressEnd Sub(3)按功能键
9、“ F5”运行子过程，将弹出“输入个人信息”窗口。在对话框中输入内 容后按“回车” ，或单击“确定”按钮。(4) 接着输入“年龄”和“地址”信息，在“立即窗口”中将输出这些内容。例3退出确认(Msgbox函数的应用)1. 案例说明在应用程序中，有时用户会由于误操作关闭Excel，为了防止这种情况，可在退出Excel之前弹出对话框，让用户确认是否真的要关闭Excel。本例使用Msgbox函数弹出对话框，让用户选择是否退出系统。2. 关键技术使用MsgBox函数可打开一个对话框，在对话框中显示一个提示信息，并让用户单击对话框中的按钮，使程序继续执行。MsgBox函数语法格式如下：Value=Msg
10、Box(prompt,butto ns,title ,helpfile,co ntext)通过函数返回值可获得用户单击的按钮，并可根据按钮的不同而选择不同的程序段来执行。该函数共有5个参数，除第1个参数外，其余参数都可省略。各参数的意义与Inputbox函数参数的意义基本相同，不同的地方是多了一个butto ns参数，用来指定显示按钮的数目及形式、使用提示图标样式、默认按钮以及消息框的强制响应等。其常数值如表3-1所示。表3-1按钮常数值常量值说明vbOk On ly0只显示 确定” (Ok)按钮vbOkCancel1显示 确定” (Ok )及 取消”(Cancel)按钮vbAbortRetr
11、yIgnore2显示 异常终止” Abort )、重试气Retry )及 忽略(lgnore)按钮vbYesNoCa nc el3显示是” (Yes)、否” (No)及取消” (Cancel)按钮续表常量值说明vbYesNo4显示是” (Yes)及否” (No)按钮vbRetryCa ncel5显示 重试” (Retry )及 取消” (Cancel)按钮vbCritical61显示Critical Message图标呈vbQuesti on23显示Warning Query图标卑vbExclamati on84显示 Warning Message 图标 GtvbI nformatio n46
12、显示 Information Message 图标民vbDefaultButto0以第一个按钮为默认按钮n1vbDefaultButto2P 以第二个按钮为默认按钮n256vbDefaultButto5以第三个按钮为默认按钮n312vbDefaultButto7以第四个按钮为默认按钮n468vbApplicati on0进入该消息框，当前应用程序暂停ModalvbSystemModa4进入该消息框，所有应用程序暂停l096表3-1中的数值(或常数)可分为四组，其作用分别为： 第一组值(05)用来决定对话框中按钮的类型与数量。 第二组值(16, 32, 48 , 64)用来决定对话框中显示的图标
13、。 第三组值(0, 256, 512)设置对话框的默认活动按钮。活动按钮中文字的周转有 虚线，按回车键可执行该按钮的单击事件代码。 第四组值(0, 4096)决定消息框的强制响应性。buttons参数可由上面4组数值组成，其组成原则是：从每一类中选择一个值，把这几 个值累加在一起就是 buttons参数的值(大部分时间里都只使用前三组数值的组合)，不同的组合可得到不同的结果。3 编写代码(1) 在VBE中，双击“工程”子窗口中的“ ThisWorkbook ”打开代码窗口，如图3-4 所示。(2) 在代码窗口左上方的对象列表中选择“Workbook”，如图3-5所示。(3) 在代码窗口右上方的
14、事件列表中选择“BeforeClose”，如图3-6所示。代码窗口中 将自动生成事件过程结构如下：Private Sub Workbook_BeforeClose(Ca ncel As Boolea n)End Sub(4)在上面生成的事件过程中输入以下代码：Private Sub Workbook_BeforeClose(Ca ncel As Boolea n)Dim in tReturn As In teger精品文档intReturn = MsgBox（ 真的退出系统吗？ , vbYesNo + vbQuestion, 提示 ）If intReturn vbYes Then Cancel = TrueEnd Sub（ 5）保存 Excel 工作簿。（ 6）关闭 Excel 工作簿。分支结构， 又叫选择结构。 这种结构的程序将根据给定的条件来决定执行哪一部分代码 ，而跳过其他代码。例 4 突出显示不及格学生1案例说明本例判断学生成绩表中的成绩， 如
