admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：导轨与滑块种类)

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 = s '当前单元格的地址

'判断当前选择的单元格

If nRange < "$B$9" And nRange > "$B$2" Or nRange < "$C$9" And nRange > "$C$2" Or nRange <

"$D$9" And nRange > "$D$2" Or nRange < "$E$9" And nRange > "$E$2" Then

'弹出输入对话框

sales = InputBox("请输入当前品牌的季度销售额：", "输入", 0)

'将输入的数据赋值给当前单元格

aR1C1 = sales

Else

MsgBox "请选择表单中的区域"

End If

End Sub

（5）在Excel工作簿中，右击【按钮1】，执行【编辑文字】命令。然后在【按钮】标题中

输入“输入”文字。如图6-9所示。

右击

选择

图6-9 设置按钮标题

（6）在工作表中选择单元格D3（IBM第三季度销售额），单击【输入】按钮，弹出【输入】

对话框。在该对话框中输入“3526540”，并单击【确定】按钮。如图6-10所示。

选择

单击

输入

单击

图6-10 输入数据


本文标签： 输入 按钮 对话框 控件 选择

版权声明：本文标题：Excel VBA编程 典型实例——通过对话框输入数据 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711503237a597291.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。