Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макросы двойным кликом по ячейке / 4 сообщений из 4, страница 1 из 1
19.01.2007, 18:43:39
    #34269222
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск макросы двойным кликом по ячейке
Подскажите пожалуйста, как сделать, чтобы макрос запускался двойным щелчком мыши, например, по ячейке В1
...
Рейтинг: 0 / 0
19.01.2007, 18:51:15
    #34269236
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск макросы двойным кликом по ячейке
в модуле VBA соотв. листа:

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$1" Then MyMacro
End Sub

Sub MyMacro()
    MsgBox "Privet mir!"
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
19.01.2007, 19:00:38
    #34269255
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск макросы двойным кликом по ячейке
Благодарю.
...
Рейтинг: 0 / 0
19.01.2007, 19:00:56
    #34269256
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск макросы двойным кликом по ячейке
И еще, если не хочешь, чтобы курсор оставался внутри ячейки (режим редактирования):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$1" Then MyMacro
    Cancel = True
End Sub

Sub MyMacro()
    MsgBox "Privet"
End Sub

При этом, в режим редактирования ячейки B1 можно войти, выбрав ее и нажав BACKSPACE или вставив курсор в панель формул.

Если редактирование ячейки нужно блокировать, то лучше ее защитить.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Запуск макросы двойным кликом по ячейке / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]