n7822123

回復 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)

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

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

下載 (36.46 KB)

2021-7-20 20:14

PJChen

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

n7822123

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

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

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

主要是格式不太有規律

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

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

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

0720_阿龍.rar (929.73 KB)

下載次數: 11

2021-7-20 23:03

軒云熊

回復 22# PJChen

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

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

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

n7822123

回復 24# 軒云熊

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

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

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

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

軒云熊

回復 22# PJChen

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

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

下載次數: 1

2021-7-21 14:50

PJChen

回復 26# 軒云熊

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

下載次數: 2

2021-7-21 22:16

PJChen

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

n7822123

回復 28# PJChen


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

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

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

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

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

下載 (20.45 KB)

2021-7-21 22:49

下載 (30.57 KB)

2021-7-21 22:52

軒云熊

回復 27# PJChen

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


Macro_1.rar (29.95 KB)

下載次數: 1

2021-7-22 01:33