- 帖子
- 323
- 主題
- 79
- 精華
- 0
- 積分
- 407
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-10-22
- 最後登錄
- 2022-1-18
|
9#
發表於 2020-7-28 01:18
| 只看該作者
本帖最後由 papaya 於 2020-7-28 01:32 編輯
回復 4# n7822123
承4#的解答(萬分感謝您詳細的文字註解)
續增需求︰
以主檔的Arr各工作表名稱(以下簡稱S)及S的B欄和C欄，搜尋.CSV轉換為.XLS後的檔案(以下簡稱D檔)名稱中之第3,4,5小段有相同"關鍵字"的檔案，
並複製D檔AZ欄=S的A1(或=InputBox輸入的日期)的日期之上1列的BA︰BS內容，貼上S之相對應E欄儲存格。
Ex1︰以InputBox=" 2020/5/15”為例~
將遺漏大數據-大樂透-七政排序-空數總覽-土-第二第三第四第五最末-(2020-07-21)的AZ21(2020/5/15)之上1列的BA20︰BS20內容，
貼上S=七政，B欄=土，C欄=第二第三第四第五最末，E欄=E7(=1,6,12,16,17,18,26,28,36,37,38,46,48,49)。
Ex2︰以InputBox="2020/7/21”為例~
將遺漏大數據-大樂透-生肖排序-空數總覽-狗-第二第三最末-(2020-07-21)的AZ2 (2020/7/21)之上1列的BA1︰BS1內容，
貼上S=生肖，B欄=狗，C欄=第二第三最末，E欄=E20(=14,16,17,18,22,25,27,31,32,33,35,48,49)。
其餘…….以此類推。
測試檔︰
 TSET.rar (171.88 KB)
以上 請您繼續賜教~謝謝您^^
備註︰
1_我對VBA還是處於敲門(尚稱不上入門)階段，所以對流程順序或相關的操作方式，還不清楚，
因此相關的流程順序和比對的母子體或方式都勞駕以您的構想為宜。謝謝您！
2_為因應每執行一次的CSV(由APP產生)的A欄日期格式，所以我自行將主檔操作的日期格式改為”yyyy/m/d”。
|
|
