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

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

11^# 跳轉到 »

發表於 2020-5-31 12:16 | 只看該作者

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

回復 10# BV7BW

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

12^#

發表於 2020-6-1 19:24 | 只看該作者

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

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

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

TOP

BV7BW

中學生 Rank: 2

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

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

13^#

發表於 2020-6-1 22:29 | 只看該作者

回復 12# 准提部林

謝謝准大老師

辛苦了

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

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

14^#

發表於 2020-6-2 00:13 | 只看該作者

回復 13# BV7BW

謝謝准大老師

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

第二版備用版.zip (397.04 KB)

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

BV7BW

中學生 Rank: 2

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

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

16^#

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

回復 15# 准提部林

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

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

17^#

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

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

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

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

TOP

BV7BW

中學生 Rank: 2

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

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

18^#

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

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

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

19^#

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

回復 18# BV7BW

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

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

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

TOP

BV7BW

中學生 Rank: 2

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

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

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

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

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