Страницы: 1
RSS
контекстное меню для "умных таблиц"
 
Здравствуйте)
Видел тем про контекстное меню море, а свою проблему так и не решил.
Создаю пункт в контекстном меню таким кодом:
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=20, Temporary:=True)
но если правый клик на "умной таблице", то ничего не добавляется.
если заменить cell на table text, то ошибка - invalid call procedure or argument

как организовать контекстное меню для таблиц?
спасибо.
 
А использовать "List Range Popup" не пробовали?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Код
With Application.CommandBars("List Range Popup").Controls.Add(Type:=msoControlButton, before:=20, Temporary:=True) 
Учимся сами и помогаем другим...
 
))
Спасибо, не пробовал))
 
а можно как то определить для конкретной ячейки использовать "cell" или "List Range Popup" ?
 
проверяйте, является ли ячейка частью таблицы.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim oLstRng As ListObject
    For Each oLstRng In ActiveSheet.ListObjects
        If Intersect(Target, oLstRng.DataBodyRange) Is Nothing Then
            MsgBox "Ячейка не входит в умную таблицу"
        Else
            MsgBox "Ячейка входит в умную таблицу"
        End If
    Next oLstRng
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо :)
Страницы: 1
Наверх