资源描述
Excel VBA 编程 典型实例输入成绩大于 90的记 录 本例设计程序的构思是当输入了符合条件的数据时,则数据被记录在工作表中;反 之,将出现提示信息,提示该输入有误。下面通过在 VBE 窗口中,插入一个模块, 并在该模块中输入一段代码,从而制作记录一个成绩大于90 的效果。1练习要点 插入模块 算术运算符的应用 保存宏工作簿2操作步骤:(1)打开“学生成绩表”工作簿,并选择【开发工具】选项卡,单击【代码】组中的isual Basic按钮,如图4-22所示。BQDE- 亠2D0E10OTiiEi皿30051.010DElOll200LL01220051013 051014300E1015w 話u.l:l? aaoELut75学主底鎮表.?()! .11. J200 : I ;:.;*: :;-任汕2T9:E-图 4-22 单击 Visual Basic 按钮(2)在 VBA 窗口中,右击【工程管理器】窗口的空白处,执行【插入】|【模块】命令 即可插入一个模块,如图4-23 所示。图 4-23 插入模块(3)在【代码】编辑窗口中,输入如图4-24 所示的代码。图 4-24 输入代码其中,输入的代码如下:Sub输入成绩()显示提示信息框c = lnputBox(输入成绩大于90的记录,成绩,请输入成绩)假设常量c大于90If c 90 Then工作表1中的D4单元格的值等于cWorksheets(sheet1).Range(D4) = cElse弹出错误提示框MsgBox 错误End IfEnd Sub在【代码】编辑窗口中,InputBox函数来显示用户输入数据的不同用法。其格式 为:MyValue = InputBox(Message, Title, Default)其中,Message 为提示框的提示 信息文字;Title为提示框的标题文字;Default为一个缺省值,在提示框的文本框 内出现。图 4-25 选择宏名(5)单击【宏】对话框中的【运行】按钮,则可以弹出如图4-26所示的提示对话框。BCDEF-:学生斛表37-;4aaodGOLB+51. :;92A+20 吒Q03T9.B+.13005100630051006看此则衣于泅況拳| 11对话框L2血灿曲15 i- H Stuwtl,图 4-26 提示对话框(6)在【成绩】对话框中的文本框内输入成绩,若输入一个小于90 的成绩(如输入85) 按【确定】键后,即可弹出如图4-27所示的提示信息框。DEF|宇生図黄表3社逹、Q2QQS1QQ1十.nb+5SMElCiOEwas乾1包十52D0E10D3:心;72(3510114曽云JL ll. t USwl C XK-I:!A,L3005100- 5920051006It-SDOEIOOT1i - Z11,匸1220051007厂/覽132Cij51iiO11摸壬屈1裡:14 4Er.z -2 ha- 7图 4-27 提示信息框从上面的操作中,用户可以观察到在D4单元格中,无法输入小于90的数据,否 则将出现提示出错。而在图4-27所示的表格中的成绩78是原来工作簿中的。7)进入 VBE 窗口,再次运行该程序,并在弹出的【成绩】对话框中,输入一个大于 90的成绩,如输入98,则可更改D4单元格中的数据,效果如图4-28所示。10111F亠学生审饋表显示: -32+乂 114J1.由质出干妙1121*,:!输入LJ抽孚号051(101 2O05L0CI2SOOELOQS !K051.064.MOE-lOffi MOE-LOCe 3加風|的 29051.006. 20051009图 4-28 输入成绩(8)单击 Office 按钮,执行【另存为】|【启用宏的 Excel 工作簿】命令。然后,在弹出的 【另存为】对话框中,选择保存位置,并单击【保存】按钮,如图4-29所示。
展开阅读全文