標題: [發問] 項目經排序後複製另工作表 [打印本頁]

---

作者: BV7BW    時間: 2020-5-28 21:36     標題: 項目經排序後複製另工作表

本帖最後由 BV7BW 於 2020-5-28 21:38 編輯

準大.各位先進大家好
程式修改產生錯誤A1.A2部分
已重新建立表格
[attach]32104[/attach][attach]32104[/attach][attach]32104[/attach]

---

作者: 准提部林    時間: 2020-5-29 18:41

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

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

---

作者: 准提部林    時間: 2020-5-29 21:32

還是很麻煩, 寫一堆程式, 慢慢看吧!!!
[attach]32109[/attach]

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

---

作者: BV7BW    時間: 2020-5-29 23:50

回復 3# 准提部林


    謝謝准大

項目分類用下拉清單式剛好能配合第一版動態.真好
還是老師能想出來.....
再來我演練幾次.發現到送貨單上未列印到車編項次
我再演練幾次看看....真謝謝准大

---

作者: 准提部林    時間: 2020-5-30 09:18

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

稍修:
[attach]32112[/attach]

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

---

作者: BV7BW    時間: 2020-5-30 20:40

回復 5# 准提部林


准大老師好
第一版我演練好有幾地方須改
第二版我再演練幾次再跟你回報
謝謝你

---

作者: BV7BW    時間: 2020-5-31 03:22

回復 6# BV7BW

.准大老師
第二版已演練成功剩2地方需修改
單號問題未能轉換後+1只停留在當日001
送貨單出現未知數字(PS/送貨單是否可跟前提第3版一樣用單號查詢找出資料後再列印)
(如用單號查詢資料.那紀錄資料是否當日有效還是永久性.如永久性需在哪裡刪除怕過多資料)
以上2問題如修改好可成正式版
我想以老師之名作為標題.是否可行

---

作者: 准提部林    時間: 2020-5-31 09:58

回復 7# BV7BW

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

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


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

---

作者: 准提部林    時間: 2020-5-31 10:14

回復 7# BV7BW

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

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

---

作者: BV7BW    時間: 2020-5-31 11:38

回復 9# 准提部林

准大老師
用單號查調資料.是否在訂貨明細表中調閱.
如訂貨明細表以刪除該筆資料就無法再用單號調閱
訂貨明細表示要常駐不可先刪除.直能等到結帳完成才能刪除
這樣的話是否要再做一表格專用儲存等時間(月.年)再行刪除

---

作者: 准提部林    時間: 2020-5-31 12:16

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

回復 10# BV7BW


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

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

---

作者: 准提部林    時間: 2020-6-1 19:24

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

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

---

作者: BV7BW    時間: 2020-6-1 22:29

回復 12# 准提部林

謝謝准大老師   

辛苦了

這幾天我只睡幾小時都在忙.尤其在這月底.大多研想這問題
今晚在研練一下
謝謝准大老師...謝謝....

---

作者: BV7BW    時間: 2020-6-2 00:13

回復 13# BV7BW

謝謝准大老師

我在10點多算10點上不到1小時多就已演練成功
前幾版需3..4小時.爾且耗損列表紙中一刀紙37張
把幾項目都演練列印成功(太激動)盡快回報老師成果
這幾天我一直想要修改地方.老師都已想好了.更想得比我很好
(太神了.不愧達人就是達人老師)
我上傳我想改的與老師全相同又比我還好(老師看看就好)
我等幾位同仁向你致意

---

作者: 准提部林    時間: 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


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

---

作者: BV7BW    時間: 2020-6-2 11:05

回復 15# 准提部林


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

---

作者: 准提部林    時間: 2020-6-5 13:56

滑鼠滾來滾去, 滾得頭暈, 弄個進階版, 看習不習慣???
[attach]32126[/attach]

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

---

作者: BV7BW    時間: 2020-6-6 05:15

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

---

作者: 准提部林    時間: 2020-6-6 11:27

回復 18# BV7BW

如果不排斥使用userform表單, 可試試:
[attach]32127[/attach]

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

---

