Поделиться через


Событие Worksheet.BeforeDoubleClick (Excel)

Происходит при двойном щелчке листа перед действием двойного щелчка по умолчанию.

Синтаксис

expression. BeforeDoubleClick (Target , Cancel)

выражение Переменная, представляющая объект Worksheet .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Target (Целевое значение) Обязательный Range Ячейка, ближайшая к указателю мыши при двойном щелчке.
Отмена Обязательный Boolean Значение false при возникновении события. Если процедура события задает этому аргументу значение True, действие двойного щелчка по умолчанию не выполняется после завершения процедуры.

Замечания

Метод DoubleClick не вызывает это событие.

Это событие не возникает, когда пользователь дважды щелкает границу ячейки.

Пример

В этом примере изменяется цвет заливки ячеек вокруг целевой ячейки при двойном щелчке ячейки листа.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim targetCol As Integer, StartCol As Integer
Dim targetRow As Integer, StartRow As Integer
    Me.Cells.ClearFormats
    targetRow = Target.Row
    targetCol = Target.Column
    If targetRow - 1 >= 1 Then
        StartRow = targetRow - 1
    Else
        StartRow = targetRow
    End If
    If targetCol - 1 >= 1 Then
        StartCol = targetCol - 1
    Else
        StartCol = targetCol
    End If
    Me.Range(Me.Cells(StartRow, StartCol), Me.Cells(targetRow + 1, targetCol + 1)).Interior.Color = vbYellow
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.