エクセルＶＢＡにて アルファベットを数字に変換

エクセルで、例えば
Ｊ列は１０列目で、
ＡＢ列は２８列目ですよね。

ＶＢＡにて
入力がＪだったら１０を出力、
ＡＢだったら２８を出力
してくれるコードってどう書けばいいのでしょうか？

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2006/08/04 17:24

一例です。

Sub Retuno()
X = InputBox("列を示す文字列を入力してください。")
Y = Range(X & "1").Column
Z = MsgBox(X & "は" & Y & "です", vbOKOnly)
End Sub

この回答へのお礼

回答ありがとうございます。
エクセルＶＢＡを使うならこの方法が一番シンプルで
良いですね。

お礼日時：2006/08/04 22:08

No.3 回答者： M-SOFT#2 回答日時： 2006/08/04 20:26

こんばんは。

＞入力がＪだったら１０を出力
ということは、入力したセルの列番号を数値で出力したいと言うことですね。

シートモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Column
End Sub

としみてください。

この回答へのお礼

回答ありがとうございます。
>ということは、入力したセルの列番号を数値で出力したいと言うことですね。

そうではなくて、他の方の回答が質問の意図です。

お礼日時：2006/08/04 22:12

No.2 回答者： Wendy02 回答日時： 2006/08/04 19:20

こんばんは。

現在のところは、二桁までです。
ユーザー定義関数を作りました。"ZZ" まで、出力可能です。
大文字・小文字は可能ですが、全角は受けないようにしてあります。


Sub Test()
Dim d As Integer
　d = Alpha2Num("AB")
　 MsgBox CStr(d)
End Sub


Function Alpha2Num(ByVal arg As String)
　Dim i As Integer
　Dim j As Integer
　arg = StrConv(arg, vbLowerCase)
　If arg Like "[a-z]*" Then
　　If Len(arg) = 2 Then
　　　i = (Asc(Mid(arg, 2, 1)) - 96)
　　　j = (Asc(Mid(arg, 1, 1)) - 96) * 26
　　Else
　　　i = (Asc(arg) - 96)
　　End If
　End If
　Alpha2Num = j + i
End Function

この回答へのお礼

回答ありがとうございます。
このような答えを期待して質問しましたが、エクセルを使うなら
ＮＯ１の方の回答がシンプルで良いかも。

お礼日時：2006/08/04 22:10