内容发布更新时间 : 2025/5/8 9:49:52星期一 下面是文章的全部内容请认真阅读。

Excel VBA编程 典型实例——通过对话框输入数据

在VBA中，向运行的程序中输入即时数据，可通过InputBox函数，弹出一个输入对话框输入。本例通过按钮绑定一个宏，弹出一个输入对话框，让用户通过该对话框输入数据。

（1）在A1至E8单元格区域中，输入相应的字段信息，并设置单元格的格式，如图6-5所示。

创建表格

图6-5 创建表格

（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择【按钮】控件。然后，在工作表中，绘制该控件，如图6-6所示。

绘制 选择

图6-6 绘制控件

（3）控件绘制完成后，弹出【指定宏】对话框，在该对话框【宏名】文本框中输入setRange文字，并单击【新建】按钮。如图6-7所示。

输入 单击

图6-7 输入宏名

（4）在弹出的Visual Basic 编辑器，在【模块1】的【代码】编辑窗口的过程setRange中，输入代码，如图6-8所示。

输入代码

图6-8 输入代码 代码如下： Sub setRange()

'在弹出的文本框中输入值

nRange = ActiveCell.Address '当前单元格的地址

'判断当前选择的单元格

If nRange < \\ '弹出输入对话框

sales = InputBox(\请输入当前品牌的季度销售额：\输入\ '将输入的数据赋值给当前单元格 ActiveCell.FormulaR1C1 = sales Else

MsgBox \请选择表单中的区域\ End If End Sub

（5）在Excel工作簿中，右击【按钮1】，执行【编辑文字】命令。然后在【按钮】标题中输入“输入”文字。如图6-9所示。

右击 选择

图6-9 设置按钮标题

（6）在工作表中选择单元格D3（IBM第三季度销售额），单击【输入】按钮，弹出【输入】对话框。在该对话框中输入“3526540”，并单击【确定】按钮。如图6-10所示。

选择 单击 输入 单击

图6-10 输入数据