перевод колонок из цифр в буквы и обратно

[Bape}l{ka]

довольно часто перед мной вставал вопрос, когда было бы удобнее использовать числовые значения колонок, а не буквенные - так гораздо легче проводить операции с ними, но юзеру привычнее оперировать буквами..
и вот при построении диаграм я столкнулась с тем, что диапазон диаграммы задается именно буквами, а с числовыми значениями работает некорректно!

вобщем придумала функцию, которая цифры переводит в буквы... делюсь, может кому тоже пригодится))

Function NumbersToLetters(ColNo) As Variant
    Dim Letters(0 To 26) As String
    Dim Letter_1 As String, Letter_1_1 As String, Letter_1_1_1 As String
    Dim Povtor1 As Integer, Povtor2 As Integer
    Dim Ostatok1 As Integer, Ostatok2 As Integer, Ostatok3 As Integer

Letters(0) = ""
Letters(1) = "a"
Letters(2) = "b"
Letters(3) = "c"
Letters(4) = "d"
Letters(5) = "e"
Letters(6) = "f"
Letters(7) = "g"
Letters(8) = "h"
Letters(9) = "i"
Letters(10) = "j"
Letters(11) = "k"
Letters(12) = "l"
Letters(13) = "m"
Letters(14) = "n"
Letters(15) = "o"
Letters(16) = "p"
Letters(17) = "q"
Letters(18) = "r"
Letters(19) = "s"
Letters(20) = "t"
Letters(21) = "u"
Letters(22) = "v"
Letters(23) = "w"
Letters(24) = "x"
Letters(25) = "y"
Letters(26) = "z"

Povtor1 = 0
Povtor2 = 0
Ostatok1 = 0
Ostatok2 = 0

    If ColNo > 26 Then
        Povtor1 = ColNo \ 26
        If ColNo = Povtor1 * 26 Then Povtor1 = Povtor1 - 1
    End If
    
    If Povtor1 > 26 Then
        Povtor2 = Povtor1 \ 26
        If Povtor1 = Povtor2 * 26 Then Povtor2 = Povtor2 - 1
    End If
        
    Letter_1_1_1 = Letters(Povtor2)
    Ostatok2 = Povtor1 - (Povtor2 * 26)
    Letter_1_1 = Letters(Ostatok2)
    Ostatok1 = ColNo - (Povtor2 * 26 * 26) - (Ostatok2 * 26)
    Letter_1 = Letters(Ostatok1)
    MsgBox Letter_1_1_1 & Letter_1_1 & Letter_1 & vbCrLf _
           & Povtor2 & " " & Ostatok2 & " " & Ostatok1
    
    NumbersToLetters = Letter_1_1_1 & Letter_1_1 & Letter_1
End Function

'Sub Проверка_NumbersToLetters()
'Dim ColAlph As String
'    'yz = 676      zz = 702
'    'aaa = 703     bdz = 1482
'    'bfa = 1509    xfd = 16384 (максимальная колонка)
'    '
'    MaxCol = 16384 'Cells(2, ActiveWorkbook.ActiveSheet.Columns.Count).End(xlToLeft).Column
'    MsgBox MaxCol
'    ColAlph = NumbersToLetters(MaxCol)
'
'End Sub

вроде проверила, все нормально работает, но если кто найдет ошибку, пишите!

п.с.: надо еще обратную функцию бы, но пока некогда =ь

(2003 эксель)

[Казанский]

Bape}l{ka, хорошо!
Посмотрите еще варианты:
http://www.planetaexcel.ru/forum.php?thread_id=19063

[Bape}l{ka]

дааа... ну я догадывалась, что есть варианты попроще, но ничего не нашлось в то время Т_Т
ну ладна, зато сама)))

а перевод буквы столбца в цифру есть какое-нибудь легкий способ??

[EducatedFool]

а перевод буквы столбца в цифру есть какое-нибудь легкий способ??

конечно есть.
Используем предложенную мной функцию, только меняем тип преобразования - переставляем местами xlR1C1 и xlA1 в функции ConvertFormula, и немного изменяем код

[doober]

Можно и самописную.

 Private Function ConvertToInteger(ByVal lcAlpha As String) As Integer
 lcAlpha = UCase(lcAlpha)
       For n = 1 To Len(lcAlpha)
          ConvertToInteger = ConvertToInteger + (Asc(Mid(lcAlpha, n, 1)) - 64) * 26 ^ (Len(lcAlpha) - n)
       Next
  End Function

[Bape}l{ka]

спасибо большое всем!!

особенно меня впечатлил перевод из цифр в буквы:

MsgBox Split(Cells(1, 6).Address, "$")(1) 'перевод 6 столбца

[Казанский]

Добавил перевод из букв в цифры в той же теме:
http://www.planetaexcel.ru/forum.php?thread_id=19063

[Bape}l{ka]

и перевод из букв в цифры =ь :

MsgBox Columns("A").Column

для меня актуально вместо "А" ставить Textbox.Value

все гениальное - просто Т_Т