對應日期貼盤點資料 - Excel程式區

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

21^# 跳轉到 »

發表於 2021-7-20 20:09 | 只看該作者

本帖最後由 n7822123 於 2021-7-20 20:14 編輯

回復 20# 軒云熊

感謝　n7822123前輩提點　現在已經可以放到陣列了　
合併儲存格的"欄數"(Columns.Count)不知如何計算　＞＂＜　

參考看看

Set Rg = .Cells.Find("盤點", , , xlWhole) '找值="盤點"的表格
If Not Rg Is Nothing Then
C0 = Rg.Column '來源表起始欄
C_Cnt = Rg.MergeArea.Columns.Count '資料欄數
End If

他的表格其實本身有Bug，如下圖250g前面有的有空白，有的沒有

而且品名有很多只差別一個數字(Ex:鮮乳1~N)

所以品名也不能模糊比對，若樓主回饋有問題，先檢查資料吧~

這要我來寫，可能要寫一堆防呆程式，不然哪裡有問題都抓不到

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

22^#

發表於 2021-7-20 22:18 | 只看該作者

回復 20# 軒云熊
這個程式檔,只有一個stock的程式,所以就先測試這個
(低脂) 250g無法貼上盤點資料

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

23^#

發表於 2021-7-20 23:06 | 只看該作者

本帖最後由 n7822123 於 2021-7-20 23:14 編輯

回復 20# 軒云熊
回復 22# PJChen

我是寫好了....迴圈最多就2層，但應該也沒那麼好懂

註解已經寫好寫滿了，一半都是註解~

主要是格式不太有規律

不然小小的資料搬移程式不用寫到那麼多行...

感覺寫得有點冗長.....應該可以再簡化一些

不過先請樓主確認功能面吧~

0720_阿龍.rar (929.73 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

24^#

發表於 2021-7-20 23:30 | 只看該作者

本帖最後由軒云熊於 2021-7-20 23:35 編輯

回復 22# PJChen

謝謝n7822123前輩　先下載來研究一下　:P

回　PJChen大大　(低脂) 250g　的日期改一下　就可以了　因為　日期對不到所以沒有貼上

萬達庫存表 2021.07　日期　與　多客戶盤點表　stock　日期大部分都不相同　直有　(原味)250g　　1/5 1/6 1/7　日期是正確的

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

25^#

發表於 2021-7-21 00:10 | 只看該作者

回復 24# 軒云熊

沒錯，我在測試時也發現日期有2021 與 2022 兩種(有的保值期1年，有的才45天)

所以我把很多資料都改過了，為了測試

如果有看不懂的地方，再發問吧~用了一些技巧，

如果不用的話迴圈會變多，不容易Debug

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

26^#

發表於 2021-7-21 14:58 | 只看該作者

回復 22# PJChen

有空再幫我試試看有沒有問題  我是分開寫而且迴圈也比較多
測試的時候日期可能要修改一下有些檔案日期對應不到

n7822123前輩的寫法我還要再研究  慢慢吸收 ^^"
感謝  n7822123前輩不然會卡更久...呵呵..

0721.rar (937.48 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

27^#

發表於 2021-7-21 22:16 | 只看該作者

本帖最後由 PJChen 於 2021-7-21 22:20 編輯

回復 26# 軒云熊

熊大好,
舊的測試檔,都沒什麼問題,我會再用正式的檔案測看看
另,我新增了一個測試檔,發現無法運作,請幫我看一下

R_0721.rar (279.96 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

28^#

發表於 2021-7-21 22:19 | 只看該作者

回復 23# n7822123
n大好,
我下載附件測試,但程式都沒有反應,沒貼上任何資料,不知是有什麼特別測試方法嗎?

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

29^#

發表於 2021-7-21 22:52 | 只看該作者

本帖最後由 n7822123 於 2021-7-21 22:54 編輯

回復 28# PJChen

我剛剛下載了論壇的檔案，測過沒問題呀

只開巨集檔，按下面按鈕就跑完了

你可以把多客戶盤點表，巨集要填的內容都刪除

執行後看看，因為給的附件應該是執行過的了

如果你都沒改程式的話，預設都放在同一個資料夾下

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

30^#

發表於 2021-7-22 01:42 | 只看該作者

回復 27# PJChen

因為工作表的Format(SP(2), "D") 與 x 對不到改用文字格式比對看看
建議用 n7822123 前輩寫的會比較好結果是一樣的效率較高

Macro_1.rar (29.95 KB)

TOP

[發問] 對應日期貼盤點資料

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

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