当前位置:首页 » 格式模板 » 进销存excel模板

进销存excel模板

发布时间: 2021-03-24 03:13:51

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”保...

热点内容
涂鸦论文 发布:2021-03-31 13:04:48 浏览:698
手机数据库应用 发布:2021-03-31 13:04:28 浏览:353
版面217 发布:2021-03-31 13:04:18 浏览:587
知网不查的资源 发布:2021-03-31 13:03:43 浏览:713
基金赎回参考 发布:2021-03-31 13:02:08 浏览:489
悬疑故事范文 发布:2021-03-31 13:02:07 浏览:87
做简单的自我介绍范文 发布:2021-03-31 13:01:48 浏览:537
战略地图参考 发布:2021-03-31 13:01:09 浏览:463
收支模板 发布:2021-03-31 13:00:43 浏览:17
电气学术会议 发布:2021-03-31 13:00:32 浏览:731