Страницы: 1
RSS
Обработка события "Нажатие правой кнопки мыши"
 
Добрый день!  
 
Можно ли в Экселе в VBA обработать событие "Нажатие правой кнопки мыши". Мне нужно, чтобы челкая на ячейке правой кнопкой в стандартном контекстном меню появился дополнительный пункт, который позволял бы перейти к нужной строке таблицы. Таблица большая, чтобы в ручную не перемещаться.
 
Добрый день!  
 
Можно ли в Экселе в VBA обработать событие "Нажатие правой кнопки мыши". Мне нужно, чтобы челкая на ячейке правой кнопкой в стандартном контекстном меню появился дополнительный пункт, который позволял бы перейти к нужной строке таблицы. Таблица большая, чтобы в ручную не перемещаться.
 
А левое окно в строке формул не устраивает?  
Стоишь в ячейке "А1" - переходищь в окно - правишь "А15555" - жмешь "Ввод" - и вот Вам строка 15555!
 
А левое окно в строке формул не устраивает?  
Стоишь в ячейке "А1" - переходищь в окно - правишь "А15555" - жмешь "Ввод" - и вот Вам строка 15555!
 
{quote}{login=JK}{date=29.02.2008 01:10}{thema=Обработка события "Нажатие правой кнопки мыши"}{post}Добрый день!  
 
Можно ли в Экселе в VBA обработать событие "Нажатие правой кнопки мыши". Мне нужно, чтобы челкая на ячейке правой кнопкой в стандартном контекстном меню появился дополнительный пункт, который позволял бы перейти к нужной строке таблицы. Таблица большая, чтобы в ручную не перемещаться.{/post}{/quote}  
 
это не обработка события(события оно само обработает), а добавление пункта меню.  
например:  
   Dim con As CommandBarPopup  
   Set con = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, 1, , , True)  
   con.Caption = "êîìàíäû"  
    Call con.Controls.Add(msoControlButton, 1, , 1, True)  
   con.Controls(1).Caption = "îñòàòêè"  
только, соответственные названия подставить..
 
{quote}{login=JK}{date=29.02.2008 01:10}{thema=Обработка события "Нажатие правой кнопки мыши"}{post}Добрый день!  
 
Можно ли в Экселе в VBA обработать событие "Нажатие правой кнопки мыши". Мне нужно, чтобы челкая на ячейке правой кнопкой в стандартном контекстном меню появился дополнительный пункт, который позволял бы перейти к нужной строке таблицы. Таблица большая, чтобы в ручную не перемещаться.{/post}{/quote}  
 
это не обработка события(события оно само обработает), а добавление пункта меню.  
например:  
   Dim con As CommandBarPopup  
   Set con = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, 1, , , True)  
   con.Caption = "êîìàíäû"  
    Call con.Controls.Add(msoControlButton, 1, , 1, True)  
   con.Controls(1).Caption = "îñòàòêè"  
только, соответственные названия подставить..
 
Мастера меня учили, что в контекстное меню Эксела нельзя ничего засунуть...
 
Мастера меня учили, что в контекстное меню Эксела нельзя ничего засунуть...
Страницы: 1
Читают тему
Наверх