列番号を対応する列のアルファベットに変換する関数

' fncColumnLetter
' Excelで列番号を対応する列のアルファベットに変換する関数です。
' 引数:
'   intColumnNumber - 変換する列番号。
' 戻り値:
'   String - 対応する列のアルファベット。

Function fncColumnLetter(ByVal intColumnNumber As Integer) As String
    Dim strColumnLetter As String
    Dim intDividend As Integer
    Dim intModulo As Integer

    intDividend = intColumnNumber
    strColumnLetter = ""

    While intDividend > 0
        intModulo = (intDividend - 1) Mod 26
        strColumnLetter = Chr(65 + intModulo) & strColumnLetter
        intDividend = Int((intDividend - intModulo) / 26)
    Wend

    fncColumnLetter = strColumnLetter
End Function