وبلاگ

رخداد BeforeDoubleClick وقتی که یک کاربرگ دابل کلیک می‌شود، قبل از اینکه اقدام پیش‌فرض دابل کلیک اجرا شود، فعال می‌گردد.

دستور اجرا

expression.BeforeDoubleClick (Target , Cancel)

expression متغیری است که یک شی Worksheet را نمایندگی می‌کند.

پارامتر‌ها

مقدار بازگشتی

ندارد.

ملاحظات

متد Application.DoubleClick باعث فعال شدن این رخداد نمی‌شود.

این رخداد وقتی که کاربر روی حاشیه سلول دابل کلیک نماید فعال نمی‌شود.

ویدیوی آموزشی

مثال

کد زیر با استفاده از رخداد BeforeDoubleClick رنگ پس‌زمینه یک سلول و سلول‌های اطراف آن را به رنگ زرد تغییر می‌دهد.

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 'clear format for all cells in the workbook
    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

منبع