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

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

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　日期是正確的

　暱稱: 阿龍

帖子: 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)

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

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無法貼上盤點資料

　暱稱: 阿龍

帖子: 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)

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

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

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

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

20^#

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

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

回復 14# PJChen

感謝　n7822123前輩提點　現在已經可以放到陣列了　
合併儲存格的"欄數"(Columns.Count)不知如何計算　＞＂＜　
我是用　End(2).Column - 1　的方式　不知道會不會有問題　目前看起來是還可以
但迴圈卻變得更多了呵呵．．先不管了　先請PJChen大大幫我試試看　ｓｈｅｅｔｓ（"stock" ）部分有沒有問題　感謝

0720_1.rar (507.96 KB)

　暱稱: 阿龍

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

19^#

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

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

回復 18# 軒云熊

結合你的說明，以及前面討論串，終於看懂了
其實只是A檔A表A格式搬移資料到 B檔B表B格式
難在不固定表格，要找需要的資料範圍

因為有２種格式分別互相對應　　
找到相對應的日期就把數值貼上（多客戶盤點表）

來源表盤差下面的 XX箱，可以用合併儲存格"列數"(Columns.Count)，判斷是2 Row 還是 3 Row

我現在問題出在要比對的儲存格位置沒有固定
列如：萬達庫存表
品名欄位是合併狀態

你說的是"E欄"的品名吧
合併儲存格，只有第一格有資料，其餘都是空白
利用此邏輯判斷好，是可以處理的
但我發現 E欄與 BG欄都有品名，還互相衝突ˊˋ

右邊　Ｕ～ＡＦ位置不固定　不一定是Ｕ～ＡＦ也有可能是從Ｖ開始或著其它欄位開始
目前發現　有＂盤點＂字樣的位置　可以找出範圍　但不知道如何做

看了各表格，確實只能用"盤點"來確定範圍
本來想用比較少用的字樣"盤差"來找範圍
但發現有的日期在盤差後面，有的在前面......(這格式不科學阿)，所以還是盤點吧
針對這種不固定範圍的表格，須要先找一個 "不重複、唯一" 的關鍵字來"定位"
看了下來源表格，盤點在同一張表格也是唯一的，所以可以用
利用Range物件的"Find"方法可以找關鍵字的欄位

請問前輩　要怎麼把相對應的　品名　與　日期　還有日期下方的數值　正確的放到陣列　方便做比對
如果直接全部塞到陣列不好做比對　因為工作表的格式內容太多而且會變更複雜

上面那一步確認範圍之後，就可以塞進陣列了
結合合併儲存格的邏輯，只有第一格有資料
所以起始欄可找"盤點"字樣的欄位，終點欄位可以利用該合併儲存格的"欄數"(Columns.Count)來計算
起點列看起來蠻固定的，都從第7列開始，或者找"盤點"列+2
終點列看起來可以用A欄(保存天數)的末端資料來判斷

好啦，你的問題我都解答完畢了
我還沒要開始寫
你先挑戰看看吧~

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

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

18^#

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

回復 16# n7822123

抱歉前輩　忘記附上檔案

0720.rar (504.38 KB)

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

17^#

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

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

回復 16# n7822123

n7822123前輩好
樓主的需求是
自動開啟指定的活頁簿檔案多客戶盤點表
分別有2個工作表 2種格式
日期欄位 BH~CF  的範圍之間
"盤點" 工作表 (STEP２)ＲＯＷ跳２格
"stock" 工作表 (STEP３)ＲＯＷ跳３格

將E4的日期與 DI欄位的日期做比對
列如: DI6 =  D+0  E4 就扣一天
         DI6 =  D+1 則  保持不變
在某些位置有穿插帶公式的儲存格保持不變
要比對的項目有客戶品名還有日期欄位 BH~CF  的範圍之間
－－－－－－－－－－－－－－－－－－－
開啟要比對的檔案　
這裡也是用指定檔名的方式開啟
列如：多客戶盤點表　ＦＯＲＭＡＴ（E4，＂Ｄ＂）與　萬達庫存表　相對應的日期工作表ＳＨＥＥＴＳ（Ｘ）
－－－－－－－－－－－－－－－－－－－
萬達庫存表　是對應　多客戶盤點表　的　"stock" 工作表 (STEP３)ＲＯＷ跳３格
因為有２種格式分別互相對應　　
找到相對應的日期就把數值貼上（多客戶盤點表）
我現在問題出在要比對的儲存格位置沒有固定
列如：萬達庫存表
品名欄位是合併狀態
右邊　Ｕ～ＡＦ位置不固定　不一定是Ｕ～ＡＦ也有可能是從Ｖ開始或著其它欄位開始
目前發現　有＂盤點＂字樣的位置　可以找出範圍　但不知道如何做
請問前輩　要怎麼把相對應的　品名　與　日期　還有日期下方的數值　正確的放到陣列　方便做比對
如果直接全部塞到陣列不好做比對　因為工作表的格式內容太多而且會變更複雜

　暱稱: 阿龍

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

16^#

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

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

回復 13# 軒云熊
回復 14# PJChen

有時候不是我不想幫，是我連需求都沒看懂......

感覺樓主的問題都是實務上的問題，對不熟你們公司表格填寫、運作方式的人來說，有點複雜

誠心建議，樓主可以試著把複雜的問題，簡單化之後再發問，一定會比較多人幫忙

因為看你之前的發問，推測出你有一些些的VBA基礎的 (我記得你有問過Ubound之類的)

程式可以像拼圖一樣，可拆分成很多小部分的

假如你的需求需要程式寫N個步驟，但你只有某步驟卡住不會，其他功能你都可以自己寫出來

只要把你不會的部分，單獨拿出來發問即可，之後你就可以組合出你要的完整功能

小到新增工作表、複製1列資料，都可以當作步驟

我們在解需求的時候，也是會先想整體操作步驟(程式主架構)

再一個個完成一開始想的步驟，你需要做的只是，把你原本"手動"操作的部分

分步驟一個個列出來，再試著寫這些步驟，寫不出來的部分，就發問

以下舉例說明~

假如你的需求需要程式做10個步驟，但你只有步驟6卡住不會

單獨把步驟6拿出來發問，問到答案之後，自己組合出你要的功能

當然測試檔要先自己完成步驟1~5(手動or寫VBA)，再附到論壇上發問

Sub 完整功能主程序()
  Call 前面會的副程序 '步驟1~5
  Call 步驟6
  Call 後面會的副程序 '步驟7~10
End Sub

Sub 步驟6()
'須發問，不會做的部分
End Sub

Sub 前面會的副程序()
步驟1
步驟2
步驟3
步驟4
步驟5
End Sub

Sub 後面會的副程序()
步驟7
步驟8
步驟9
步驟10
End Sub

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