papaya

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-7-26 06:50 | 顯示全部帖子

[發問] 依據InputBox填入的日期顯示資料

測試檔︰

依據InputBox填入的日期顯示資料.rar (23.32 KB)

請問︰以下程式的需求語法(2003版)應該如何編寫？
謝謝！

需求︰
1_先設立1個可輸入日期(yyyymmdd)的InputBox

2_在InputBox輸入X日期後，即可將該日期填入"七政","八卦","五行","六沖","合數","生肖","均值","尾數"的各工作表(以下簡稱"Arr”)的A1，
並將DATA的A欄=X日期的下1列之B︰H數值填入Arr ，如果該B︰H="”時，則Arr的A1也="”。

3_將完成第2項的"Arr"輸出為1個獨立檔案，檔案名稱="大樂透_遺漏空總統計表_輸入InputBox的日期”。
請詳見InputBox的日期=202010和20200717和20200721的三個效果檔範例。

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

2^#

發表於 2020-7-27 00:03 | 顯示全部帖子

回復 2# n7822123
不好意思，因為剛接觸VBA，還不很清楚編寫的規矩，尚請見諒

因為DATA的資料是下載自APP軟體，所以請將DATA日期格式改為如2020/1/1,2020/7/17,2020/10/7即可，
InputBox輸入的日期格式，就配合更改後的DATA日期格式。
謝謝您

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

3^#

發表於 2020-7-27 02:36 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-27 02:45 編輯

回復 4# n7822123
不好意思，夜深了。還勞駕您費神解題~不勝感激

測試成功

明天再仔細拜讀貴程式語法~希望自己有能力消化~再次致謝

=====================================
另一題~將全部的需求一次提出~原本是希望能讓解題的語法有其連貫性和一致性，
沒想到反而顯得需求複雜而令人卻步~哈~哈~

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

4^#

發表於 2020-7-27 05:27 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-27 05:30 編輯

回復 4# n7822123
不好意思，請問:
列38 .Sheets(Array(1, 2, 3)).Delete
Array(1, 2, 3)是指什麼範圍的工作表被刪除了?
謝謝您^^

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

5^#

發表於 2020-7-27 14:49 | 顯示全部帖子

回復 7# n7822123
謝謝您的耐心說明^^

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

6^#

發表於 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”。

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

7^#

發表於 2020-7-28 06:38 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-28 06:48 編輯

忘了說明一點︰
因為只有第1次在InputBox輸入日期時，有需要用到.CSV檔案來產生.XLS檔案，
其餘後續再輸入的日期，就直接比對由第1次所產生的.XLS檔案即可，
所以您只要取測試檔中的子資料夾(轉換後的XLS)內的4個XLS檔案來測試就可以了
謝謝您

TOP

papaya