作者tyadsl (南じゃん)
看板Visual_Basic
标题[VBA ] 请问EXCEL里我要写一个自定函数？
时间Mon Oct 23 17:00:04 2006
请教高手
因为公司要由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