[VBA ] 請問EXCEL裡我要寫一個自定函數？
請教高手
因為公司要由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) 找出來是文字的部份就不行了
Function TOBENUM(str1 as string) as string
IF str1 = [0-9] THEN
select case str1
case 1
TOBENUM = 1
case 2
TOBENUM = 2
...
end select
ELSE
select case str1
case "A"
TOBENUM = 10
case "B"
TOBENUM = 11
...
end select
END IF
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.87.205
討論串 (同標題文章)
以下文章回應了本文 (最舊先)：
完整討論串 (本文為第 1 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
