ExcelVBA编程典型实例-通过对话框输入数据

ExcelVBA编程典型实例通过对话框输入数据在VBA中，向运行的程序中输入即时数据，可通过InputBox函数，弹出一个输入对话框输入。本例通过按钮绑定一个宏，弹出一个输入对话框，让用户通过该对话框输入数据。(1)在A1至E8单元格区域中，输入相应的字段信息，并设置单元格的格式，如图6-5所示。1BCDI108年用乘电的钻售顾聿28bfS第一里度第二。度舞三孽CE至四季泛3[BU2&325301756300*联w3D0ED0Disozsan599（HP）2TyiM0i屿3附B等黑SC5tUij7454407神开【卸)但。424300_AE华/】《口9口二内］皿标&_p/、9一“rII11创建表格图6-5创建表格(2)选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择【按钮】控件。然后，在工作表中，绘制该控件，如图6-6所示。拈定塞加打足Fn-HdtElCi.由支仲！1跑等加«3flYi=*位tftttlCLiKSUU防辿IMiZi0背。*二=照他好E拈定塞加打足Fn-HdtElCi.由支仲！1跑等加«3flYi=*位tftttlCLiKSUU防辿IMiZi0背。*二=照他好E'"ili■:r^aiElOjEUr^QT匕山.E£j1J我TM帼4串,II34itwkCVFlithit®-11。理莪生甲限巴方4IE ■--f皿上犀5”>ffeli'kL：Rk注出文.・加Wfl.一.一…一HAJIEidShtSdt-Ea£ElTii>fl.砌出位手愤中缸情■Adtivj2*llLddzal4«口看的f的■元将art■f卜"t虻掰jrm油•心2号“~」归fillert）ii»TtTiflitalDaaia- -[fJU.图6-6绘制控件(3)控件绘制完成后，弹出【指定宏】对话框，在该对话框【宏名】文本框中输入setRange文字，并单击【新建】按钮。如图6-7所示。团区饶西I崛II-I图6-7输入宏名(4)在弹出的VisualBasic编辑器，在【模块1】的【代码】编辑窗口的过程setRange中，输入代码，如图6-8所示。图6-8输入代码代码如下：SubsetRange()’在弹出的文本框中输入值nRange=ActiveCell.Address '当前单元格的地址

判断当前选择的单元格IfnRange<"$B$9"AndnRange>"$B$2"OrnRange<"$C$9"AndnRange>"$C$2"OrnRange<"$D$9"AndnRange>"$D$2"OrnRange<"$E$9"AndnRange>"$E$2"Then‘弹出输入对话框sales=InputBox（”请输入当前品牌的季度销售额："，"输入",0）’将输入的数据赋值给当前单元格ActiveCell.FormulaR1C1=sales日seMsgBox”请选择表单中的区域”EndIfEndSub选择5cMlJi?LM'Kl。口上6日方0口曲岫讪口选择5cMlJi?LM'Kl。口上6日方0口曲岫讪口（5）在Excel工作簿中，右击【按钮1】，执行【编辑文字】命令。然后在【按钮】标题中输入“输入”文字。如图6-9所示。图6-9设置按钮标题OB年明珠电用糖售皆表相一至GE品曰«**mifawtl5h«t.'5hiM+5J3IBB45H।HF）71舟第二字陛17曲3箕图第二字陛17曲3箕图6-10输入数据（6）在工作表中选择单元格D3（IBM第三季度销售额）