Excel VBA编程  典型实例——输入成绩大于90的记录
本例设计程序的构思是当输入了符合条件的数据时，则数据被记录在工作表中；反之，将出现提示信息，提示该输入有误。下面通过在VBE窗口中，插入一个模块，并在该模块中输入一段代码，从而制作记录一个成绩大于90的效果。

1．练习要点
● 插入模块
● 算术运算符的应用
● 保存宏工作簿
2．操作步骤：
（1）打开“学生成绩表”工作簿，并选择【开发工具】选项卡，单击【代码】组中的Visual Basic按钮，如图4-22所示。
图4-22  单击Visual Basic按钮
（2）在VBA窗口中，右击【工程管理器】窗口的空白处，执行【插入】|【模块】命令，即可插入一个模块，如图4-23所示。
图4-23  插入模块
（3）在【代码】编辑窗口中，输入如图4-24所示的代码。
图4-24  输入代码
其中，输入的代码如下：
Sub 输入成绩()
'显示提示信息框
c = InputBox(" 输入成绩大于90的记录", "成绩", "请输入成绩")
'假设常量c大于90
If c > 90 Then
'工作表1中的D4单元格的值等于c
Worksheets("sheet1").Range("D4") = c
Else
' 弹出"错误"提示框
MsgBox "错误"
End If
End Sub
提  示
在【代码】编辑窗口中，InputBox函数来显示用户输入数据的不同用法。其格式为：MyValue = InputBox(Message, Title, Default)。其中，Message为提示框的提示信息文字；Title为提示框的标题文字；Default为一个缺省值，在提示框的文本框内出现。
（4）单击【标准】工具栏中的【运行子过程/用户窗体】按钮，即可弹出【宏】对话框。然后，在【宏名称】文本框中的列表中，选择要运行的宏名，如图4-25所示。
图4-25  选择宏名
（5）单击【宏】对话框中的【运行】按钮，则可以弹出如图4-26所示的提示对话框。
图4-26  提示对话框
（6）在【成绩】对话框中的文本框内输入成绩，若输入一个小于90的成绩（如输入85），按【确定】键后，即可弹出如图4-27所示的提示信息框。
图4-27  提示信息框
提  示
从上面的操作中，用户可以观察到在D4单元格中，无法输入小于90的数据，否则将出现提示出错。而在图4-27所示的表格中的成绩78是原来工作簿中的。
（7）进入VBE窗口，再次运行该程序，并在弹出的【成绩】对话框中，输入一个大于90的成绩，如输入98，则可更改D4单元格中的数据，效果如图4-28所示。
图4-28  输入成绩
31省新增24例输入
（8）单击Office按钮，执行【另存为】|【启用宏的Excel工作簿】命令。然后，在弹出的【另存为】对话框中，选择保存位置，并单击【保存】按钮，如图4-29所示。

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