n2col-列番号から列記号に変換 - mytips@wiki

n2col-列番号から列記号に変換

Public Function n2col(n As Long) As String
'-- 列番号を列記号に変換
' エラーのときは戻り値は空文字
'
   Dim r As String
   
   r = ""
   If 1 <= n And n <= 256 Then
       If 1 <= n And n <= 26 Then
           r = Chr(Asc("A") - 1 + n)
       Else
           r = Chr(Asc("A") - 1 + (Int(n / 26))) _
            & Chr(Asc("A") - 1 + (n Mod 26))
       End If
   End If
   n2col = r
End Function