如何通過(guò)EXCEL制作一個(gè)錄入收集系統(tǒng)

如何通過(guò)EXCEL制作一個(gè)錄入收集系統(tǒng)？一、數(shù)據(jù)采集系統(tǒng)功能錄入、保存、查詢、清空、修改

二、兩個(gè)界面

1.數(shù)據(jù)錄入界面：前臺(tái)功能使用界面，實(shí)現(xiàn)“錄入、保存、查詢、清空、修改”；2.數(shù)據(jù)存儲(chǔ)界面：后臺(tái)實(shí)現(xiàn)數(shù)據(jù)的保存；錄入界面：三、實(shí)現(xiàn)方法1.保存功能SubSave()'

'保存數(shù)據(jù)Marco，xiaohou制作，時(shí)間2013-9-5'

Dimr1,r2,r3AsRangeWithSheets("數(shù)據(jù)存儲(chǔ)")

Setr2=.Range("a2",.[a100000].End(xlUp))EndWith

WithSheets("數(shù)據(jù)錄入")

Setr1=.Range("c4:e4,d6:l39")

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不為空，未成功

MsgBox("編碼、名稱為空，不可保存！")

Else

Setr3=r2.Find(.Cells(4,3),,,1)

IfNotr3IsNothingThen

MsgBox("此編碼已存在，不可保存。如果此信息需要修改，請(qǐng)點(diǎn)擊查詢后再修改")Else

Sheets("數(shù)據(jù)存儲(chǔ)").Rows("2:35").InsertShift:=xlDown

.Range("c6:l39").Copy

'復(fù)制“數(shù)據(jù)錄入”表體信息

Sheets("數(shù)據(jù)存儲(chǔ)").Range("c2:l2").PasteSpecialPaste:=xlPasteValues

.Range("c4").Copy

'復(fù)制“數(shù)據(jù)錄入”編碼

Sheets("數(shù)據(jù)存儲(chǔ)").Range("a2:a35").PasteSpecialPaste:=xlPasteValues

.Range("e4").Copy

'復(fù)制“數(shù)據(jù)錄入”名稱

Sheets("數(shù)據(jù)存儲(chǔ)").Range("b2:b35").PasteSpecialPaste:=xlPasteValues

r1.ClearContents

'保存數(shù)據(jù)后，清空錄入界面

.Range("c4").Select

EndIf

EndIfEndWithEndSub2.查詢功能SubQuery()'

'查詢篩選Macro，xiaohou制作，時(shí)間2013-9-5''

DimErowAsIntegerDimr1,r2AsRangeWithSheets("數(shù)據(jù)錄入")

Setr1=.Range("d6:l39")

Setr2=.Range("a6:b39")

Erow=Sheets("數(shù)據(jù)存儲(chǔ)").[a100000].End(xlUp).Row

r1.ClearContents

'ForEachceIn.[a2:x2]

'Ifce<>""Thence.Value="*"&ce&"*"

'加上通配符*,實(shí)現(xiàn)模糊查詢

'Next

IfIsEmpty(.Range("c4"))OrIsEmpty(.Range("e4"))Then

'OrIsEmpty(.Range("b7:b41"))添加科室不為空，未成功

MsgBox("編碼、名稱為空，不可查詢！")

Else

Sheets("數(shù)據(jù)存儲(chǔ)").Range("A1:l"&Erow).AdvancedFilterAction: