Excel座標関係の汎用関数１

PC 技 言

列番号（長整数）からエクセル独自の列記号（アルファベット列表記）を得る。A列が1。範囲外の場合はエラーを出さずに空文字列を返す。

Function XToCol(X As Long) As String
    ' 列番号を列記号に変換
    Const Cols = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim iX As Long
    
    If (1 <= X) And (X <= 256) Then
        iX = X - 1
        XToCol = Trim(Mid(" " & Cols, (iX \ 26) + 1, 1) & Mid(Cols, (iX Mod 26) + 1, 1))
    Else
        XToCol = ""
    End If
End Function