Excel VBA编程 典型实例

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所示。