Контрольное событие двойного щелчка для заголовка строки

Поэтому я довольно хорошо знаком с диапазонами рабочих диапазонов для рабочих листов, таких как двойной щелчок. В этом случае, однако, я ищу ссылку, когда заголовок строки получает двойной щелчок, а не ячейку. Это все равно будет характерно для рабочего листа, но до сих пор я не увенчался успехом.

У меня есть несколько диапазонов, которые выполняют разные события при двойном щелчке, поэтому я использую код, подобный приведенному ниже примеру:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rWatchRange As Range Dim sWatchRange As Range Set rWatchRange = Range("A5:A1000") 'I somehow need it to recognize if the row header is 'double clicked between row 5 and 1000 to fire off the second sub Set sWatchRange = Range("5:1000") If Not Application.Intersect(Target, rWatchRange) Is Nothing Then Run "aFormattingSub" End If If Not Application.Intersect(Target, sWatchRange) Is Nothing Then Run "aSubToInsertNewLineAndGroupWithRowAbove" End If End Sub 

Я не уверен, есть ли ссылка на рабочий лист, ссылка на приложение или параметр в Excel, о котором я знаю, что это может сделать.

Событие DoubleClick не срабатывает при двойном щелчке заголовков. Я не думаю, что вокруг есть тривиальный путь – вы должны жить с событиями, когда они предоставляются.

Я думаю, что все еще достаточно места для реализации большей функциональности.
Чтобы дать вам еще несколько идей, вы можете делать разные вещи двойным щелчком или правой кнопкой мыши с нажатой клавишей Ctrl.

Пример, который реагирует на правый щелчок с нажатой клавишей Ctrl, и только когда выбраны целые строки:

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If (GetKeyState(KeyCodeConstants.vbKeyControl) And &H8000) And _ Selection.Address = Selection.EntireRow.Address Then Cancel = True ' ... code End If End Sub 

( And &H8000 необходимо реагировать только на текущий текущий и игнорировать предыдущие нажатия клавиш)

Импортировать функцию API в модуль:

 Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 
Interesting Posts

сопоставить и изменить случаи с условием в Excel

Выделение строк в Excel с помощью кода VBA для поиска ячеек со значениями, заканчивающимися в конкретных условиях

Формула Excel – Сравнить две таблицы для значений

Ошибка в поиске точного соответствия

Ссылка на строку внутри массива формул в Excel VBA

Пользовательская C # DLL, ошибка 429 из VBA

Как вставить значение с тем же идентификатором в одной ячейке в PHPExcell

Выбор первой и последней строки одновременно в VBA

Excel: переформатировать / заменить часть строки в ячейке

Поиск последнего появления дублированного элемента в диапазоне (столбец)

Excel VBA, чтобы найти максимальное значение ячейки в столбце и удалить все строки под ним

Excel – найти последнее значение в столбце, который не является ошибкой или пустой

Может только читать файл Excel, когда он действительно открыт в Ms Excel

Расчет рабочего дня Excel

Как преобразовать несколько столбцов в один столбец?

Давайте будем гением компьютера.