基于Excel用户窗体的VBA信息录入界面设计

2022-09-10

作为微软Office的重要组件Excel, 它的基本功能是对数据进行记录、计算和统计分析。把数据录入到Excel工作表中, 是在实际的行业运用中, 教师、办公文秘人员、政府审计部门、企业管理部门在统计工作中或多或少都会用到的。

数据录入的目的在于统计分析, 也是应用软件统计分析结果正确的基础, 我们不能希望功能强大的E x c e l或是E R P软件能把错误录入的信息分析正确, 因此, 表单数据录入的正确与否, 在统计工作中是至关重要的。

笔者通过长期的电子企业质量数据统计管理工作和多年的E R P使用经验发现, 导致数据统计结果错误的原因, 一是由表单数据录入的源头错误所致, 诸如数字“0”和字母“O”, 数字“1”和字母“l”, 数字“2”和字母“z”等等, 容易混淆, 导致统计分析错误;二是数据录入时的拖泥带水, 例如在录入信息时, 字间或字后带入的空格, 造成录入数据的不唯一所致。

1 基本设计

为描述方便, 本文使用图1所示的表单内容进行描述, 用户设计时可依据自己业务情况的表单内容设计适合自己的录入界面。

打开Excel, 在Sheet1工作表第一行的A1单元格至I1单元格依次录入见表1表头内容:

打开Visual Basic编辑器, 插入用户窗体UserForm1, 用Excel自带的标签、文字框、选择 (复合) 框以及命令控件, 设计好图一所示的用户录入界面。

2 编程

2.1“确定”按钮 (CommandButton1) 的Click事件程序

双击“确定”按钮, 在弹出的对话框中输入下列程序:

2.2“关闭”按钮 (CommandButton2) 的Click事件程序

双击“关闭”按钮, 在弹出的对话框中输入下列程序:

End Sub

2.3 选择Sheet1工作表时, 自动弹出用户视窗

在工程资源管理器中双击S h e e t 1对象, 弹出代码窗口, 输入以下Sheet1工作表对象的Activate事件程序:

End Sub

3 标准化数据

在Visual Basic编辑器用户窗体设计界面上分别点击“器材名称” (C o m b o B o x 1) 、“型号规格” (C o m b o B o x 2) 、“供应单位” (ComboBox3) 、“适用产品” (ComboBox4) 控件, 使用C o m b o B o x属性的R o w S o u r c e选项, 设置相应的标准化数据选择范围 (本文以S h e e t 2作为标准化数据的存放工作表) 见表2所示。

返回Excel工作簿界面, 将自己常用的信息录入在S h e e t 2工作表中的A、B、C、D列, 以供录入时选择使用。当用户打开S h e e t 1工作表时, 就会弹出图一所示的信息录入界面。