VBA更改单元格变成双击

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

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

我相信我应该做这个子到“之前双击”但我不确定我是否能保持代码是。不完全确定如何完成此操作。

来源

2017-08-02 anve

只要确保你添加'取消= TRUE;从而使他人将不会进入上双击一个单元内编辑。 – Jeeped

从这里开始：

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

来源

2017-08-02 18:53:27

这似乎有效。非常感谢！ – anve

VBA更改单元格变成双击

回答

相关问题