如何通过EXCEL制作一个录入收集系统？
一、数据采集系统功能录入、保存、查询、清空、修改
二、两个界面
1.数据录入界面：前台功能使用界面，实现“录入、保存、查询、清空、修改”；
2. 数据存储界面：后台实现数据的保存；录入界面：
三、实现方法1. 保存功能Sub Save() '
'保存数据Marco，xiaohou制作，时间2013-9-5 '
Dim r1, r2, r3 As Range With Sheets("数据存储")
Set r2 = .Range("a2", .[a100000].End(xlUp)) End With
With Sheets("数据录入") Set r1 = .Range("c4:e4, d6:l39")
If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then 'Or IsEmpty(.Range ("b7:b41")) 添加科室不为空，未成功MsgBox ("编码、名称为空，不可保存！") El se
Set r3 = r2.Find(.Cells(4, 3), , , 1) If Not r3 Is Nothing Then
MsgBox ("此编码已存在，不可保存。如果此信息需要修改，请点击查询后再修改") Else
Sheets("数据存储").Rows("2:35").Insert Shift:=xlDown
.Range("c6:l39").Copy '复制“数据录入”表体信息
Sheets("数据存储").Range("c2:l2").PasteSpecial Paste:=xlPasteValues .Range(" c4").Copy '复制“数据录入”编码
Sheets("数据存储").Range("a2:a35").PasteSpecial Paste:=xlPasteValues .Range ("e4").Copy '复制“数据录入”名称
Sheets("数据存储").Range("b2:b35").PasteSpecial Paste:=xlPasteValues r1.Cle arContents '保存数据后，清空录入界面
.Range("c4").Select End If End If End With End Sub
2. 查询功能Sub Query() '
' 查询筛选Macro，xiaohou制作，时间2013-9-5 ' '
Dim Erow As Integer Dim r1, r2 As Range With Sheets("数据录入") Set r1 = . Range("d6:l39") Set r2 = .Range("a6:b39")
Erow = Sheets("数据存储").[a100000].End(xlUp).Row
r1.ClearContents
'For Each ce In .[a2:x2]
'If ce <> "" Then ce.Value = "*" & ce & "*" '加上通配符*,实现模糊查询
'Next
If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then
'Or IsEmpty(.Range("b7:b41")) 添加科室不为空，未成功
MsgBox ("编码、名称为空，不可查询！") Else
Sheets("数据存储").Range("A1:l" & Erow).AdvancedFilter Action:=xlFilterCopy, Crit eriaRange:= _ .[c3:e4], CopyToRange:=.[A5:l5], Unique:=False
r2.Borders(xlDiagonalDown).LineStyle = xlNone r2.Borders(xlDiagonalUp).Line Style = xlNone
r2.Borders(xlEdgeLeft).LineStyle = xlNone
r2.Borders(xlEdgeTop).LineStyle = xlNone
r2.Borders(xlEdgeBottom).LineStyle = xlNone
'r2.Borders(xlEdgeRight).LineStyle = xlNone r2.Borders(xlInsideVertical).LineSt yle = xlNone
r2.Borders(xlInsideHorizontal).LineStyle = xlNone
r2.NumberFormatLocal = ";;;"
'For Each ce In .[a2:x2]
'If ce <> "" Then ce.Value = Mid(ce, 2, Len(ce) - 2) '取消"*"通配符
'Next End If End With End Sub
3. 更新Sub Update() '
'更新Macro，xiaohou制作，时间2013-9-5
Dim arr, d As Object
Dim r As Range
Dim lr&, i&, j%
With Sheets("数据录入") '查询修改工作表数据区域写入数组arr
'arr = .Range("A7:D" & .Range("A65536").End(xlUp).Row)
arr = .Range("a6:l39")
Set r = .Range("d6:l39")
End With
Set d = CreateObject("scripting.dictionary") '定义字典对象
For i = 1 To UBound(arr) '逐行
'If Len(arr(i, 2)) <> 0 Then '排出“合计”行，即：姓名务数据
If Not d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4) & Chr(9) & arr(i, 5) _
& Chr(9) & arr(i, 6) & Chr(9) & arr(i, 7) & Chr(9) & arr(i, 8) & Chr(9) & arr(i, 9) & Chr(9) & arr(i, 10) & Chr(9) & arr(i, 11) & Chr(9) & arr(i, 12)
'上一句：如果编码和名称连接字符串字典不存在(首次出现，这里判断可能多余)，这个字符串添加到字典键值，后续的相关属性字段用制表符连接添加到字典条目
'End If Next
With Sheets("数据存储")
lr = .Range("A100000").End(xlUp).Row '数据存储工作表数据行数
'.Range("C2:D" & lr).SpecialCells(xlCellTypeConstants, 23).ClearContents '清除C、D列不含公式单元格的值
arr = .Range("A2:l" & lr) '数据存储工作表数据区域写入数组arr
For i = 1 To UBound(arr) '逐行
If d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then '如果编码和名称连接字符串字典存在，即Sheet2中有
For j = 4 To 12 'D、E、F...列逐列
'If Not Cells(i, j).HasFormula Then Cells(i, j) = Split(d(arr(i, 1) & arr(i, 2)), Chr (9))(j - 3)
'上句：如果单元格不含公式，把Sheet2对应的数据写入这个单元格
.Cells(i + 1, j) = Split(d(arr(i, 1) & arr(i, 2) & arr(i, 3)), Chr(9))(j - 4) Next
End If
Next
End With
r.ClearContents
Sheets("
数据录入
").Cells(4, 3).Select
MsgBox ("
数据已更新完成，若要查看更新后的内容，请点击按钮查询")
用Excel制作图表教学设计 作者：侯钰学校：淄博市周村区第一中学 【教学背景】 教材分析：山东省初级中学课本第一册（下），内容第四章数据编辑加工，第3节制作图表，在掌握Excel的简单函数和公式（求和，求百分比），自动填充等基本知识下，学习本节制作图表。 学情分析：初中一年级学生，任课教师已经讲授过Excel的基本知识，如工作簿、工作表、单元格，输入数据、修改数据，自动填充，常用函数和公式等。 【教学理念】 教师在教学活动中是主导者和学生学习活动的引导者。因此，本节的教学设计思想是在活动中学习、在主动中发展、在合作中增知、在实践中创新。 【教学目标】 1、用设计好电子表格进行小调查活动，利用常用函数和公式对调查数据进行简单的统计分析（复习上节内容） 2、学习运用Excel方法解决实际问题，用图表功能直观呈现数据。 3、根据问题需要，选用合适的图表开展分析和研究，能在实践应用中运用并解决问题。 4、激发学生对数据统计分析的求知欲，积极主动地在社会活动中使用数据分析的知识。 【重点、难点】 重点：运用Excel解决现实生活中的问题，图表的分析及应用。 难点：图表类型、数据源、图表选项的选择 【教学设计策略】 本节采用的主要教学方法是“任务驱动法”、“自主合作探究学习法”。在教学中，教师启发、诱导贯穿始终，充分调动学生的学习积极性，注意调节课堂教学气氛，并教给学生“提出问题－分析问题—自主合作探究－解决问题－交流评价”的学法，使学生变被动学习为主动愉快的学习，使教学能在生动、有趣、高效中进行。 【教学准备】 零用钱的主要用途调查表.xls， 存放在教师机FTP文件夹（完全共 享）ftp://192.168.0.1，并设置电 子表格的“共享工作簿”功能 【教学过程】 一、创设情境新课导入 【活动1】在教师机共享的电子 表格中，按照机房自己的座位号输入 姓名。(电子表格已设置“共享工作 簿”，学生可以通过访问打开直接保 存输入内容，保存时还可以看见其他 人输入的数据)。 【设计意图】让学生知道如何通过教师共享的“共享工作簿”多人同时编辑电子表格，为后面实时收集调查数据做准备。 【师】：现在的学生多数是家里的”独苗”，家长对孩子是疼爱有加。相信大家对家长给你们零用钱司同见惯了吧。那么怎样才能知道大家拿零用钱普遍都做什么事情呢？ 【生】：可以通过调查。 【师】：主意很不错，大家对于零用钱是怎么用的呢？都用到那里了呢？
用Excel制作图表的方法 所谓制作图表就是把在Excel文件中的数据用图形表示出来，使之更直观醒目。制作出来的图表可以是柱形图、条形图、饼图、圆柱图、散点图、折线图甚至三维图等。在Excel中把图表做好后，就可以把它们复制到Word文档中去。 制作图表也有专用的图表工具，在Excel窗口可以用“视图”→“工具栏”的命令调出“图表”工具。但是，如果不是经常作图表，最好利用“图表向导”来操作，只需四步操作即可完成一个图表。方法如下： 1.首先要在Excel窗口输入拟建立图表的数据（见下图，并选定它）； 2.用“插入”→“图表”命令调出“图表向导 4步骤之1_图表类型”。本例选得是“柱形图”，而且还按下了“按下不放可查看示例”按钮，因此，在图中立刻就把数据变成图表的样子，供你参考了。“下一步”；
3.进入“图表向导 4步骤之2_图表源数据”。在“系列产生在”选项中选择一个你中意的后，“下一步”；
4. .进入“图表向导 4步骤之3_图表选项”。有“标题”、“网格线”等。可以根据需要做出选择。本例选择没有网格线，“下一步”； 5. 进入“图表向导 4步骤之4_图表位置”，即你打算把这个图表往哪里插，本例选择了“作为新工作表插入”。选定后即按“完成”钮，这样图表就完成了。
6.图表完成后如果对图表的填充色、颜色、字体和字形不满意，可以进行修改。例如你对哪个项（有图例的、标题的和坐标轴的项）的字体不满意，就右单击该项的文字，然后对其格式进行重新设定。如果对填充颜色等不满意，也可以利用菜单项进行修改。这样，你需要的图表就产生了。 下面的四张图表就是柱形图、带深度的柱形图、饼图和分裂饼图的效果。当然还可以制作出另外一些样子的图表。
用Excel 2000做图表 2007-04-23 16:34 Microsoft Excel 2000在企业办公、数据处理等方面具有强大的功能。但是，对于如何根据Excel工作表中的数据来创建图表及生成链接，许多人却知之甚少。下面我们以某工厂1990年至1995年的工业年生产总值为例，来说明柱形图表的生成与链接过程。 制作图表 Microsoft Excel 2000的图表模板很多，在生产和销售中，经常用柱形图来描述，这样，有利于看出并分析其变化趋势。制作图表的步骤如下： 1、选定年份和生产总值两行数值，单击[图表向导]，如图1。在图表向导对话框中图表类型选择柱形图，子图表类型选择簇状柱形图，单击[下一步]。 图1 2、在图表源数据的数据区域中出现“=Sheet1!＄A＄3:＄G＄4”，“系列产生在”选择“行” ，在系列中的分类X轴标志中填入“=Sh eet1!＄B＄3:＄G＄3”，系列对话框中删除“年份”，单击[下一步]，如图2。
图2 3、在图表选项中填入图表标题，X轴和Y轴的名称，单击[下一步]。 4、在图表位置的“作为其中的对象插入”中填入“Sheet1”，单击[完成]即可生成图表，如图3所示。 图3 为图表美容
图表生成以后，中间的图形太小，周围的文字又太大，看起来很不舒服，我们可以加以修饰，使其美观大方。具体做法如下： 1、单击鼠标右键，弹出对话框，选中[图表区格式]，弹出图表区格式对话框，首先显示的是图案选项卡，选中[阴影(D)]。单击[填充效果]按钮，在填充效果对话框中您可以选择您喜欢的背景效果，我们在过渡选项卡中选择“单色”、“浅绿色”，将颜色调到合适的深度，如图4，再选择默认的底纹样式“横向”，单击[确定]。 图4 2、以同样的方式修饰绘图区和数据系列区。 3、现在，图表中的文字有些大，绘图区又小。单击图表的纵轴，在字号栏中选择小一点的字体，或双击纵轴对其进行多项修饰如字体、字号、加粗、刻度等。然后以同样的方法修饰横轴。 4、对图表标题和图例进行修饰，修改字体、字号以及填充效果等，基本和以上方法相同。 5、下面，我们对横轴和纵轴的标题说明加以修饰，如果图表中已经有标题说明，可以用以上的方法，如果没有的话，在绘图区单击鼠标右键，从快捷菜单选择[图表选项]，在图表选项中填入图表标题和横坐标、纵坐标的标题，单击[确定]即可。 6、最后，我们调整各部分的大小位置，使之协调美观。这一步用鼠标即可办到，作好的图表如图5所示。是不是效果不错？ 图5 图表与工作表的链接
今天我们介绍用Excel制作万年历的方法。这个万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可以让它在特殊的日子里显示不同的提醒文字，一起来试试吧！ 本文所涉及到的函数有： 1、AND (logical1,logical2, ...) 2、DATE (year,month,day) 3、DAY (serial_number) 4、IF (Logical,Value_if_true,Value_if_false) 5、INT (number) 6、MONTH (serial_number) 7、NOW () 8、OR (logical1,logical2, ...) 1、启动EXCEL2003，新建一个工作表，取名保存（如万年历.xls），并在相应的单元格中，输入如图1所示的文本。
2、同时选中B1、C1、D1单元格，按“格式”工具栏上的“合并及居中”按钮，将其合并成一个单元格，并输入公式：=TODAY（）。 选中B1（合并后的）单元格，执行“格式→单元格”命令，打开“单元格格式”对话框（如图2），在“数字”标签中的“分类”下面选中“日期”选项，再在右侧“类型”下面选中“二○○一年三月十四日”选项，“确定”退出，将日期设置成中文形式。 注意：TODAY（）函数用于提取当前系统日期，请将系统日期一定要调整准确哟。
3、选中F1单元格，输入公式：=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2))；选中H1单元格，输入公式：=NOW（）。 选中F1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“特殊”选项，再在右侧“类型”下面选中“中文小写数字”选项，“确定”退出，将“星期数”设置成中文小写形式；选中H1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“时间”选项，再在右侧“类型”下面选中一款时间格式，“确定”退出。 注意：①上述前面一个公式的含义是：如果（IF）当前日期（B1）是星期“7”（WEEKDAY(B1,2)=7），则在F1单元格中显示“日”，否则，直接显示出星期的数值（WEEKDAY(B1,2)）。 ②上述第二个函数（NOW（））用于提取当前系统日期和时间，也请将系统日期和时间调整准确。 4、在I1、I2单元格分别输入1900、1901，然后同时选中I1、I2单元格，用“填充柄”向下拖拉至I151单元格，输入1900—2050年份序列。 同样的方法，在J1至J12单元格中输入1—12月份序列。 5、选中D13单元格，执行“数据→有效性”命令，打开“数据有效性”对话框（如图3），按“允许”右侧的下拉按钮，选中“序列”选项，在“来源”下面的方框输入：=$I$1:$I$151，“确定”退出。
Excel图表制作 一、教学目标： 知识技能：1、理解EXCEL图表的作用 2、熟练掌握利用图表向导建立图表的操作 3、理解并掌握图表（柱形图、折线图和饼图）类型的选择 4、理解并掌握图表源数据的选择 情感态度价值观：养成善于发现问题、积极思考、并乐于与同伴交流等良好品质 二、教学重、难点 教学重点：1、利用图表向导建立图表的操作 2、图表类型的选择（柱形图、折线图和饼图） 3、图表源数据的选择 教学难点：图表类型的选择与图表源数据的选择 三、教学方法 教师引导、任务驱动下的学生自主、探究、交流学习 四、课时及教学环境 两课时，多媒体教学网络 五、教学过程 1、引入 直接引入。强调图表制作是Excel的一项重要内容，引起学生重视。 2、图表的作用 本环节使用一个学生的成绩表为例，向学生表明，繁多的数据在一起，由于凌乱，很不容易了解数据背后含有的意义。而将数据转成图表之后，其含有的意义就很容易表现出来。从而得到结论：图来源于表格数据，却能更直观、清晰地反映数据的含义。趁此机会向学生展示几种图表的类型，略加说明各类型的表现优势，同时引发学生学习的兴趣。 3、图表元素讲解 看了这么多图表，也了解了图表的作用，大家是不是也跃跃欲试，想动手制作一个漂亮的图表呀？哎，别急，在具体学习如何创建图表前，我们先来用一个例子来好好认识一下这个图表。 此环节主要通过一个三维簇状柱形图来让学生了解构成图表的元素。提醒学生可以通过Excel提供的辅助帮助功能来认识图表元素。在这个过程中要注意以下几点： 1）说明在图表中一般必须要有的元素，如图表标题、数值轴、分类轴及标题、图例等。也要提醒学生，可以根据题意添加或删除某些元素。这里以“月份”为例，由于通过分类轴可以明确分类轴的含义，所以可以“清除”月份标题。通过这个讲解，为下一个注意点服务，即右键操作。
用Excel 制作图表教学设计 作者：侯钰学校：淄博市周村区第一中学 【教学背景】 教材分析：山东省初级中学课本第一册（下），内容第四章数据编辑加工，第3节制作图表，在掌握Excel 的简单函数和公式（求和，求百分比），自动填充等基本知识下，学习本节制作图表。学情分析：初中一年级学生，任课教师已经讲授过Excel 的基本知识，如工作簿、工作表、单元格，输入数据、修改数据，自动填充，常用函数和公式等。 【教学理念】 教师在教学活动中是主导者和学生学习活动的引导者。因此，本节的教学设计思想是在活动中学习、在主动中发展、在合作中增知、在实践中创新。
【教学目标】 1、用设计好电子表格进行小调查活动，利用常用函数和公式对调查数据进行简单的统计分析（复习上节内容） 2、学习运用Excel 方法解决实际问题，用图表功能直观呈现数据。 3、根据问题需要，选用合适的图表开展分析和研究，能在实践应用中运用并解决问题。 4、激发学生对数据统计分析的求知欲，积极主动地在社会活动中使用数据分析的知识。 【重点、难点】 重点：运用Excel 解决现实生活中的问题，图表的分析及应用。 难点：图表类型、数据源、图表选项的选择 【教学设计策略】 本节采用的主要教学方法是“任务驱动法”、“自主合作探究学习法”。在教学中，教师启发、诱导贯穿始终，充分调动学生的学习积极性，注意调节课堂教学气氛，并教给学生“提出问题－分析问题—自主合作探究－解决问题－交流评价”的学法，使学生变被动学习为主动愉快的学习，使教学能在生动、有趣、高效中进行。 【教学准备】 零用钱的主要用途调查表.xls ， 存放在教师机FTP 文件夹（完全共 享）ftp://192.168.0.1，并设置电 子表格的“共享工作簿”功能
Excel图表插入制作实例（直方图） 以下是四位顾客本周的消费记录，见（图一），呈表格样式，但是我们怎样把这些数据用图表（直方图）的方式表现出来呢？下面我们就开始做吧！ 图一： 点击Excel工具栏的【插入】按钮，选择【图表】，会出现〖图表类型〗窗口，见（图二）， 图二： 点击【下一步】，会出现〖源数据〗窗口，见（图三），点击数据区域里面的按钮，图三：
出现另一个〖源数据〗小窗口，见（图四），再用鼠标选择（图一）里面的全部文字和数据，选好后，点击〖源数据〗小窗口里面的按钮，这时〖源数据〗窗口里面就有了图表预览，见（图五）， 图四： 图五：
然后点击【完成】按钮，这时候整个图表和数据已经显示出来，见（图六），不过里面的文字的位置和颜色看起来还缺乏美感，我们要把它调整到最佳位置最佳状态， 图六： 一：位置大小调节，鼠标点击图表区域，然后选中图表区域边上的点，按住鼠标左键拖拽，就可以进行上下左右任意调节，
二：颜色调节，鼠标放在图表区域，点鼠标右键，选择【图表区格式】，出现图表区格式对话框，见（图七），就可以选择自己喜欢的颜色了，如果不喜欢太单一的颜色，就点图表区格式里面的〖填充效果〗按钮，显示填充效果对话框，见（图八），我一般选择〖纹理〗里面的图片，如果你想把你自己的靓照显示到图表里面，就点击〖图片〗按钮，在你的电脑里面选一张照片就行了！最后按确定。 注：【绘图区格式】【图例格式】【图表标题格式】【数据系列格式】里面的颜色改变和【图表区格式】颜色改变操作方法相同。 图七： 图八：
三：自动配色，鼠标放在图表区域，点鼠标右键，选择〖图表类型〗，显示图表类型对话框，见（图九），点击左上角图表区，会显示下面的配色方案，然后选择你喜欢的配色方案类型，选好后点〖确定〗。 图九： 四：数据添加，如果要想新增加一个客户名称和一组数据，先在原有的数据表格里面（图一）编辑好名称和数据，在把鼠标放在图表区域，点鼠标右键，选择〖源数据〗，显示源数
excel图表的制作教案 Excel图表制作 家庭用水情况调查 教学过程： 请学生欣赏flash动画： 提问：看了这段动画你想到了什么? 回答：。 1、旧知复习 提问：在上节课，我们讲到了Excel中的公式与常用函数的运算方法，同学们有没有忘记啊？回答：。 教师：我们今天在上新课前对这部分内容通过一个练习来简要复习一下。 ? 出示一张家庭用水情况调查统计的电子表格，复习Excel函数的应用 ? 请同学在教师机器上演示用水总量和平均值的计算 2、新课导入 教师：用文字、表格、图表三种不同表现形式展示《家庭用水一览表》。 提问：以上三种数据表现形式中，哪种更能表现出数据间的关系，看上去更直观呢？回答：。 教师： 单凭数据列表并不能明显地表示出各数据之间的关系以及数据变化的趋势，通过Excel的图表表现数据往往可以将抽象的数据形象化，便于我们理解、分析。
因此我们今天的主要任务便是制作统计图表以直观地反映我班学生家庭用水情况并根据图表进行分析。 制作五个家庭一季度用水总量的统计图，反映各个家庭的用水情况。： 1. 利用向导快速创建简单图表 2. 图表各部分格式的修改：双击需要修改的部分进行修改。 1. 教师展示部分出现问题的学生作品，师生共同寻找解决问题的办法。针对作品中的问题 和学生提出的其他问题，由学生先尝试解疑，再由老师补充。可能出现的问题： ? ? 没有完整地选择没有对称选取 2. 请做得比较好的同学演示如何增加x,y轴标题及数据标志，教师分析图表的组成：根据调查分析数据，选取不同的数据源对五个家庭的用水情况进行统计分析，制作统计图 除了从各个家庭的用水总量来分析，还能够从哪些方面进行分析？略 可从以下分析角度： ? 各个家庭一季度用水变化情况／趋势”的统计图某