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

科技资讯

2009  NO.03

SCIENCE & TECHNOLOGY INFORMATION

信 息 技 术

基于Exc

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

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

l用户窗体的VBA信息录入界面设计

宋道斌

(合肥威师智能电子电器厂  安徽合肥  230031)

摘 要:基于Microsoft Office Excel应用软件,利用Excel开放的Visual Basic编辑器,以VB语言为基础,针对Excel用户进行数据录入时容易出现的问题,给出了Excel数据录入界面以及标准化录入数据的设计方法和程序。关键词:Excel开发应用  VBA编程  数据录入

中图分类号:TP399            文献标识码:A            文章编号:1672-3791(2009)01(c)-0018-01

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

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

笔者通过长期的电子企业质量数据统计管理工作和多年的ER

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

P使用经验发现,导致数据统计结果错误的原因,一是由表单数据录入的源头错误所致,诸如数字“0”和字母“O”,数字“1”和字母“l”,数字“2”和字母“z”等等,容易混淆,导致统计分析错误;二是数据录入时的拖泥带水,例如在录入信息时,字间或字后带入的空格,造成录入数据的不唯一所致。

1 基本设计

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

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

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

2 编程

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

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

Private Sub CommandButton1_Click()

Dim line As Integerline = 0

Worksheets("Sheet1").SelectRange("a2").Select

For i = 1 To 65534 Step 1

If ActiveCell.Value = Empty ThenExit ForElse

Range("a2").Offset(i, 0).Selectline = line + 1End IfNext i

Range("a2").Offset(line, 0).Value =UserForm1.TextBox1.Text

Range("a2").Offset(line, 1).Value =UserForm1.ComboBox1.Text

Range("a2").Offset(line, 2).Value =UserForm1. ComboBox2.Text

Range("a2").Offset(line, 3).Value =UserForm1. ComboBox3.Text

Range("a2").Offset(line, 4).Value =UserForm1. ComboBox4.Text

表1

Range("a2").Offset(line, 5).Value =UserForm1.TextBox2.Text

Range("a2").Offset(line, 6).Value =UserForm1.TextBox3.Text

Range("a2").Offset(line, 7).Value =UserForm1.TextBox4.Text

Range("a2").Offset(line, 8).Value =UserForm1.TextBox5.Text

End Sub

改变Range语句中的line号,可以改变相应控件中数据记录到的单元格地址。

例如要将TextBox2(本文对应“检验日期”)中的内容记录在A列,应输入:

Range("a2").Offset(line, 0).Value =UserForm1.TextBox2.Text

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

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

Private Sub CommandButton2_Click()UserForm1.HideEnd Sub

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

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

Private Sub Worksheet_Activate()UserForm1.ShowEnd Sub

3 标准化数据

在Visual Basic编辑器用户窗体设计界面上分别点击“器材名称”(ComboBox1)、“型号规格”(ComboBox2)、“供应单位”(ComboBox3)、“适用产品”(ComboBox4)控件,使用ComboBox属性的RowSource选项,设置相应的标准化数据选择范围(本文以Sheet2作为标准化数据的存放工作表)见表2所示。

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

图1

4 应注意的问题

表2

Excel软件宏的安全设置须在“中”的状态。

参考资料

[1]Microsoft Visual Basic6.0循序渐进教程

专业版[M].

18科技资讯 SCIENCE & TECHNOLOGY INFORMATION

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

最新文档

返回顶部