Excel двойной щелчок по ячейке

Что это?!
При двойном клике (либо F2) происходит переход в режим редактирования, но Excel ничего сам не редактирует

Ладно, шутки в сторону.
Эмуляция тыканья мышью:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Declare Sub mouse_event Lib «user32» ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Sub ld()
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
End Sub
Sub lu()
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

Sub LeftClick()
ld
lu
End Sub

Sub DblClick()
LeftClick
LeftClick
End Sub

эмуляция проходит, но в excel’е что-то мешает входу в ячейку, хз что.
эмулируем F2:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Private Declare Sub keybd_event Lib «user32.dll» ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_F2 = 113

Sub Click_F2()
keybd_event VK_F2, 0, 0, 0
keybd_event VK_F2, 0, KEYEVENTF_KEYUP, 0
End Sub

Что это?!
При двойном клике (либо F2) происходит переход в режим редактирования, но Excel ничего сам не редактирует

Ладно, шутки в сторону.
Эмуляция тыканья мышью:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Declare Sub mouse_event Lib «user32» ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Sub ld()
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
End Sub
Sub lu()
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

Sub LeftClick()
ld
lu
End Sub

Sub DblClick()
LeftClick
LeftClick
End Sub

эмуляция проходит, но в excel’е что-то мешает входу в ячейку, хз что.
эмулируем F2:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Private Declare Sub keybd_event Lib «user32.dll» ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_F2 = 113

Sub Click_F2()
keybd_event VK_F2, 0, 0, 0
keybd_event VK_F2, 0, KEYEVENTF_KEYUP, 0
End Sub

Что это?!
При двойном клике (либо F2) происходит переход в режим редактирования, но Excel ничего сам не редактирует

Ладно, шутки в сторону.
Эмуляция тыканья мышью:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Declare Sub mouse_event Lib «user32» ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Sub ld()
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
End Sub
Sub lu()
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

Sub LeftClick()
ld
lu
End Sub

Sub DblClick()
LeftClick
LeftClick
End Sub

эмуляция проходит, но в excel’е что-то мешает входу в ячейку, хз что.
эмулируем F2:
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Private Declare Sub keybd_event Lib «user32.dll» ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_F2 = 113

Sub Click_F2()
keybd_event VK_F2, 0, 0, 0
keybd_event VK_F2, 0, KEYEVENTF_KEYUP, 0
End Sub

Источник

Какая ф-я обрабатывает двойной клик?

8 ответов

Вообще-то я давно уже разочаровался в описанном ниже способе получения информации по программированию. Далеко не всегда таким образом можно получить ответ вообще, а оптимальный — тем паче!

Но в данном конкретном случае Ваш совет пригодился, СПАСИБО!

Хотя более привычно было бы обращение к справочнику, а там должна быть ссылка типа «смотри также», если в описании искомой команды (функции, события) информации не достаточно. Ну да, бог с ними, с мелкомягкими, пусть это будет на их совести.

А к слову сказанному, еще вопросик «на засыпку».
Существует ли способ программного управления событием изменения значения в ячейке без предварительного изменения самого этого значения? Грубо говоря, можно ли вызвать программно процедуру (или ее аналог) типа
Worksheet_Change(ByVal oT As Range) таким образом, чтобы при этом автоматически отработали другие события, связанные с изменением значения в ячейке (например, TextBox1_Change()) ?
В частности, параметр lC в процедуре
Worksheet_BeforeDoubleClick(ByVal oT As Range, lC As Boolean)
позволяет управлять исполнением стандартной обработки двойного клика. А есть ли что то аналогичное в системе управления событиями Excel или подобное в процедуре
Worksheet_Change(ByVal oT As Range) ?

Источник

Можно ли по двойному клику в ячейке запускать макрос?

Можно ли по двойному клику в ячейке запускать макрос?

Или в такую ячейку надо обязательно рисовать кнопку, которая и будет это делать?

12 ответов

Можно юзать просто рисунок.

Может я чего-то не так делаю или не понял. Но вставив этот код я дважды нажимаю на ячейку и, как и прежде, попадаю в режим ввода текста.

Так мне-то надо, что бы потом обрабатывался именно тот ряд, в котором этот рисунок или кнопка находятся (происходит изменение цвета заливки всего ряда для обозначения наступления события «выполнено», либо вставка времени в нужную ячейку). Вот можно ли такую привязку сделать?

Может быть так будет понятне (а может и нет, потому что опять многословно):
у меня ряд начинается с названия документа и в сл. ячейках я ставлю время прохождения этапов обработки (время 1-й распечатки, время правки, «сдано»). Пока руками делается так. Я делаю документ, распечатываю его, пишу время (автоматизировать не нужно). Потом мне приносят док на правку. Я его отыскиваю в куче папок, открываю в программе, правлю, распечатываю и руками ставлю время правки. Потом мне дают команду «готово» и я опять отыскиваю в папках этот док и выкладываю его на сервер. (Отыскивать приходится, потому что постоянно занимаешься след. документом, а потом возвращаешься к какому-то из предыдущих).
А при автоматизации, я бы нажав на кнопку в ряду, соответствующем нужному доку, открывал бы его для правки, а нажав сл. кнопку, он бы копировался на сервер без моего лазания по папкам. Пока я это сделал в виде всего двух кнопок. Т.е. мне надо поставить курсор на нужный ряд и потом нажать соотв. кнопку «правка» или «на сервер», которые вынесены в отдельное место. А если бы такие кнопки были сделаны для каждого документа, то не приходилось бы скакать по экрану, а сразу найдя нужный док, тут же и нажать нужную кнопку. Вот такое извращенческое пожелание 😮 .

Источник

Событие Worksheet.BeforeDoubleClick (Excel)

Происходит при двойном щелчке листа перед действием двойного щелчка по умолчанию.

Синтаксис

expression. BeforeDoubleClick (Target , Cancel)

Выражение Переменная, представляющая объект Worksheet .

Параметры

Замечания

Метод DoubleClick не вызывает это событие.

Это событие не возникает, когда пользователь дважды щелкает границу ячейки.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Adblock
detector