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

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

1^# 跳轉到 »

發表於 2020-5-29 18:41 | 顯示全部帖子

1) 看到第一表的, 大概都會眼花潦亂, 不知如何下手,
操作的人, 要從二千多行中去找要輸入的項目, 如茫海摸針, 滑鼠滾上滾下的, 有點累;
[紀錄數量]那欄, 之前是因那版本可做"參考"用, 現在對這版本來說意義已不大!
2) [送貨單]還要分成15/30/超過30, 來分別寫程式, 超過45的又將如何???
做成一張表(動態行數)不可以嗎? 非得這樣做, 原因在哪?

得消化一下如何整理頭緒, 先看看別人怎麼寫?

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2020-5-29 21:32 | 顯示全部帖子

還是很麻煩, 寫一堆程式, 慢慢看吧!!!

Xl0000191(出貨表-第一版)v01.rar (300.77 KB)

1) 分類跳轉, 想的也許覺得簡單, 可惜不切實用, 改用:下拉清清+CHANGE
2) 送貨單還是只用一表(只一表就要寫很多), 自動判斷行數及頁數, 列印區也是動態去抓,
只要設成"中一刀", 再調整邊界!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2020-5-30 09:18 | 顯示全部帖子

本帖最後由准提部林於 2020-5-30 09:27 編輯

稍修:

Xl0000191(出貨表-第一版)v01.rar (299.37 KB)

送貨單
1) 補加"車編"
2) 表尾"簽收人:", 改用-列印設定-頁尾

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2020-5-31 09:58 | 顯示全部帖子

回復 7# BV7BW

1) 送貨單用"單號查訽"載入, 當然可以
2) 可是: 訂貨明細表, 記錄並不完整, 比如:缺"單價","金額",
所以, 會調不出所需的資料; 且沒有金額欄, "車主結款"是如何得到金額???
3) 訂貨明細表--累積性的資料(資料庫性質), 當然可永久保存, 如想翻舊帳, 一清二楚,
怕資料太多嗎? 就要看你每天會輸入多少行數(不是單號數), 再預估一段時間後, 會累積了多少列資料,
以舊版office, 最多6萬列可用, 雖然新版本可放更多列, 但都會讓檔案有遲頓及操作困擾的問題,
尤其檔案中有"常駐公式", 更是雪上加霜,
解決辦法: 每個月做一個檔案, 將檔案以"年度月份"為別, 例如:金千里出貨作業10901,
到了二月, 將一月檔複製一份, 重新命名:金千里出貨作業10902,
再進入二月檔案, 刪除"訂貨明細表"一月資料(刪除前必須再次確認沒刪錯檔),
(提醒:excel很有機會遇到不知原因的閃退或損毀, 也可能因人為操作錯誤而讓必要資料儲存格移位(例如:插入/刪除欄列, 拖曳),
而造成vba無法執行或錯誤, 所以:輸入及操作前或固定時間, 將檔案備份到另一資料夾或隨身碟中, 以備萬一)

要想這版與前次我做的版本有同樣功能, 程式碼就是複雜, 只差輸入表不同而已~~

=============================

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2020-5-31 10:14 | 顯示全部帖子

回復 7# BV7BW

另外, 很重要的
表格的設計, 不只"標題列"文字要有所分別, 且各表之間若有相關, 其標題文字也應相同,
再則, 依各欄資料屬性, 必須預先設定其[格式],
例如"編號"及"名稱", 最好都"預先"設為"文字格式", >>先設定格式--再輸入內容,
而且最好以英文字元為開頭, 否則對純數字的編號, 公式會取不到(vlookup match)

送貨單:不想印框線
依我經驗, 列印時, 有時某些原因, 印出來會歪歪斜斜,
又或, 行數太多, 要核對時(得從左往右看--貨號>品名>數量>單價>金額), 還須用長尺一行一行移動來對,
故, 至少須印"橫線", 且"表頭/標題列/表身/表尾(簽核-列印設定)" 都要看來規規矩矩

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2020-5-31 12:16 | 顯示全部帖子

本帖最後由准提部林於 2020-5-31 12:18 編輯

回復 10# BV7BW

既是資料庫性質, 當然不能刪,
除第一表外, 此版要求其它功能皆與我之前的版本相同,
程式碼即同樣複雜, 要想自己維護, 還是相同難度,
所以, 問題回到原點, 沒有簡單又易懂的方法, 再做一版備用, 只是多花時間而已~~

同樣的東西, 卻要用輸入更麻煩的方式~~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2020-6-1 19:24 | 顯示全部帖子

除了第一張輸入表方式不同外, 其它都是前版本照樣寫,
只因表格位置不同, 全都要改寫一次, 真是有點累:

出貨作業A版v01_10905.rar (305.3 KB)

若有需要修改, 希望自己改得動~~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

8^#

發表於 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

准提部林