Здравствуйте, уважаемые жители и гости форума "Планета EXCEL".
Прошу Вас оказать содействие по обретению гармонии с самим собой, путём наставления на путь истинный для решения насущного вопроса:
"относительно активной ячейки получить имя/название столбца умной таблицы"
Возможно я и плохо искал, но решение было такое обретено:
Только оно заставляет меня чувствовать себя в роли проктолога, который пытается лечить гланды.
Возможно есть более штатный и красивый способ обрести искомое?
Пример прилагается.
Спасибо за помощь и внимание с вашей стороны. И простите, если что не так сказал/сделал.
Прошу Вас оказать содействие по обретению гармонии с самим собой, путём наставления на путь истинный для решения насущного вопроса:
"относительно активной ячейки получить имя/название столбца умной таблицы"
Возможно я и плохо искал, но решение было такое обретено:
Код |
---|
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next MsgBox ActiveCell.ListObject.HeaderRowRange.EntireRow.Resize(, 1).Offset(, ActiveCell.Column - 1).Value On Error GoTo 0 End Sub |
Возможно есть более штатный и красивый способ обрести искомое?
Пример прилагается.
Спасибо за помощь и внимание с вашей стороны. И простите, если что не так сказал/сделал.