中财网1979年属羊的是什么命:用Excel建立数据输入系统 - 乖乖兔的日志 - 网易博客
来源：百度文库 编辑：中财网 时间：2024/04/27 04:14:17
用Excel建立数据输入系统
办公技巧 2007-05-12 12:57:59 阅读83 评论0 字号：大中小 订阅
在Excel中输入大量记录（比如记录全班学生各科成绩）时，大家可能一行一行的来记录，也许我介绍的使用选择的界面方式在输入中会更加方便。1、建立输入界面：（如图（1））
图（1）首先建立如上图的工作表，工作表名为“分数输入”（在调用过程中要使用）。关键：a、选中C2:C7，E2:E7单元格，并右击，在弹出菜单中选择“设置单元格格式”，在“保护”选项卡中取消对“锁定”的选择。（目的是防止最后保护此工作表时不能输入数据）b、保存按钮制作：在“窗体”工具栏中选择“按钮”后，在工作表适当的位置拖出一个按钮，并改名为：“保存”。如图（2）：
图（2）c、下拉列表制作：比如成绩的选项只有优、良、合格、不合格，教师不用每输入一个学生就用键盘敲入，而可以使用下拉列表选择。以图（1）中的E2单元格为例，方法如下：选中E2——单击“数据”菜单中的“有效性”，在“设置”选项卡中设置如下图：（“允许（A）”选择“序列”，“来源（S）”输入：优,良,合格,不合格，如图，注意各序列之间用半角的逗号分开。)其他的下拉菜单方法一样。
图（3）
2、建立“成绩记录”工作表，如下图：
图（4）
关键：第一行A1：I1的值分别对应于“分数输入”工作表，如此工作表中的A1值来自于工作表“分数输入”中的C2单元格，用公式表示为：“分数输入！C2”，其他单元格也是如此，注意与第二行各单元格相呼应。
3、回到“分数输入”工作表，编辑“保存”按钮：
方法：右击“保存”按钮，选择“指定宏”菜单，修改宏名为：“保存”，并单击“新建”按钮，在模块窗口中输入如下代码（红色部分）：
Sub 保存()
Sheets("分数记录").Rows("1:1").Copy '复制“分数记录”工作表第一行
Sheets("分数记录").Rows("3:3").InsertShift:=xlDown '在“分数记录”工作表的第三行前插入第一行
Sheets("分数记录").Range("A3").PasteSpecialPaste:=xlPasteValues '以数值方式在“分数记录”工作表的A3粘贴
Range("C2:C7,E2:E7").ClearContents
Range("C2").Select
'清除“分数输入”工作表中C2:C7,E2:E7中的数据，选中C2以便输入另一个学生的相关数据
End Sub
4、保护“分数输入”工作表
回到“分数输入”工作表，单击“工具”菜单中的“保护”——“保护工作表”
5、保存这个Excel文档即可在“分数输入”工作表界面中输入记录了。