[アクティブセルの列番号を英文字に変換する]



アクティブセルの列番号は、「MsgBox ActiveCell.Column」で表示できます。・・・が、列番号は「A列　--->　1」、「B列　--->　2」、「3,4,5,6・・・」と数字で表示されるので、何列かを知りたいときに少し考えなければなりません。マイクロソフトのホームページに「列番号を英文字に変換する方法」が記載されていましたので、一部変更して紹介します。　詳細は下記URLをご覧になって下さい。

[Excel で列番号を英文字に変換する方法 / マイクロソフト]
http://support.microsoft.com/kb/833402/ja

---

Private Sub ClmnConvertToLetter()

Dim iCol As Integer
Dim iAlpha As Integer
Dim iRemainder As Integer
Dim ConvertToLetter As String

iCol = ActiveCell.Column 'アクティブセルの列番号

iAlpha = Int((iCol - 1) / 26)
iRemainder = iCol - (iAlpha * 26)

If iAlpha > 0 Then
　ConvertToLetter = Chr(iAlpha + 64)
End If

If iRemainder > 0 Then
　ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
End If



MsgBox ActiveCell.Column
MsgBox ConvertToLetter



End Sub

---