Функция для получения буквенного имени колонки по ее индексу

Примечание: GetColNameByIndex(28) будет равно "AB".
Очень удобная для обработке колонок в цикле, когда Cells не применимо.

Function GetColNameByIndex(i As Integer)
         If (i > 0) And (i <= 26) Then
                  GetColNameByIndex = Chr(i + 64)
         ElseIf (i > 26) Then
                  GetColNameByIndex = Chr((i - 1) \ 26 + 64) + Chr((i - 1) Mod 26 + 65)
         Else
                  Error (5)
         End If
End Function

E-Mail: art0043@km.ru

ART_43 Home Site