excel制作数据库系统？如何在excel中创建“数据库”
很多朋友对于excel制作数据库系统和如何在excel中创建“数据库”不太懂，今天就由小编来为大家分享，希望可以帮助到大家，下面一起来看看吧！
如何用excel制作数据库管理系统
不知道楼主是不是想自己制作这样的表格。一般来说，进销存工具包含以下几个基本功能，采购入库、销售出库、库存（根据入出库自动计算），成本（移动平均法核算）、利润（销售金额减去成本价）、统计（日报月报）、查询（入出库）履历。其他扩展内容诸如品名、规格、重量、体积、单位等也要有。主要的难点是在自动统计库存上。根据行业不同，可能具体条目会有点变化。一般的做法是用到数据透视表，但如果数据量大会严重影响速度。采用VBA是比较好的，速度不收影响。如果你自己做，没有相当的编程知识，估计你做不出来，我建议你去找北京富通维尔科技有限公司的网站，里面有用VBA开发的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中创建“数据库”
分析如下：
1、新建一个工作表，命名为【数据库1】。
2、设定列标题，分别在单元格A1，B1，C1，D1中输入【编号】，【姓名】，【年龄】，【性别】。
3、选择A1：D1单元格区域，单击右键，选择设置单元格。
4、在弹出的对话框中，选择【数字】选项卡下选择【文本】。
5、设置数值的格式，保留小数点后1位有效数字，点击【确定】。
扩展资料
1、Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。
2、Microsoft Office是一套由微软公司开发的办公软件套装，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系统上运行。与其他办公室应用程序一样，它包括联合的服务器和基于互联网的服务。从2007版的Office被称为“Office System”而不叫“Office Suite”，反映出它们包括服务器的事实。
3、Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。
4、“专业版”包含Microsoft Access，Microsoft Outlook当时不存在。随着时间的改变，Office应用程序逐渐集成，共享特性，例如：拼写和语法检查、OLE数据集成和VBA脚本语言。微软目前将Office延伸作为一个开发平台，可以借由专用商店下载第三方软件搭配使用。
5、Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。
参考资料：百度百科-Excel
怎样用excel制作一个小型数据库表格
步骤：
1、建立左表，在A:E列输入数据，在F和G列输入公式。
2、按CTRL+A，复制；打开2日空白表，按CTRL+A，粘帖；
将2日表中C:E列数据清除，在C2输入公式“=VLOOKUP('2日'!A2,'1日'!$A:$F,6,FALSE)”，用右下角填充柄向下复制到C8导入1日期末库存；
在D和E列输入2日数据，以显示2日状况；3日及以后照此处理。
3、使用“记录单”（以2日表为例）：
1）选中表中任一非空单元格，点选“数据/记录单”。
2）查找资料：点“上一条”或“下一条”按钮，找到需要资料；或点“条件”，在“品名”或“价格”框输入品名或价格，点“上一条”也可查到需要资料。
3）添加项目：点“新建”钮，在空框输入品名等有关信息，再点“新建”钮，即可在2日表添加新项目。
4）删除项目：找到拟删项目，点“删除”钮，即可删除2日表已有项目。
好了，文章到这里就结束啦，如果本次分享的excel制作数据库系统和如何在excel中创建“数据库”问题对您有所帮助，还望关注下本站哦！