Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Excel + Right Mouse Button

Автор: Пётр из БЗ 22.7.2004, 19:23

Коллеги, если не в лом, помогите заработать на отпуск, в долгу не останусь!
Проблема - MS Excel.
Задача - кликнув на клетке "правой мышкой" получить список, следующий клик - значение из списка "легло" в клетку.
Проштудировал всего Уокенбаха (преклоняюсь), ни ответа, ни намёка. А ой как надо.
Повторяю, отблагодарю.

piotr@miron.lt

Автор: Naghual 22.7.2004, 22:04

Ну вот тебе, для начала, метод перехвата нажатия правой кнопки мыши:

Код

Option Explicit

Private RightClickRange As Range

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Set RightClickRange = Target
    Cancel = True
    Call MyRightClick
End Sub

Private Sub MyRightClick()
    MsgBox "Перехватили! (" & RightClickRange.Address & ")"
End Sub

исполняется в модуле листа.

А про списки поподробнее напиши, а то не очень понятно.
Что, Откуда и в каком виде хочеш представлять.