※ 引述《tyadsl (南じゃん)》之銘言： : 請教高手 : 因為公司要由Barcode標籤的一串數字中找出所代表的日期 : FT5519M040056130139905 其中第15個字代表日期 : 第15位數的範圍是由1,2,3,~9,A,B,C,~V : 分別代表日期1號,2號,3號,~9號,10號,11號,12號,~31號 : 因此我用 MID(C5,15,1) 函數找出來是 3 : 我寫了一個自定函數，數字的部份可以判斷出來 : 當MID(C5,15,1) 找出來是文字的部份就不行了 其實...用EXCEL內的自訂函數就可以嚕:) 假設條碼的位址在A1 B1的公式就設成 IF(CODE(MID(A1,15,1))<=57, MOD(CODE(MID(A1,15,1)),48), MOD(CODE(MID(A1,15,1)),55)) 對電腦來說 數字1~9的編碼為49~57 字母A~V的編碼是65~86 因此用CODE函數取出第15個數字的編碼後 如果編碼小於等於57，代表他是數字 用48取餘數(MOD函數)後會得到1~9的數字 若是大於57，則是英文 以55取餘數後，則會得到10~31的數字 公式有點長... 試試看吧^^" -- 好像跟VBA完全沒關XD --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 221.169.7.130 ※ 編輯: Catbert 來自: 221.169.7.130 (10/24 01:41)