我知道我可以使用Worksheet_SelectionChange，但这并不完全符合我的要求。
例如，当我用箭头键移动活动单元格时，它仍然会运行代码。
如何让它只在实际点击单元格时才运行代码？
【问题讨论】：
您也可以检测左键单击。我回答了类似的问题here
在特定工作表模块（例如“Sheet1”）中插入以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (GetAsyncKeyState(vbKeyLButton)) Then 'left mouse button
'do something here
End If
End Sub
此外，您必须在普通模块（如标准“Module1”）顶部插入以下部分：
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
就是这样。 “在这里做点什么”部分可以根据您的需要填写。
但是，这有一些缺陷：如果您执行的操作通过单击完成（例如 MsgBox），则使用箭头键进行的下一个选择更改也会触发该事件并重新执行您的操作。要绕过这个，你可以添加一个额外的“空”
If (GetAsyncKeyState(vbKeyLButton)) Then 'left mouse button
'blank
End If
在selectionChange Sub的末尾。正如我所说，存在缺陷s，因此这不会禁用 Excel 的所有不需要的行为。另一个是单击 Excel 中的其他位置（例如选择另一个功能区），然后更改每个箭头键的单元格选择。不幸的是，还没有找到解决方案。
【讨论】：
do something here？只是问
对于 Excel 应用程序，VBA 无法捕获鼠标左键单击。有一些方法可以全局检查鼠标左键是否被按下，但从我收集的信息来看，它似乎并不简单可靠。见：
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_28343702.html 未解决（基本上与您的问题相同）
SelectionChange 不能只对鼠标起作用：http://excel.tips.net/T003070_Mouse_Click_Event_in_VBA.html
在网络上进行大量搜索后，对此没有任何结论。这可能不是您正在寻找的答案，但我认为您不会找到您想要的。
【讨论】：