返回列表 上一主題 發帖

[發問] 項目經排序後複製另工作表

回復 20# BV7BW

還以為你們是買現賣現, 不留庫存??? 所以只作"出貨"系統,
要加上庫存, 那就與"進銷存"有關, 這用EXCEL難度太大,
A0001 庫存20
輸入第一張訂單, 出10, 那是否要先將10扣掉,
第二張訂單出15, 要顯示"庫存不足"???
或原第一張訂單已轉出到明細表, 但想10改成8, 是否又要將2補回庫存???
又, 有"進貨"時, 數量是否又要程式加進去???

這太累了, 做半套沒意義, 做全套(程式碼幾十萬字跑不掉), 實做不來~~

TOP

回復 20# BV7BW

送貨單通常至少是三聯式, [客戶簽收聯/客戶留底聯/公司留底聯]
簽收聯, 客戶簽收後帶回當做請款聯, 若已收款, 則連同第一聯給客戶;
若有尚未收款的, 則將簽收聯集中做"請款"動作即可;
那為何又要做一張客戶結款明細表???

何況, 同一期間, 可能有些已收, 有些未收, 那結款明細如何做???

TOP

加入"庫存", 及"客戶結款表"
出貨作業D版v01_10905.rar (373.9 KB)

TOP

謝謝准大老師
C版以合需求.再加上D版更加完美
謝謝你辛勞.實感萬分
敏而好學,不恥下問

TOP

回復 23# 准提部林


    准大老師
跟你回報
D版.送貨單只表列第1項目.
其餘不能表列.
懇請老師再幫看...
謝謝
敏而好學,不恥下問

TOP

回復 25# BV7BW

Sub 送貨單_載入()
Dim CN&
Call 送貨單_清除單身
With Sheets("送貨單")
     If .[A6] = 0 Then MsgBox "**[單號]錯誤或未輸入!  ": Exit Sub
     .[A7] = "=IF(ROW(A1)>B$6,"""",ROW(A1))"
     .[B7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!C:C,A$6+A7-1))"
     .[C7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!D:D,A$6+A7-1))"
     .[E7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!E:E,A$6+A7-1))"
     .[F7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!F:F,A$6+A7-1))"
     .[G7] = "=IF(N(A7)=0,"""",N(E7)*N(F7))"
     '-----------------------------------------
      CN = Application.Ceiling(.[B6].Value, 15) '以15為倍數, 計算所需行數
     If CN > 1 Then .[A7:K7].Copy .[A8:K8].Resize(CN - 1) '用第一行格式複製所需行數
    .[H7] = "=IF(N(A7)=0,"""",INDEX(訂貨明細表!M:M,A$6+A7-1)&"""")" '採購單號
    '-----------------------------------------
    .Range("A1:K" & CN + 6).Name = "'" & .Name & "'!Print_Area"  '列印範圍
    .Range("1:6").Name = "'" & .Name & "'!Print_Titles"  '列印表頭
End With
End Sub

那個 N 改成 CN ..應是不小心刪掉了...小事...認真點去看..自己也可去修正的
'===========================================

TOP

從項目表中去維護庫存,如果是每天做???
不知要花多少時間?人可能都要變呆!!!
∼∼想了幾天,還是再弄個進階版∼∼
加個〔庫存表〕,新增庫存的〔維護〕及〔更新〕,並自動顯示〔庫存數〕及〔已出貨數〕:
出貨作業E版v01_10906.rar (370.69 KB)

大致就這樣了,再做下去,自己可能也變得更呆了吧!∼∼已不知再如何下手

TOP

回復 27# 准提部林

謝謝老師...
CCCCCCCCCCCCCCCC..(笑聲)
我在想准大老師真是奇異之人
我才想小小工程就要想5.6天那只是小小部分
想到都頭都大起來.真謝謝你
CCCCCCCCCCCCC
至於庫存也不用去加減.價格貴也不能買很多.價格低更不用買
因為庫存只能存2.3天過後就要免費送去給阿麽晚餐(老人免費餐廳)
所以庫存隨時都會成0



.
敏而好學,不恥下問

TOP

回復 28# BV7BW


哈! 晴天備傘!
趁現在記憶猶新, 把想到的做個補充,
可能過段時間, 自己寫的程式碼都忘光,
要修改什麼的, 須重新一一過慮流程, 恐做不來~~
很多以前做的檔案, 不是己刪就是找也難找了! 太多, 懶得去理~~

TOP

對帳明細表
*增加對帳明細表*
以訂貨明細表為資料來源

項目編號1
*增列單位欄*
單位為=斤.公斤.公克.把.盒.箱.罐.隻.包.條.板.桶.片.葉.枝.打.個.顆.朵.杯.束.等等
*增列台斤價欄*
*台斤價以批價為準(辦別單位欄斤時)*
再除0.6則為公斤價
*增列公斤價欄*
*公斤價以批價為準(辦別單位欄公斤時)*
再乘0.6則為台斤價
*其餘單位則不顯示台斤價.公斤價(0或空格)*

客戶訂購表1
*客戶訂購表增加單位欄*
單價是以項目編號批價為單價

*增列查詢關鍵字欄*
查詢關鍵字後列出項目編號及項目名稱

*金額以單位辦別(斤).再以(數量轉換成兩)*(單價除16)=金額*
例如1.15斤單價12及1.10斤.單價12.及1.08斤單價12算法
(1*16(斤)+15兩)*(12/16)=23.25
(1*16(斤)+10(兩))*(12/16)=19.5
(1*16(斤)+8(兩))*(12/16)=18
*金額以單位辦別(公斤).再以(數量)*(單價)=金額*
其餘單位與公斤算法一樣
現在差別是單位(斤)時算法與單位(公斤)或其他單位算法差別

*項目分類中是否可再增列向0表方式.點進後會跑到定位(類是下拉清單方式)*

訂貨明細表1
*增列單位欄*

送貨單1
*送貨單增加單位欄*
*增列調閱及覆蓋*
調閱由日期及客戶名調閱出單號
再由送貨單載入單號調出該筆資料作為修改或是列印
*經修改後.覆蓋回訂貨明細表*
因訂貨明細表為永久資料.所以單號不變.經修改後
可能會增列或是減少.或者數量.單價.金額.變更.所以不能覆蓋到前一筆單號或下一筆單號資料

車主結款表1
*增列單位欄*
*車主結款單價以項目編號單價為主*
出貨作業D版v01_10905.zip (949.12 KB)
敏而好學,不恥下問

TOP

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題