‘壹’ 如何用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