本站原创本论文为关于经济管理小论文格式,关于Excel中快速录入数据相关专升本毕业论文开题报告，可用于经济管理论文写作研究的大学硕士与本科毕业论文开题报告范文和优秀学术职称论文参考文献资料下载。免费教你怎么写经济管理及如何修改及计算机系方面论文范文。
【摘 要】在EXCEL中如何修改VBA代码,来达到快速录入数据的目的.
【关 键 词 】数据录入；代码；单元格；change事件
每一个学期初和学期末,都有许多数据需要采集和上报,这此数据在录入过程中不仅耗费了大量的时间,还很容易出错,如图1所示的学生情况信息表,在通常情况下,我们会逐条录入这些数据的,也有的同志会通过自定义单元格格式等技巧来提高自己的录入效率,但我想看过本人为您介绍的录入技巧后,您一定会大有收获.
图1 学生情况信息表
一、案例分析
不难发现在“编号”字段中（第一列）,每位学生的编号前四位是相同的,即“2012”,所不同的是后面的班级和学号不同,如果我们在输入过程中前四位可以自动添加进去,那就方便多了.
对于学生姓名没有规律性,所以“姓名”列（第二列）中内容只能是一个一个录入了,没有办法“偷懒”.
在出生年月一列（第三列）中,如果我们只输入数字,就能显示年月日那样就会省事多了,如我输入“19941008”,按回车键后,系统就显是“1994年10月8日”.
在性别列（第四列）中,只有“男”或“女”的填充可能,如果我们能够按数字键1就显示“男”,按数字键2就显示“女”,那不是“太美”了嘛.
在“毕业学校”一列中（第五列）中,因为我们的学生来源只有五所中学,所以如果能做成下拉列表形式,我们只要在里面选择一下就可以了.
至于最后列“政治面貌”列,只有两种可能,即团员和非团员.所以做成性别列,类似就可以了.
二、实现方法
通过对上述分析,我们不难发现,数据中的1、3、4、6列中的数据都要是用户输入后由系统自动进行转换的,我们可以通过表对象中的Change事件编程来实现.数据的第5列是通过选中某个单元格对象再进行选择操作的,只需对工作表的SelectionChange来编写代码,操作步骤如下：按Alt+F11组合键打开VBA编辑器,双击窗口左侧的Sheet1对象,在其右侧的代码窗口中对工作表对象的Change事件和SelectionChange事件分别编写VBA代码.
Private Sub Worksheet_Change（ByVal
Target As Range）
On Error GoTo Error
‘设置陷阱
Select Case Target.Column
Case 1
Target.NumberFormatLocal等于"""2012"
"0000"
‘第一列自动套用格式在单元格数字前加2012
Case 3
Target.NumberFormatLocal等于”0000””
年””00””月””00””日”””
‘第3列将输入的8位数更改为年月日格式
Case 4
If Target.Value等于1 Then
Target.Value等于”男”
Else
If Target.Value等于2 Then
Target.Value等于”女”
End If
End If
‘第4列输入1即显示为男,输入2显示为女
Case 6
If Target.Value等于3 Then
Target.Value等于”团员”
Else
If Target.Value等于4 Then
Target.Value等于”非团员”
End If
End If
‘第6列输入3即显示为团员,输入4显示为非团员
End Select
‘出现错误时退出程序
Error：
Exit Sub
End Sub
在Change事件中,主要是通过Select case/end select分支结构判断用户在哪一列中输入数据,在EXCEL中的A列为1,B列为2,以此类推,然后再转换为相应的分支结构语句中去执行相应的代码,完成后退出整个分支结构.
第五列即毕业学校列,我们通过下拉菜单来实现：
Private Sub worksheet_selectionchange（ByVal target As Range）
On Error GoTo Error
If target.Column等于5 Then
Application.SendKeys"%{down}"
‘自动打开下拉菜单,设置第五列的数据有效性为序列填充
target.Validation.Add Type：等于xlValidateList,Formula1：等于"市一中,市二中,省实验中学,市三中"
End if
Error：
Exit sub’
End sub
在Selectionchange事件中,首先通过判断语句判断当前选中是否为第三者列,即毕业学校列,如果是则自动打开下拉菜单,同时显示所选项目的列表,否则退当触发的事件.
以上事件在执行过程中如果出错则自动转到子程序error,退出当前的事件的执行.
三、数据录入测试
为了方便测试,建议大家将“按回车键后插入点的移动方向”改为“向右”,（单击工具菜单中的编辑选项卡进行设置）这样会更加符合我们平时的录入表格的习惯.
在“编号”列中输入学生编号的后四位按回车键,系统将会自动添加前四位2012.
在“出生年月日”列中直接输入8位数回车后,系统会自动在前四位后加“年”,中间两位后加“月”,最后加上“日”.
在“性别”列中,按数字键1,则显示为“男”,按数字键2,则显示为“女”.同样政治面貌一列中,按数字键3,显示为“团员”,按数字键4,显示为“非团员”.
在“毕业学校”一列中,中需单击单元格中的任一位置就可以看到自动弹出的下拉菜单,然后就可以从列表中选择相应的毕业学校.（不需要单击单元格右侧的下拉箭头按钮）
经过这样设计的表格,即使是初学Excel的朋友也会得心就手.如果要几个人协同输入一大批数据,不仅会做到格式上的高度统一,而且会节约很多的时间,同时又成倍的提高了工作效率,何乐而不会呢?在实际运用的过程中,大家可以根据自己的修改代码中相应的属性.需要注意的是,代码一旦编写完成后如果要添加或删除,请及时对代码中的列号进行相应的调整.
作者简介：刘金凤（1968—）,女,延边大学经济管理专业毕业,高级讲师,现供职于延边职业技术学院计算机系.