VBA更改单元变成双击

在我的工作簿中有一个工作表中，F列中的单元格变为红色，当它们单击一次时，它将拉起一张值。 我想改变这种情况，一旦F列中的单元格被双击， 那么它会拉起一张值。 这张表被称为“JE”，这里是我的代码：

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MySheet As String On Error GoTo Done: If Target.Column = 6 And Target.Cells.Count = 1 Then MySheet = WorksheetFunction.VLookup(Target.Offset(0, -2).Value, Sheets("ref_list").Range("$C$1:$D$17"), 2, 0) Sheets(MySheet).Visible = True Sheets(MySheet).Activate End If Done: Sheets("acct_codes").Visible = 0 End Sub 

我相信我应该使这个分“前双击”，但我不确定是否可以保持代码。 不完全确定如何完成这一点。

Answer 1

从这里开始：

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim MySheet As String On Error GoTo Done: If Target.Column = 6 And Target.Cells.Count = 1 Then Cancel = True MySheet = WorksheetFunction.VLookup(Target.Offset(0, -2).Value, Sheets("ref_list").Range("$C$1:$D$17"), 2, 0) Sheets(MySheet).Visible = True Sheets(MySheet).Activate End If Done: Sheets("acct_codes").Visible = 0 End Sub