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 < "$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)
        '将输入的数据赋值给当前单元格
        ActiveCell.FormulaR1C1 = sales
    Else
        MsgBox "请选择表单中的区域"
    End If
End Sub
（5）在Excel工作簿中，右击【按钮1】，执行【编辑文字】命令。然后在【按钮】标题中输入“输入”文字。如图6-9所示。
vba做excel窗体录入教程图6-9  设置按钮标题
（6）在工作表中选择单元格D3（IBM第三季度销售额），单击【输入】按钮，弹出【输入】对话框。在该对话框中输入“3526540”，并单击【确定】按钮。如图6-10所示。
图6-10  输入数据

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。