列の番号ではなく文字列で取得するには

質問

エクセル2003
Sub test()
MsgBox ActiveCell.Column
End Sub
で現在カーソルのあるセルの列番号「3」が取得させるのですが
「C」と言う風に列の文字列で取得するにはどうすればいいのでしょうか？
よろしくお願いします。

回答No.5

mitarashi · ベストアンサー

話の種に参戦してみます。
Sub test()
MsgBox strColumnNo(ActiveCell)
End Sub

Function strColumnNo(target As Range) As String
Dim strFormula As String

strFormula = "C" & target.Cells(1).Column
strFormula = Application.ConvertFormula(Formula:=strFormula, _
fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
strColumnNo = Left(strFormula, Len(strFormula) - InStr(strFormula, ":"))
End Function

参考URL：

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page7.htm

お礼

関数を使う技もあるんですね！
大変参考になりました。ご回答ありがとうございます。

回答No.4

imogasi

そうも出来る、という程度の内容ですが
Sub test02()
c = ActiveCell.Column
x = c Mod 26
y = Int(c / 26)
If y = 0 Then
z = Chr(x + 64)
Else
z = Chr(y + 64) & Chr(x + 64)
End If
MsgBox z
End Sub

お礼

試してみたらできました！
ご回答ありがとうございます。

回答No.3

xls88

Excel2000以降ならSplit関数が使えます。

MsgBox Split(ActiveCell.Address, "$")(1)

お礼

できました。大変参考になりました。ご回答ありがとうございます。

回答No.2

okormazd

Sub test()
Dim ca As String, n As Integer

ca = ActiveCell.Address
n = InStr(2, ca, "$")
ca = Mid(ca, 2, n - 2)
MsgBox ca

End Sub

お礼

やってみたらできました。
大変参考になりました。ご回答ありがとうございます。

回答No.1

NNAQ

Sub test()
Dim s As String

With ActiveCell
s = .Address(False, False)
s = Replace(s, .Row, "")
End With
MsgBox s

End Sub

お礼

大変参考になりました。ご回答ありがとうございます。