用Excel建立数据录入系统

用Excel建立数据录入系统-升级版

(2013-09-06 16:02:28)

转载

excel

vba

一、数据采集系统功能

录入、保存、查询、清空、修改

二、两个界面

1. 数据录入界面:前台功能使用界面,实现“录入、保存、查询、清空、修改”;

2. 数据存储界面:后台实现数据的保存;

录入界面: ▼ 标签: 分类: OFFICE

用Excel建立数据录入系统

三、实现方法

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 ("此编码已存在,不可保存。如果此信息需要修改,请点击查询后再修改")

Word文档免费下载Word文档免费下载:用Excel建立数据录入系统 (共4页,当前第1页)

你可能喜欢

  • 建立系统
  • 职工信息管理系统论文
  • 职工工资信息管理系统
  • 职工工资管理系统设计
  • 图表系统组建失败
  • 职工信息管理系统设计
  • 职工信息管理系统c语言

用Excel建立数据录入系统相关文档

最新文档

返回顶部