43个典型ExcelVBA实例

43

个典型

ExcelVBA

实例

目录

：

例 1.九九乘法表（Print 方法的应用）

1

． 案例说明

在早期的

本例使用

方法在立即窗口中输入九九乘法表。

2

． 关键技术

在

VBA

Debug.Print [outputlist]

参数

是要打印的表达式或表达式的列表。如果省略，则打印一个空白行。

— Print

outputlist

—

分号：表示前后两个数据项连在一起输出；

—

逗号：以

14

个字符为一个输出区，每个数据输出到对应的输出区。

3

．编写代码

（

1

）在

（

2

）在模块中输入以下代码：

 Next

End Sub

（

3

）按功能键“

”

3-1

所示。

例 2 输入个人信息（Inputbox 函数的应用）

1

．案例说明

本例演示

函数的使用方法。执行程序，将弹出“输入个人信息”对话框，要求

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

各参数的含义如下：

— Prompt

1024

个字符。如果需

要在对话框中显示多行数据，则可在各行之间用回车符换行符来分隔，一般使用

VBA

的常

数

vbCrLf

— Title

栏中。

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

— Helpfile

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

— Context

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

3

．编写代码

（

1

）在

请输入姓名：

 age1 = "

请输入年龄：

"

 address1 = "

请输入地址：

"

 strName = InputBox(name1, Title)

 age = InputBox(age1, Title)

 Address = InputBox(addres1, Title)

 Debug.Print "

姓名：

 Debug.Print "

”

按“回车”，或单击“确定”按钮。

（

4

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

例 3 退出确认（Msgbox 函数的应用）

Excel

之前弹出对话框，让用户确认是否真的要关闭

Excel

本例使用

2

Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context])

5

钮的数目及形式、使用提示图标样式、默认按钮以及消息框的强制响应等。其常数值如表

3-1

所示。

表

3-1

按钮常数值

常

量 值 说

明

vbOkOnly 0

只显示“确定”（

Ok

vbOkCancel 1

显示“确定”（

Ok

）及“取消”（

Cancel

vbAbortRetryI

续表

常

量 值 说

明

vbYesNo 4

显示“是”（

Yes

vbRetryCancel 5

显示“重试”（

vbCritical 1

Critical Message



Private Sub Workbook_BeforeClose(Cancel As Boolean)

3-9

If…Then

If

语句

该语句的功能为：若逻辑表达式的值是

True

，则执行