進銷存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」保...