• / 5
  • 下载费用:10 金币  

如何通过EXCEL制作一个录入收集系统.doc

关 键 词:
如何通过EXCEL制作一个录入收集系统.doc
资源描述:
如何通过 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 (“编码、名称为空,不可保存!“) Else 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.ClearContents '保存数据后,清空录入界面 .Range(“c4“).Select End If End If End With End Sub2. 查询功能 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 = Mid(ce, 2, Len(ce) - 2) '取消 “*“通配符 'Next End If End With End Sub3. 更新 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
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:如何通过EXCEL制作一个录入收集系统.doc
链接地址:https://www.weizhuannet.com/p-9852588.html
微传网是一个办公文档、学习资料下载的在线文档分享平台!

微传网博客

网站资源均来自网络,如有侵权,请联系客服删除!

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开