項目經排序後複製另工作表 - Excel程式區

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 200
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

24^# 跳轉到 »

發表於 2020-6-12 18:32 | 只看該作者

謝謝准大老師
C版以合需求.再加上D版更加完美
謝謝你辛勞.實感萬分

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

23^#

發表於 2020-6-12 17:08 | 只看該作者

加入"庫存", 及"客戶結款表"

出貨作業D版v01_10905.rar (373.9 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

22^#

發表於 2020-6-9 10:32 | 只看該作者

回復 20# BV7BW

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

21^#

發表於 2020-6-8 12:18 | 只看該作者

回復 20# BV7BW

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

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

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 200
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

20^#

發表於 2020-6-8 02:09 | 只看該作者

回復 19# 准提部林

准大老師你好
謝謝你開發A.B.C.版
現在我使用C版.在B.C版中操作一樣順手

在A版中我加上保護工作.做到最後有點成功但最後面出現出單號.或日期沒填
還要再按一次客戶訂購表輸入.才能完成輸入送貨單動作.現在使用B.C版不好加入保護工作
但B.C板好像不好設定

在這我再做1規劃案例.規劃好再上傳請教目前使用C版已可

在B或C版中
客戶訂購表中增加存量.合計金額

訂貨明細表.新增合計金額項目.(表列出來只表列1次也就是說每1筆單號只表列1次合計金額)
(如不能只好跟其他一樣往下表列)

項目編號中新增存量
在項目表中增列存量格.輸入庫存量後.項目品項轉為紅色字體表示該品項有庫存

為何只要表列1次原因是好區分單號間隔.例如第1筆單號有3項在他第1項表列出合計金額第2.3項
可不用表列.第2筆單號則也跟第1筆作法一樣

在車主結算表後新增1工作表(客戶結算表)標題為:客戶(B2).日期 (E.F.G(1).及.E.F.G.(2))
序號.客戶.編號.車編.單號.日期.合計金額
(各為B3.C3.D3.E3.F3.G3.)(E1.E2為往後.F1.F2.為日期.G1.G2.為往前)
客戶為下拉清單.日期以上下日期為調閱(如109年6月1日至109年6月6日中)在往訂貨明細表中查調出
客戶.編號.車編.單號.日期.合計金額)序號為""有資料才有號碼

活頁簿1.zip (225.95 KB)

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

19^#

發表於 2020-6-6 11:27 | 只看該作者

回復 18# BV7BW

如果不排斥使用userform表單, 可試試:

出貨作業C版v01_10905.rar (333.8 KB)

看這樣的輸入工作可省下多少時間~~

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 200
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

18^#

發表於 2020-6-6 05:15 | 只看該作者

回復 17# 准提部林 [/b
謝謝准大
細心為勞
這幾天使用.效能超好用.不但節省很多不必工作時間.更超越跨市場工作
這版必定會更好我先演練.在跟准大回報..謝謝准大

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

17^#

發表於 2020-6-5 13:56 | 只看該作者

滑鼠滾來滾去, 滾得頭暈, 弄個進階版, 看習不習慣???

出貨作業B版v01_10905.rar (333.82 KB)

[輸入表]右邊的記錄區, 簡直""雞肋"",
改成[暫存檢視區], 可預先比對是否正確輸入!!!

TOP

BV7BW

中學生 Rank: 2

帖子: 200
主題: 22
精華: 0
積分: 234
點名: 200
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

16^#

發表於 2020-6-2 11:05 | 只看該作者

回復 15# 准提部林

謝謝准大老師
改好了.今天工作非常順手車主也很快上手
謝謝你...准大老師

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

15^#

發表於 2020-6-2 09:49 | 只看該作者

回復 14# BV7BW

這裡我少算了一格
With [採購需求表!A2].Resize(N, 4)
   .Parent.[D1] = DD
   .Value = Brr
   .Sort Key1:=.Item(1), Order1:=xlAscending, _
         Key2:=.Item(2), Order2:=xlAscending, Header:=xlNo
   For i = N + 1 To 3 Step -1 '3 應改為 2
      If .Cells(i, 1) <> .Cells(i - 1, 1) Then
         .Cells(i, 1).Resize(1, 4).Insert Shift:=xlDown
      End If
   Next i
End With

'==============================

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]