双击特定单元格，然后按enter键

Question

双击特定单元格，然后点击回车键的代码是什么(这会触发对其他单元格的更新，但对这个查询来说并不重要)？

我已经创建了类似的东西，但我甚至无法运行它(它不会出现在我的"查看宏"窗口中)。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Worksheets("Input")
On Error Resume Next
If Not Intersect(Target, Range("J3")) Is Nothing Then
Range("J3").Value = Range("J3").Value
Cancel = True
End If
End Sub

Answer 1

这将起作用：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.SendKeys "{ENTER}"
End Sub

但代码必须放在正确的位置。因为它是工作表代码，所以安装起来非常容易，使用起来也很自动：

1. 右键单击Excel窗口底部附近的选项卡名称
2. 选择"查看代码"-这将打开一个VBE窗口
3. 粘贴内容并关闭VBE窗口

如果您有任何顾虑，请先在试用工作表上试用。

如果保存工作簿，则宏将与工作簿一起保存。如果您使用的是2003以后的Excel版本，则必须保存文件为.xlsm而不是xlsx

删除宏：

1. 如上所述打开VBE窗口
2. 清除代码
3. 关闭VBE窗口

要了解有关宏的详细信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏(工作表代码)的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能运行

Answer 2

我今天刚刚遇到一个类似的问题(虽然略有不同，因为SQL查询的结果中有一个Excel公式作为不会自动计算的字段之一，它只是留下了公式的文本)。我解决问题的方法是：

Range("J3").Formula2R1C1 = Range("J3").Formula2R1C1

它只是将公式设置回自己，但在我的情况下，它会评估公式，这在我尝试的任何其他解决方案中都没有发生。