[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Как по номеру столбца узнать его букву (VBA Excel)
koralekДата: Четверг, 10.11.2011, 18:55 | Сообщение # 1
Подполковник
Группа: Администраторы
Сообщений: 147
Репутация: 0
Статус: Offline
Sub test()
Debug.Print БукваСтолбца(6)
End Sub

Function БукваСтолбца(ByVal col As Long) As String
On Error Resume Next
БукваСтолбца = Application.ConvertFormula("r1c" & col, xlR1C1, xlA1)
БукваСтолбца = Replace(Replace(Mid(БукваСтолбца, 2), "$", ""), "1", "")
End Function
 
  • Страница 1 из 1
  • 1
Поиск: