Excel VBA несколько действий двойного щелчка - PullRequest
Новая
       42

Excel VBA несколько действий двойного щелчка

0 голосов
/ 07 ноября 2018

У меня есть код, который увеличивает дату в ячейке на 1 день, когда я дважды щелкаю по ней. Но, повторюсь, сначала нужно щелкнуть за пределами ячейки.

Разве невозможно выполнить несколько последовательных действий двойного щелчка?

1 Ответ

0 голосов
/ 07 ноября 2018

Вот где приходит Cancel в Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean). 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Rem: Increment your date

    Cancel = True   '<-- Set to true

End Sub

Если вы хотите отменить только в столбце B, потому что именно там находятся ваши даты, то: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Rem: Only Cancel if double-clicked in column B
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then

        Cancel = True   '<-- Set to true

    End If

End Sub
...