Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Относительно активной ячейки получить имя/название столбца умной таблицы
 
#1
25.08.2016 17:32:31
Здравствуйте, уважаемые жители и гости форума "Планета 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
Только оно заставляет меня чувствовать себя в роли проктолога, который пытается лечить гланды.
Возможно есть более штатный и красивый способ обрести искомое?
Пример прилагается.
Спасибо за помощь и внимание с вашей стороны. И простите, если что не так сказал/сделал.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#2
25.08.2016 18:00:18
мало чем отличается
Код
MsgBox Target.ListObject.ListColumns(Target.Column + 1 - Target.ListObject.Range.Column).Name
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
25.08.2016 18:11:32
Игорь Гончаренко, спасибо. Уже лучше. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#4
25.08.2016 18:19:43
или так:
Код
    With Target.ListObject.Range
      MsgBox .Cells(Target.Column - 1 + .Column)
    End With
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
25.08.2016 21:25:20
Игорь Гончаренко, спасибо за ещё один вариант. _/\_
Исправил его:
Код
    With Target.ListObject.Range
      MsgBox .Cells(Target.Column + 1 - .Column)
    End With

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
Страницы: 1
Наверх