进销存excel模板
A. 如何用excel制作进销存表格
示意图如下(共4张)
在<<产品资料>>表G3中输入公式:=IF(B3="","",D3*F3) ,公式下拉.
在<<总进货表>>中F3中输入公式:=
IF(D3="","",E3*INDEX(产品资料!$B$3:$G$170,MATCH(D3,产品资料!$B$3:$B$170,0),3)) ,公式下拉.
在<<总进货表>>中G3中输入公式:=IF(D3="","",F3*IF($D3="","",INDEX(产品资料!$B$3:$G$170,MATCH($D3,产品资料!$B$3:$B$170,0),5))) ,公式下拉.
在<<销售报表>>G3中输入公式:=IF(D3="","",E3*F3) ,公式下拉.
在<<库存>>中B3单元格中输入公式:=IF(A3="",0,N(D3)-N(C3)+N(E3)) ,公式下拉.
在<<库存>>中C3单元格中输入公式:=IF(ISNUMBER(MATCH($A3,销售报表!$D$3:$D$100,0)),SUMIF(销售报表!$D$3:$D$100,$A3,销售报表!$E$3:$E$100),"") ,公式下拉.
在<<库存>>中D3单元格中输入公式:=IF(OR(NOT(ISNUMBER(MATCH($A3,总进货单!$D$3:D$100,0))),A3=""),"",SUMIF(总进货单!$D$3:$D$100,$A3,总进货单!$F$3:$F$100)) ,公式下拉.
至此,一个小型的进销存系统就建立起来了.
当然,实际的情形远较这个复杂的多,我们完全可以在这个基础上,进一步完善和扩展,那是后话,且不说它.
这是最简单的.如您需要做大型复杂的进销存系统,我也可以做.感兴趣的话,咱们可以进一步探讨.
B. Excel进销存表格模板
才50多个单品,完全可以用EXCEL实现的;
建议建立存货档案,把公司所有的物料明细列出来(如规格专\型号\计量单位属\等统一)再附上编码,日常物料跟踪用附上产品编码.仓库收发存表,用刚建立好的存货档案,结合,index+match、sumif,基本可以实现你的需求;收发存模板有的,可以留下油箱,转你你。
C. 免费excel进销存模板给我一个,自动计算进销存的。
去下个免费的进销存软件吧
大型的有2bizbox
D. 想要一个Excel进销存表格模板一张表的,谢谢!775659042
这是一张进货表,采用一键导入数据库方式。
Private Sub CommandButton1_Click()
'从数据库读取供应商名称,写入名称管理器的供应商名称
'从数据库读取客户代号,写入名称管理器的客户代号
Dim rsT As New ADODB.Recordset
Dim Conn As ADODB.Connection
Dim myData As String
'Dim Arr As Object
'连接数据库
myData = ThisWorkbook.Path & "acjxc.accdb"
Set Conn = CreateObject("ADODB.Connection") '这属于后期绑定
Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
Conn.ConnectionString = Conn.ConnectionString & ";Jet OLEDB:Database Password = gpflovezx@1980"
Conn.Open
'读取供应商清单
sqL = "SELECT 供应商名称 FROM GYSQD "
rsT.Open sqL, Conn, adOpenKeyset, adLockOptimistic
If rsT.RecordCount = 0 Then
MsgBox ("供应商清单为空!!!")
rsT.Close
Exit Sub
Else
Arr = rsT.GetRows
End If
rsT.Close
'输出导入结果
Range(Cells(3, 27), Cells(1000, 27)).ClearContents
For i = 0 To UBound(Arr, 2)
Cells(3 + i, 27) = Arr(0, i)
Next i
With ActiveWorkbook.Names("供应商名称")
.Name = "供应商名称"
.RefersToR1C1 = "=进!R3C27:R" & 3 + i & "C27"
.Comment = ""
End With
'读取货号
sqL = "SELECT 货号 FROM CPQD "
rsT.Open sqL, Conn, adOpenKeyset, adLockOptimistic
If rsT.RecordCount = 0 Then
MsgBox ("产品清单为空!!!")
rsT.Close
Exit Sub
Else
Arr = rsT.GetRows
End If
rsT.Close
'输出导入结果
Range(Cells(3, 28), Cells(1000, 28)).ClearContents
For i = 0 To UBound(Arr, 2)
Cells(3 + i, 28) = Arr(0, i)
Next i
With ActiveWorkbook.Names("货号")
.Name = "货号"
.RefersToR1C1 = "=进!R3C28:R" & 3 + i & "C28"
.Comment = ""
End With
'读取客户代号
sqL = "SELECT 客户代号 FROM KHQD "
rsT.Open sqL, Conn, adOpenKeyset, adLockOptimistic
If rsT.RecordCount = 0 Then
MsgBox ("客户清单为空!!!")
rsT.Close
Exit Sub
Else
Arr = rsT.GetRows
End If
rsT.Close
'输出导入结果
Range(Cells(3, 29), Cells(1000, 29)).ClearContents
For i = 0 To UBound(Arr, 2)
Cells(3 + i, 29) = Arr(0, i)
Next i
With ActiveWorkbook.Names("客户代号")
.Name = "货号"
.RefersToR1C1 = "=进!R3C29:R" & 3 + i & "C29"
.Comment = ""
End With
End Sub
这是导入数据库的代码
通过 excel+access+vba 实现小企业的进销存管理系统
E. 用excel管理商品进销存表格的模板
http://hi..com/biaoge_wang/blog/item/13b668c42429a2d0d10060f9.html
F. 进销存excel模板
方法与步骤 (一)新建工作簿 1.单击“开始”菜单,在弹出的开始菜专单项中单击“新建属office文档”,出现“新建office文档”对话框窗口。 2.“新建office文档”对话框窗口中的“常用”活页夹中,双击“空工作簿”,出现名为“Book1”的空工作簿。 3.将“Book1”保...