43个典型EcelVBA实例资料.docx

精品文档 精品文档 精品文档 精品文档 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 彩票幸运号码 22 例 15 用数组填充单元格区域 24 例 16 判断单元格是否包含公式 26 例 17 自动填充公式 26 例 18 锁定和隐藏公式 28 例 19 将单元格公式转换为数值 29 例 20 删除所有公式 29 例 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 输入数据自动排序 50 例 36 数组排序 51 例 37 使用 Small 和 Large 函数排序 53 例 38 使用 RANK 函数排序 55 例 39 姓名按笔画排序 56 例 40 用 VBA 进行简单筛选 59 例 41 用 VBA 进行高级筛选 61 例 42 筛选非重复值 63 例 43 取消筛选 64 ： 例 1.九九乘法表（Print 方法的应用） 案例说明 在早期的 Basic 版本中，程序运行结果主要依靠 Print 语句输出到终端。在 VB 中，Print 作为窗体的一个方法，用来在窗体中显示信息。但是在VBA 中，用户窗体已经不支持Print 方法了。在VBA 中，Print 方法只能向“立即窗口”中输出程序的运行中间结果，供开发人员调试程序时使用。 本例使用 Print 方法在立即窗口中输入九九乘法表。 关键技术 在 VBA 中，Print 方法只能应用于 Debug 对象，其语法格式如下： Debug.Print [outputlist] 参数 outputlist 是要打印的表达式或表达式的列表。如果省略，则打印一个空白行。 Print 首先计算表达式的值，然后输出计算的结果。在outputlist 参数中还可以使用分隔符，以格式化输出的数据。格式化分隔符有以下几种： Spc(n)：插入 n 个空格到输出数据之间； Tab(n)：移动光标到适当位置，n 为移动的列数； 分号：表示前后两个数据项连在一起输出； 逗号：以 14 个字符为一个输出区，每个数据输出到对应的输出区。3．编写代码 在 VBE 中，单击菜单“插入/模块”命令插入一个模块。 在模块中输入以下代码： Sub multi() For i = 1 To 9 For j = 1 To i Debug.Print i; x; j; =; i * j; ; Next Debug.Print Next End Sub 按功能键“F5”运行子过程，在“立即窗口”输出九九乘法表，如图3-1 所示。 例 2 输入个人信息（Inputbox 函数的应用） 案例说明 本例演示 Inputbox 函数的使用方法。执行程序，将弹出“输入个人信息”对话框，要求用户输入“姓名、年龄、地址”信息，然后在“立即窗口”中将这些信息打印输出。 关键技术 为了实现数据输入，VBA 提供了 InputBox 函数。该函数将打开一个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其语法格式如下： InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 各参数的含义如下： Prompt：为对话框消息出现的字符串表达式。其最大长度为1024 个字符。如果需要在对话框中显示多行数据，则可在各行之间用回车符换行符来分隔，一般使用VBA 的常数 vbCrLf 代表回车换行符。 Title：为对话框标题栏中的字符串。如果省略该参数，则把应用程序名放入标题栏中。 Default：为显示在文本框中的字符