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更改單元格變成雙擊

回答

相關問題