Получение буквенного идентификатора ячейки в таблице

Автор Тема: Получение буквенного идентификатора ячейки в таблице  (Прочитано 2656 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Den_miАвтор темы

  • ADN OPEN
  • Сообщений: 3
  • Карма: 0
Здравствуйте!
Начал осваивать создание таблиц в VBA и понял что не могу найти стандартного способа получения буквенного идентификатора ячейки таблицы, например для вписывания в  формулу.
Накидал небольшой код по переводу номера колонки в букву, вроде работает, но может есть более простой способ и не стоит изобретать велосипед?


Код - Visual Basic [Выбрать]
  1. Function LetFrNum(i As Integer)
  2. Dim intKol As Integer, Temp As Integer, Temp2 As Integer
  3. If (i + 1) <= 26 Then
  4. LetFrNum = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", (i + 1), 1)
  5. Else
  6. intKol = 26
  7. For Temp = 1 To 26
  8.     For Temp2 = 1 To 26
  9.         LetFrNum = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Temp, 1) & Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Temp2, 1)
  10.         intKol = intKol + 1
  11.         If intKol = (i + 1) Then
  12.             Exit For
  13.         End If
  14.     Next Temp2
  15.     If intKol = (i + 1) Then
  16.         Exit For
  17.     End If
  18. Next Temp
  19. End If
  20. End Function
  21.  
  22. Sub Test()
  23. Dim a(6) As Integer
  24. a(0) = 0: a(1) = 1: a(2) = 25: a(3) = 26: a(4) = 48: a(5) = 200
  25. MsgBox LetFrNum(a(0)) & " " & LetFrNum(a(1)) & " " & LetFrNum(a(2)) & " " & LetFrNum(a(3)) & " " & LetFrNum(a(4)) & " " & LetFrNum(a(5))
  26. End Sub

замечания по коду приветствуются)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение