Объединить два макроса в один
8/22/2019

Я хочу объединить эти макросы в один, а затем назначить этот макрос фигуре, поэтому, если я нажму на фигуру один раз, я получу результат от первого макроса, и если я нажму на фигуру дважды, я получу результат от второго макроса. Я попытался объединить их самостоятельно, но безуспешно.

Вложенная фигура_singleclick()

Тусклый Свет Как Форма

Установите Sh = Активный лист.Формы (Аппликация.Вызывающий абонент)

MsgBox (“Один клик”)

Конечная Подстанция

Общедоступный LastClickObj В Виде Строки, Время Последнего Нажатия В Качестве Даты

Вложенный двойной щелчок()

Если LastClickObj = "", То

LastClickObj = Приложение.Вызывающий абонент

LastClickTime = CDbl(Таймер)

Ещё

Если CDbl(Таймер) - Время последнего нажатия > 0,25, То

LastClickObj = Приложение.Вызывающий абонент

LastClickTime = CDbl(Таймер)

Ещё

Если LastClickObj = Приложение.Звонивший Тогда

Сообщение ("Двойной щелчок")

Последнийclickobj = ""

Ещё

LastClickObj = Приложение.Вызывающий абонент

LastClickTime = CDbl(Таймер)

Конец, Если

Конец, Если

Конец, Если

Конечная Подстанция

Правильный Ответ

Virginia Okuneva
12/24/2021

Кому: Чарльз Re: двойной щелчок по фигуре VBA не распознает двойной щелчок по фигуре. Однако вы можете определить, нажата ли клавиша shift. Таким образом, вы можете вызвать 2-й макрос, нажав клавишу Shift при нажатии на фигуру. '--- 'Следующие две строки идут вверху опции модуля Явное частное объявление функции GetKeyState Lib"user32.dll " (Бывал nVirtKey До тех пор) Как целое число Под первым Макро() Dim Сдвиг, сжатый как логическое значение"Возвращает истину, если нажата клавиша shift, Нажата клавиша Shift = GetKeyState(vbKeyShift) < 0, Если нажата клавиша ShiftPressed, Затем вызовите второй макро, Иначе MsgBox "клавиша shift была поднята". "делать что-то здесь, если конец подзаголовка Второй Макро() MsgBox"2-й макрос называется ""делать что-то здесь, Заканчивать подзаголовок" --- Книги Excel и надстройки в MediaFire... http://www.mediafire.com/folder/lto3hbhyq0hcf/Documents [http://www.mediafire.com/folder/lto3hbhyq0hcf/Documents]

Помогло людям

Похожие вопросы