'/** ' * Excelの列番号から、A1形式の文字を返す。 ' * @param columnNumber Excelの列番号 ' */ @return String A1形式のExcel列番号 Private Function ColumnNumberToString(columnNumber As Integer) As String Dim columnString As String '戻り値用 Dim uBit As Integer '上位桁用 Dim remain As Integer '余り用
If columnNumber <= 26 Then '列番号 <= 26 ("A" - "Z") columnString = Chr(columnNumber + 64) Else uBit = Int(columnNumber / 26) '列番号 > 26 ("AA" - "ZZ") remain = columnNumber Mod 26 '列番号を26で割って、余りを出す If remain = 0 Then columnString = Chr(uBit + 63) & "Z 'Chr(63) = 'A' Else columnString = Chr(uBit + 64) & Chr(remain + 64) End If End If ColumnNumberToString = columnString 'A1形式の列文字を返す End Function
