依據InputBox填入的日期顯示資料 - Excel程式區

papaya

中學生 Rank: 2

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

11^# 跳轉到 »

發表於 2020-7-29 14:03 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-29 14:06 編輯

補註 :
如果搜尋的時間會耗時過長，就由我自行測試~免得耽擱您寶貴的時間。
倘若測試後，有什麼要補充的，我再提出即可。
謝謝您

TOP

papaya

中學生 Rank: 2

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

12^#

發表於 2020-7-29 14:48 | 顯示全部帖子

再補註 :
測試檔中，只有列出4個被搜尋的檔案【EX :遺漏大數據-大樂透-CC排序-空數總覽-E-FFFFF-(2020-07-21)等檔案】~以利作說明範例；
然後在InputBox分次輸入 2020/5/19 和 2020/7/21 作測試。

實務上~
每輸入1個日期~執行後~
被搜尋的檔案的總個數，是=程式檔的8個工作表內的各項目+名次的全部組合個數總和；
所以執行時間會很久是正常的。
以上請參考~謝謝您^^

TOP

papaya

中學生 Rank: 2

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

13^#

發表於 2020-7-29 21:52 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-29 22:06 編輯

回復 13# n7822123

實務上被搜尋的檔案總個數。.rar (6.99 KB)
將"被搜尋的檔案"總個數(共=469個)列出~以利解題。
請參考~謝謝您

=========================================
PS :
勞駕您再下載1次.Rar壓縮檔~因為將已標示格式的文字內容貼上論壇，格式會都呈現無效狀態。必須再逐一重新標示，
重新標示格式的時間如超過15分鐘，就無法重新編輯~就如16樓無法在時限內完成"內文潤飾"的狀況(當時論壇系統不巧剛好有點小問題，等系統恢復後，就無法再編輯)。
謝謝您^^

TOP

papaya

中學生 Rank: 2

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

14^#

發表於 2020-7-29 22:37 | 顯示全部帖子

修正"實務上被搜尋的檔案總個數"內文的筆誤~
B欄+C欄更正為B欄&C欄

TOP

papaya

中學生 Rank: 2

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

15^#

發表於 2020-7-30 01:55 | 顯示全部帖子

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

回復 19# n7822123
感謝您肯耐心看完，也很高興您看懂了

就依據您的構想編寫即可~謝謝您

不急!您肯幫忙，我就已是萬幸了

TOP

papaya

中學生 Rank: 2

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

16^#

發表於 2020-7-30 13:48 | 顯示全部帖子

回復 21# n7822123
萬分感謝您詳細的文字註解，讓我能很快的消化程式碼的意涵，並能再將其轉成適用於今彩539的程式檔~感恩

另外~想在R2填入=InputBox輸入日期(EX : 2020/7/21)；在S2填入當次完成執行的檔案個數(EX : 4個)
請問 : 程式碼要怎麼增寫?
謝謝您

TOP

papaya

中學生 Rank: 2

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

17^#

發表於 2020-7-30 17:57 | 顯示全部帖子

本帖最後由 papaya 於 2020-7-30 18:01 編輯

回復 21# n7822123
測試檔 :

0730_TEST.rar (611.62 KB)
不好意思，我遇到1個問題~想自行嘗試解決，弄了老半天，卻一直無法解決~煩請您幫忙釋疑。謝謝您!
狀況1 :
在您的測試檔放進2個xls檔 :
遺漏大數據-大樂透-八卦排序-空數總覽-艮-第二第三第四第五最末-(2020-07-21)&遺漏大數據-大樂透-八卦排序-空數總覽-坤-第一第二第三第五最末-(2020-07-21)
以程式檔執行原來的4個xls檔和上述的2個檔~效果檔的E欄只有原來的4個xls檔的對應答案，八卦工作表的E欄為空白。

狀況2 :
將上述的程式檔和6個xls檔一到新的空資料夾，在執行程式島，效果檔的E欄全為空白。

疑惑~
為什麼狀況1的6個xls檔的AZ欄日期格式完全相同，為什麼原來的4個檔案能有有效執行，新加入的2個檔案卻不行?

如果是xls檔AZ欄的日期格式有問題，要如何增寫"將AZ欄日期格式更改為能執行的格式"之程式碼?
謝謝您^^

TOP

papaya