Здравствуйте!
Начал осваивать создание таблиц в VBA и понял что не могу найти стандартного способа получения буквенного идентификатора ячейки таблицы, например для вписывания в формулу.
Накидал небольшой код по переводу номера колонки в букву, вроде работает, но может есть более простой способ и не стоит изобретать велосипед?
Function LetFrNum(i As Integer)
Dim intKol As Integer, Temp As Integer, Temp2 As Integer
If (i + 1) <= 26 Then
LetFrNum = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", (i + 1), 1)
Else
intKol = 26
For Temp = 1 To 26
For Temp2 = 1 To 26
LetFrNum = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Temp, 1) & Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Temp2, 1)
intKol = intKol + 1
If intKol = (i + 1) Then
Exit For
End If
Next Temp2
If intKol = (i + 1) Then
Exit For
End If
Next Temp
End If
End Function
Sub Test()
Dim a(6) As Integer
a(0) = 0: a(1) = 1: a(2) = 25: a(3) = 26: a(4) = 48: a(5) = 200
MsgBox LetFrNum(a(0)) & " " & LetFrNum(a(1)) & " " & LetFrNum(a(2)) & " " & LetFrNum(a(3)) & " " & LetFrNum(a(4)) & " " & LetFrNum(a(5))
End Sub
замечания по коду приветствуются)
