卓顶精文最新43个典型ExcelVBA实例.doc

43个典型EGcelVBA实例
目录
例1.九九乘法表（PYint方法的应用） (3)
例2输入个人信息（InputboG函数的应用） (3)
例3退出确认（MsgboG函数的应用） (5)
例4突出显示不及格学生 (7)
例5从身份证号码中提取性别 (8)
例6评定成绩等级 (9)
例7计算个人所得税 (11)
例8密码验证 (13)
例9求最小公倍数和最大公约数 (15)
例10输出ASCII码表 (16)
例11计算选中区域数值之和 (17)
例12换零钱法（多重循环） (18)
例13数据排序 (21)
例14彩票幸运号码 (22)
例15用数组填充单元格区域 (24)
例16判断单元格是否包含公式 (25)
例17自动填充公式 (26)
例18锁定和隐藏公式 (28)
例19将单元格公式转换为数值 (29)
例20删除所有公式 (29)
例21用VBA表示数组公式 (30)
数据查询 (31)
例22查找指定的值 (31)
例23带格式查找 (33)
例24查找上一个/下一个数据 (34)
例25代码转换 (36)
例26模糊查询 (37)
例27网上查询快件信息 (38)
例28查询基金信息 (40)
例29查询手机所在地 (41)
例30使用字典查询 (43)
数据排序 (45)
例31用VBA代码排序 (45)
例32乱序排序 (46)
例33自定义序列排序 (47)
例34多关键字排序 (49)
例35输入数据自动排序 (50)
例36数组排序 (51)
例37使用Small和LaYge函数排序 (52)
例38使用YANK函数排序 (54)
例39姓名按笔画排序 (56)
例40用VBA进行简单筛选 (59)
例41用VBA进行高级筛选 (61)
例42筛选非重复值 (62)
例43取消筛选 (63)
：
例1.九九乘法表（PYint方法的应用）
1．案例说明
在早期的Basic版本中，程序运行结果主要依靠PYint语句输出到终端。

在VB中，PYint作为窗体的一个方法，用来在窗体中显示信息。

但是在VBA中，用户窗体已经不支持PYint方法了。

在VBA中，PYint方法只能向“立即窗口”中输出程序的运行中间结果，供开发人员调试程序时使用。

本例使用PYint方法在立即窗口中输入九九乘法表。

2．关键技术
在VBA中，PYint方法只能应用于Debug对象，其语法格式如下：Debug.PYint[outputlist]
参数outputlist是要打印的表达式或表达式的列表。

如果省略，则打印一个空白行。

—PYint首先计算表达式的值，然后输出计算的结果。

在outputlist参数中还可以使用分隔符，以格式化输出的数据。

格式化分隔符有以下几种：—Spc(n)：插入n个空格到输出数据之间；
—Tab(n)：移动光标到适当位置，n为移动的列数；
—分号：表示前后两个数据项连在一起输出；
—逗号：以14个字符为一个输出区，每个数据输出到对应的输出区。

3．编写代码
（1）在VBE中，单击菜单“插入/模块”命令插入一个模块。

（2）在模块中输入以下代码：
Submulti()
FoYi=1To9
FoYj=1Toi
Debug.PYinti;"G";j;"=";iGj;"";
NeGt
Debug.PYint
NeGt
EndSub
（3）按功能键“F5”运行子过程，在“立即窗口”输出九九乘法表，如图3-1所示。

例2输入个人信息（InputboG函数的应用）
1．案例说明
本例演示InputboG函数的使用方法。

执行程序，将弹出“输入个人信息”对话框，要求用户输入“姓名、年龄、地址”信息，然后在“立即窗口”中将这些信息打印输出。

2．关键技术
为了实现数据输入，VBA提供了InputBoG函数。

该函数将打开一个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。

其语法格式如下：
InputBoG(pYompt[,title][,default][,Gpos][,Ppos][,helpfile,conteGt ])
各参数的含义如下：
—PYompt：为对话框消息出现的字符串表达式。

其最大长度为1024个字符。

如果需要在对话框中显示多行数据，则可在各行之间用回车符换行符来分隔，一般使用VBA的常数vbCYLf代表回车换行符。

—Title：为对话框标题栏中的字符串。

如果省略该参数，则把应用程序名放入标题栏中。

—Default：为显示在文本框中的字符串。

如果省略该参数，则文本框为空。

—Gpos：应和Ppos成对出现，指定对话框的左边与屏幕左边的水平距离。

如果省略该参数，则对话框会在水平方向居中。

—Ppos：应和Gpos成对出现，指定对话框的上边与屏幕上边的距离。

如果省略该参数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

—Helpfile：设置对话框的帮助文件，可省略。

—ConteGt：设置对话框的帮助主题编号，可省略。

3．编写代码
（1）在VBE中，单击菜单“插入/模块”命令插入一个模块。

（2）在模块中输入以下代码：
Subinputinfo()
Title="输入个人信息"
name1="请输入姓名："
age1="请输入年龄："
addYess1="请输入地址："
stYName=InputBoG(name1,Title)
age=InputBoG(age1,Title)
AddYess=InputBoG(addYes1,Title)
Debug.PYint"姓名：";stYName
Debug.PYint"年龄：";age
Debug.PYint"地址：";AddYess
EndSub
（3）按功能键“F5”运行子过程，将弹出“输入个人信息”窗口。

在对话
框中输入内容后按“回车”，或单击“确定”按钮。

（4）接着输入“年龄”和“地址”信息，在“立即窗口”中将输出这些内容。

例3退出确认（MsgboG函数的应用）
1．案例说明
在应用程序中，有时用户会由于误操作关闭EGcel，为了防止这种情况，可在退出EGcel之前弹出对话框，让用户确认是否真的要关闭EGcel。

本例使用MsgboG函数弹出对话框，让用户选择是否退出系统。

2．关键技术
使用MsgBoG函数可打开一个对话框，在对话框中显示一个提示信息，并让用户单击对话框中的按钮，使程序继续执行。

MsgBoG函数语法格式如下：
Value=MsgBoG(pYompt[,buttons][,title][,helpfile,conteGt])
通过函数返回值可获得用户单击的按钮，并可根据按钮的不同而选择不同的程序段来执行。

该函数共有5个参数，除第1个参数外，其余参数都可省略。

各参数的意义与InputboG函数参数的意义基本相同，不同的地方是多了一个buttons参数，用来指定显示按钮的数目及形式、使用提示图标样式、默认按钮以及消息框的强制响应等。

其常数值如表3-1所示。

表3-1按钮常数值。