Excel中快速录入数据.docVIP

Excel中快速录入数据 【摘 要】在EXCEL中如何修改VBA代码，来达到快速录入数据的目的。 【关键词】数据录入；代码；单元格；change事件 每一个学期初和学期末，都有许多数据需要采集和上报，这此数据在录入过程中不仅耗费了大量的时间，还很容易出错，如图1所示的学生情况信息表，在通常情况下，我们会逐条录入这些数据的，也有的同志会通过自定义单元格格式等技巧来提高自己的录入效率，但我想看过本人为您介绍的录入技巧后，您一定会大有收获。 图1 学生情况信息表 一、案例分析 不难发现在“编号”字段中（第一列），每位学生的编号前四位是相同的，即“2012”，所不同的是后面的班级和学号不同，如果我们在输入过程中前四位可以自动添加进去，那就方便多了。 对于学生姓名没有规律性，所以“姓名”列（第二列）中内容只能是一个一个录入了，没有办法“偷懒”。 在出生年月一列（第三列）中，如果我们只输入数字，就能显示年月日那样就会省事多了，如我输入“1座机电话号码”，按回车键后，系统就显是“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，退出当前的事件的执行。 三、数据录入测试 为了方便测试，建议大家将“按回车键后插入点的移动方向”改为“向右”，（单击工具菜单中的编辑选项卡