カラムindex値(x座標)をExcelレンジのX部分(アルファベット部分)に変換する

＜分類：値変換＞
＜使用例：カラムindex値(x座標)をExcelレンジのＸ部分(アルファベット部分)に変換する＞
＜プログラム例＞

Sub 使用例()
   Dim x As Long
   Dim s As String

  'x座標28はレンジのx部分はAB
   x = 28
   
   s = 共通_カラムindexをレンジX部分に変換(x)

   MsgBox ("レンジx座表部分は" & s & "です")

End Sub

Function 共通_カラムindexをレンジX部分に変換(p1)
   Dim s As String
   
   s = Cells(1, p1).Address
   s = Replace(s, "1", "")
   s = Replace(s, "$", "")
   共通_カラムindexをレンジX部分に変換 = s
   
End Function