『壹』 如何用excel 製作資料庫管理系統
不知道樓主是不是想自己製作這樣的表格。一般來說，進銷存工具包含以下幾個基本功能，采購入庫、銷售出庫、庫存（根據入出庫自動計算），成本（移動平均法核算）、利潤（銷售金額減去成本價）、統計（日報月報）、查詢（入出庫）履歷。其他擴展內容諸如品名、規格、重量、體積、單位等也要有。主要的難點是在自動統計庫存上。根據行業不同，可能具體條目會有點變化。一般的做法是用到數據透視表，但如果數據量大會嚴重影響速度。採用VBA是比較好的，速度不收影響。如果你自己做，沒有相當的編程知識，估計你做不出來，我建議你去找北京富通維爾科技有限公司的網站，裡面有用VBA開發的Excel工具，很多個版本，當然也有免費的下載。
『貳』 用excel能做數據分析系統嗎
可以~
『叄』 如何通過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 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, CriteriaRange:= _ .[c3:e4], CopyToRange:=.[A5:l5], Unique:=False
r2.Borders(xlDiagonalDown).LineStyle = xlNone r2.Borders(xlDiagonalUp).LineStyle = xlNone
r2.Borders(xlEdgeLeft).LineStyle = xlNone
r2.Borders(xlEdgeTop).LineStyle = xlNone
r2.Borders(xlEdgeBottom).LineStyle = xlNone
'r2.Borders(xlEdgeRight).LineStyle = xlNone r2.Borders(xlInsideVertical).LineStyle = 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
EndIf
Next
EndWith
r.ClearContents
Sheets("
數據錄入
").Cells(4,3).Select
MsgBox("
數據已更新完成，若要查看更新後的內容，請點擊按鈕查詢")
『肆』 excel製作數據查詢系統
g7=iferror(index(c:c,small(if(isnumber(search($g$3,$b$7:$b$100)),row($7:$100)),row(a1))),"")數組公式，同時按ctrl+shift+回車結束，右拉下拉
『伍』 如何利用excel製作一個管理系統
Excel應該可以完成，不過你不熟悉的話，估計難以做出，還是找人為你定製吧
『陸』 excel是否可以作為資料庫
可以使用DAO，但是Excel資料庫是之允許添加、修改、瀏覽而不允許刪除行的：
Sub TestHDRConnectParameter(blnHDRParam As Boolean)
Dim dbs As Database
Dim rst As Recordset
Dim strHDRParam As String
If blnHDRParam = True Then
strHDRParam = "YES"
Else
strHDRParam = "NO"
End If
' Open the Microsoft Jet sample database.
Set dbs = OpenDatabase("C:\JetBook\Samples\Excel\Procts97.xls", _
False, False, "Excel 8.0;HDR=" & strHDRParam & ";")
' Create a Recordset object for the Microsoft Excel Procts worksheet.
Set rst = dbs.OpenRecordset("Procts$")
' Move to the last record and display the RecordCount property value.
With rst
.MoveLast
MsgBox "There are " & .RecordCount & " records in this worksheet."
.Close
End With
dbs.Close
End Sub
注意：
(1)HDR指定是否將首行作為標題行。
(2)表名字後面要加$符號。
『柒』 excel能做信息系統嗎
Excel
的強項是靈活處理和直觀，即「所見即所得」，這些包括數據列表、表格、圖形等元素。但做信息系統卻不是她的強項，雖然說可以通過公式、鏈接、宏、OBDC
等方法做出一些簡單的「類資料庫」的功能。但如果要稍微復雜一些的要求，則變得非常繁復和不可靠。Delphi
要難學一些，如果對要求不太高的管理，建議學學
Access
，這也是
Office
里的一個組建，相對
Delphi
要容易一些。
Access
基本上是可視化操作，大部分的編程功能都可以通過視圖的操作實現，而且功能也不弱，並且也可以速成。更重要的是她可以在網路（比如說伺服器里）實現多終端共享，這是「系統」一個突出特點，相比
Excel
在這方面就差了很多，所以說就資料庫方面
Access
遠比
Excel
強大，如果再加學一點VBA就更是如虎添翼了，不妨試試。
『捌』 Excel能做系統嗎
能做。但不能處理大量數據，記錄過兩萬條就會很慢。
『玖』 excel 可以開發管理系統嗎
可以是可以，管理系統與Excel結合的優勢在於管理系統會有很多數據需要錄入到表格中，Excel本身的填報錄入這部分是非常友好和方便的。
但是管理系統還需要對錄入的數據進行管理，Excel本身在數據管理這塊是短板，Excel本身沒有資料庫，對於用戶操作管理的歷史信息也沒有記錄。
再者單純用Excel本身不適合來做一個軟體系統，與一般的系統相比沒有競爭力（界面美觀，用戶許可權控制，多端支持等）
所以一般的管理軟體，為了避免數據管理的弊端一般會採用軟體開發的方式使用專門的架構（C/S,B/S等），語言（JAVA,.NET,HTML等）結合去開發，這裡面就面臨一個問題，如何將Excel在填報方面的優勢與目前系統開發去結合，如果能夠將其完美結合，那麼該軟體既有Excel填報方面的優勢，又可以避免Excel在系統管理中的劣勢。
但目前日常開發中往往面臨的困難是，想要自己使用對應開發語言去開發一套能夠集成到系統中的類似Excel表格功能的填報表格是非常困難的，市面上現成的大把的都是grid類型的表格，這類表格在填報上無法做到像Excel這樣的填報方式，用戶使用起來沒有Excel順手，需要改變使用習慣。
鑒於此，這里推薦一款類似Excel表格的純前端電子表格控制項SpreadJS，這款控制項可以無縫的嵌入到系統中去，而且使用的開發語言是javascript這種主流前端開發語言， 提供的API介面可以完美的解決填報數據的管理問題。以此而開發的系統，用戶在不改變使用習慣的前提下，像使用Excel一樣在系統中進行日常操作。
『拾』 如何用excel製作產品資料庫系統
可以做的用公式和vba