Kompне могли бы вы указать способ запуска макроса в Excel 2010, щелкнув только один раз на указанной ячейке? Я где-то видел решение, но теперь не могу отследить его.
Запуск макроса одним щелчком мыши по определенной ячейке
26
задан
13.12.2022 22:37 
2392
2392
3 ответа
следующий код будет срабатывать при щелчке ячейки D4 на листе.
щелкните правой кнопкой мыши ярлычок листа и выберите "Просмотр кода". Вставьте его в окно кода:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("D4")) Is Nothing Then
MsgBox "Hello World"
End If
End If
End Sub
отрегулируйте ссылку на ячейку от "D4", чтобы отразить нужную ячейку. Замените строку MsgBox нужным кодом.
8
отвечен teylyn 2022-12-15 06:25
вот несколько иной подход к исходному вопросу, который может подойти для некоторых приложений.
' Make the desired cell a hyperlink to itself ...
With ThisWorkbook.Sheets(mysheet)
.Hyperlinks.Add Anchor:=.Cells(myrow,mycol), Address:="", SubAddress:="R[0]C[0]"
End With
' ... and then let the handler for the FollowHyperlink event do the business:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Debug.Print "clicked " & Target.TextToDisplay & " on row " & Target.Range.Row
End Sub
0
отвечен Ray 2022-12-15 08:42
событие Worksheet_SelectionChange не запускается, пока значение ячейки не будет изменено. Просто нажатие на ячейку не запускает событие.
-2
отвечен DEH 2022-12-15 10:59
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
