1をA、2をB・・・に変換したい

VB6で1をA、2をB、3をC・・・・に変換したいのですが、
そのような関数はありますでしょうか?
小文字から大文字に変換するUCase関数みたいなのがあると
嬉しいのですが。
逆のAを1、Bを2、Cを3・・・でも良いです。

No.3 回答者： redfox63 回答日時： 2014/10/30 20:51

組み込み関数では 無いので 自前で関数を作ることになるかと …

Function AbcToNum(ss as String) as String
　　dim b() as Byte, n as integer, w as string
　　' バイト型の配列に変換
　　b = strconv(ss, vbFromUnicode)
　　for n= 0 to ubound(b)
　　　　' ABCDEFGHI を 123456789 に変換
　　　　if b(n) >= &H41 and b(n) < &H4a then
　　　　　　b(n) = b(n) - &H10
　　　　end if
　　next
　　' 文字列に戻す
　　w = strconv(b,vbUnicode)
　　AbcToNum = w
End Function

逆の変換ならば if文の条件変更と b(n)に&H10を加算に変更で出来ます
　　　　if b(n) >= &H31 and b(n) < &H3a then
　　　　　　b(n) = b(n) + &H10
　　　　end if

No.2 回答者： trajaa 回答日時： 2014/10/30 20:19

変換対象の数字又は数値の上限は？

２６迄ならA~Zで対応出来るが
２７はどうする？
１００はどうする？
１０００はどうする？

No.1 回答者： kawais070 回答日時： 2014/10/30 18:29

Debug.Print Chr(1 + 64)

上記の実行結果は A となります。


Debug.Print Asc(UCase("A")) - 64
上記の実行結果は 1 となります。