返回列表 上一主題 發帖

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

本帖最後由 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)

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

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


ERR.png
2021-7-20 20:14
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

TOP

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

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

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

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

主要是格式不太有規律

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

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

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


0720_阿龍.rar (929.73 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

回復 22# PJChen

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

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

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

TOP

回復 24# 軒云熊

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

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

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

如果不用的話迴圈會變多,不容易Debug
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 22# PJChen

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

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

TOP

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

回復 26# 軒云熊

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

TOP

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

TOP

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

回復 28# PJChen


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

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

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

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

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

123.png
2021-7-21 22:49

321.png
2021-7-21 22:52
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 27# PJChen

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


Macro_1.rar (29.95 KB)

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題