Worksheet_BeforeDoubleClick限制双击

Question

我有以下代码，当您双击某个工作表时会插入新行（然后复制公式）。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim Msg As String, Ans As Variant
Msg = "Add a row below?"
Ans = MsgBox(Msg, vbYesNo)
Select Case Ans
    Case vbYes
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents

    Case vbNo
    GoTo Quit:
End Select
Quit:
End Sub

但是，这取代了我的双击功能，因此我不再可以直接编辑单元格（就像双击单元格时通常可以进行的操作）。有没有办法保留双击的两种功能？也许如果我单击“否”，那么它将选择处于编辑模式的单元格？

不胜感激任何指针

Answer 1

您的第一行：

Cancel = True

它说：我不希望发生默认的双击操作（单元格编辑模式）

只需将其更改为Cancel = False并移至正确的位置即可。