Excel VBA 多次双击操作

Question

我有一些代码可以在我双击单元格时将单元格中的日期增加 1 天。但要重复一遍，我首先必须在单元格外单击。

难道不能有多个连续的双击动作吗？

Answer 1

这就是 Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 中的 Cancel 的用武之地。

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

Excel VBA 多次双击操作

Excel VBA multiple double click actions

excel

vba

double-click