- 1、本文档共71页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
精品文档
精品文档
精品文档
精品文档
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:为显示在文本框中的字符
您可能关注的文档
最近下载
- 教育、科技、人才一体化与新质生产力发展.pptx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(研优卷).docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 《大棚番茄基质槽式栽培技术规程》.docx
- 立体车库 毕业论文外文翻译.docx VIP
- 教育、科技、人才一体推进新质生产力发展.docx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(考试直接用).docx VIP
- 社交礼仪教程(第7版 微课版)课件 第五章 餐饮礼仪.pptx
- 2025清华:DeepSeek从入门到精通.pdf
文档评论(0)