檔案項別判讀後~增加工作表，合併檔案，填入數字，標示底色等語法。 - Excel程式區

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

11^# 跳轉到 »

發表於 2019-5-12 17:23 | 只看該作者

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

12^#

發表於 2019-5-13 19:48 | 只看該作者

利用零星時間湊的, 參考看看, 有不足的自行處理, 其它沒時間:

增加工作表v1.rar (91.62 KB)

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

13^#

發表於 2019-5-14 12:39 | 只看該作者

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

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

14^#

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

15^#

發表於 2019-5-15 01:38 | 只看該作者

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

16^#

發表於 2019-5-15 09:48 | 只看該作者

回復 14# Airman

忘了一道加工:
fx(3) = "=(MOD(SUM(--MID(B2&""00"",{1,2},1))-1,10)+1)*100+B2" '合數

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

17^#

發表於 2019-5-15 16:24 | 只看該作者

回復 16# 准提部林
fx(3) = "=(MOD(SUM(--MID(B2&""00"",{1,2},1))-1,10)+1)*100+B2" '合數
准大:
原來小弟只改為"=MOD(SUM(--MID(B2&""00"",{1,2},1)),10)*100+B2"是錯誤的^^"
OK了~謝謝賜正~感恩^^