Worksheet_BeforeDoubleClick ограничивает двойной щелчок - PullRequest
Новая
       6

Worksheet_BeforeDoubleClick ограничивает двойной щелчок

0 голосов
/ 28 августа 2018

У меня есть следующий код, который вставляет новую строку (затем копирует формулы) при двойном щелчке на определенном листе. 

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

Это, однако, заменяет мою функцию двойного щелчка, так что я больше не могу редактировать ячейки напрямую (как вы обычно это делаете, когда дважды щелкаете ячейку). Есть ли способ сохранить обе функции двойного щелчка? Может быть, если я нажму «Нет», то выберет ячейку в режиме редактирования?

Буду признателен за любые указатели

1 Ответ

0 голосов
/ 28 августа 2018

Ваша первая строка:

Cancel = True

Там написано: я не хочу, чтобы действие двойного щелчка по умолчанию (режим редактирования ячейки) происходило

Просто измените его на Cancel = False и переместитесь в нужное место.

...