作者: BV7BW    時間: 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日中)在往訂貨明細表中查調出
客戶.編號.車編.單號.日期.合計金額)序號為""有資料才有號碼

---

作者: 准提部林    時間: 2020-6-8 12:18

回復 20# BV7BW

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

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

---

作者: 准提部林    時間: 2020-6-9 10:32

回復 20# BV7BW

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

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

---

作者: 准提部林    時間: 2020-6-12 17:08

加入"庫存", 及"客戶結款表"
[attach]32160[/attach]

---

作者: BV7BW    時間: 2020-6-12 18:32

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

---

作者: BV7BW    時間: 2020-6-13 02:10

回復 23# 准提部林


    准大老師
跟你回報
D版.送貨單只表列第1項目.
其餘不能表列.
懇請老師再幫看...
謝謝

---

作者: 准提部林    時間: 2020-6-13 16:51

回復 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 ..應是不小心刪掉了...小事...認真點去看..自己也可去修正的
'===========================================

---

作者: 准提部林    時間: 2020-6-13 16:58

從項目表中去維護庫存，如果是每天做？？？
不知要花多少時間？人可能都要變呆！！！
∼∼想了幾天，還是再弄個進階版∼∼
加個〔庫存表〕，新增庫存的〔維護〕及〔更新〕，並自動顯示〔庫存數〕及〔已出貨數〕：
[attach]32164[/attach]

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

---

作者: BV7BW    時間: 2020-6-13 18:39

回復 27# 准提部林

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



.

---

作者: 准提部林    時間: 2020-6-13 20:48

回復 28# BV7BW


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

---

作者: BV7BW    時間: 2020-12-24 19:42

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

項目編號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
*增列單位欄*
*車主結款單價以項目編號單價為主*
[attach]32871[/attach]

---

作者: 准提部林    時間: 2021-1-1 12:02

本帖最後由 准提部林 於 2021-1-1 12:03 編輯

回復 30# BV7BW


這要全部打掉重寫, 應不是一日二日可完成,
又涉往後需求改變或有bug及維護問題,
最好詢問是否有人願意有償付費專門寫程式.
我是沒辦法了!!!

1) 單位問題:同一商品是否有可能這次以"台斤"計價進貨, 有時又以"公斤"價進貨, 銷貨亦然?
   1.5台斤 = 1斤5兩 或 1斤8兩???
   1.1台斤 = 1斤1兩 或 1斤10兩???  若你打 1.10 表示1斤10兩, 但excel 它會自動變成 1.1, 那是無法正確判斷的;
     以"台斤"進貨, 但以"兩"出貨; 或以"公斤"進貨, 又以"公克"出貨; 以"打"進貨, 以"個數"出貨..其它以"包/箱"進貨而零散出貨...這都是太複雜
2) 送貨單"查詢"-"更改"-"回存"
   可惜沒有清單可供選擇輸入, 只能手動去輸入, 若用程式或公式帶出(項目編號工作表的設置, 對資料調閱非常不便)也是不太好用

其它問題要求都要寫一堆, 等是否有意願的人來吧~~


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

---

作者: BV7BW    時間: 2021-1-1 20:48

回復 31# 准提部林

謝謝准提部林老師
這幾天來我返復更改已有點進展.我不是改程式.只是改我需求.但更正過感覺怪怪的.看起來不太順眼.(.....)
我有看過老師在9年前討論過斤與公斤算法所以我知道這不是好更改的工程
現在這版本對我們非常好用.只是當初我沒想到很多細節.導致現在這狀況
我想在改好後再請教怕我表達不好.希望老師到時再指導
謝謝老師關心
祝老師 新年快樂 心想事成 萬事如意

---

作者: BV7BW    時間: 2021-2-11 02:02

回復 32# BV7BW

准提部林  老師你好  恭賀新禧 新春瑜快
上次跟老師提過109-05D版修改問題目前部分已可修改
在項目編號工作表中欄位只能到IV欄
不知要在何處修改增欄40格到KY欄
請老師提示
修改後目前還有幾個問題須項老師請教.等修改好一併請教
謝謝老師

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)