[發問] 檔案項別判讀後~增加工作表，合併檔案，填入數字，標示底色等語法。

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2019-5-7 18:12 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-7 18:22 編輯

補充︰
為提高執行的效率，各需求的編寫順序，請解題者擇宜因應；
只要【完成檔】的結果正確即可。
另外~【完成檔】的工作表的順序，亦由解題者擇宜排列。
謝謝!

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

3^#

發表於 2019-5-10 16:39 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-10 16:42 編輯

回復 1# Airman
更改本題需求︰

增加工作表.rar (78.74 KB)
備註︰
本題以2個日期項別的名稱檔案(即共有2個檔案)作為判讀和測試。

需求︰
將資料夾內，名稱有西元年月日的全部檔案~以複製各檔案內現有的工作表內容，各增加1個工作表~
新增工作表名稱="前3小；並請將索引標籤標示黃色。

以上懇請各位先進惠予賜教為禱！謝謝！

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2019-5-11 13:41 | 顯示全部帖子

回復 4# 准提部林
准大:您好!
索引標籤標示黃色的需求忽略也可以。
這一題小弟的重點困難是在"判讀檔案"(選取檔案)的語法編寫^^"
敬請賜教!謝謝您^^

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

5^#

發表於 2019-5-11 13:52 | 顯示全部帖子

回復 5# Scott090
Scott090大大:您好!
測試答案OK了!
正在研讀貴語法中。
謝謝您^^

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

6^#

發表於 2019-5-11 23:00 | 顯示全部帖子

回復 5# Scott090
測試檔:

新增資料夾_0511.rar (60.76 KB)
Scott090大大:您好!
有個小問題，煩請賜正~
如果被判讀(測試)的檔案只有1個時，會產生溢位警示框~

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

7^#

發表於 2019-5-12 17:23 | 顯示全部帖子

回復 10# Scott090
Scott090大大:您好!
謝謝您的精心修正~連當沒有受測的檔案或檔案都已判讀過時，會有提示框。
測試成功~感恩^^

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

8^#

發表於 2019-5-14 12:39 | 顯示全部帖子

回復 12# 准提部林
准大:
謝謝您撥冗賜教!感恩^^

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

9^#

發表於 2019-5-15 00:59 | 顯示全部帖子

回復 12# 准提部林

新增資料夾(0515).rar (61.42 KB)
准大:
謝謝您的不吝賜教和指導~該補的已自行補足~
只是列13的合數公式怎麼修正答案都不對^^"
fx(3) = "=SUM(--MID(B2&""00"",{1,2},1))*100+B2" '合數
合數=以01~49各個數字的(個位數+拾位數)/10，取其餘數相同的數字為一個組合，然後依據餘數=1,2,3,4,5,6,7,8,9,0的順序，將各個組合以由小而大依序填入B2︰AX2
即B2︰AX2 = 01 10 29 38 47 02 11 20 39 48 03 12 21 30 49 04 13 22 31 40 05 14 23 32 41 06 15 24 33 42 07 16 25 34 43 08 17 26 35 44 09 18 27 36 45 19 28 37 46

以上敬請賜正!謝謝您^^

新增資料夾(0515).rar (61.42 KB)

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

10^#

發表於 2019-5-15 01:38 | 顯示全部帖子

承14樓
筆誤修正~
B2︰AX2改為B1︰AX1
謝謝!