وبلاگ

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

دستور اجرا

expression.BeforeRightClick (Target , Cancel)

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

پارامتر‌ها

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

ندارد.

ملاحظات

شبیه سایر رخدادهای کاربرگ، رویداد BeforeRightClick زمانی که نشانه‌گر ماوس روی یک شکل یا نوار ابزار (نوار ابزار یا نوار منو) راست کلیک نمایید، فعال نخواهد شد.

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

مثال

کد زیر با استفاده از رخداد BeforeRightClick یک دستور جدید با عنوان Fill Series به منوی راست کلیک اکسل اضافه می‌کند. با کلیک روی منوی انتخاب شده استایل سلول‌های محدوده انتخابی عوض شده و مقدار آنها به ترتیب از یک تا آخرین سلول تکمیل می‌شود.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim icbc As Object For Each icbc In Application.CommandBars("cell").Controls If icbc.Tag = "iv-menu" Then icbc.Delete Next icbc With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=6, temporary:=True) .Caption = "Fill Series" .OnAction = Me.Name & ".ivFillSeries(" & Chr(34) & Target.Address & Chr(34) & ")" .Tag = "iv-menu" End With
End Sub Sub ivFillSeries(rangeAddress As String)
Dim rng As Range
Dim cell As Range
Dim i As Integer Set rng = Me.Range(rangeAddress) With rng .Interior.Color = RGB(255, 217, 102) .Font.Name = "Arial" .Font.Color = vbBlack .Borders.Color = vbBlack .Borders.Weight = xlThick End With i = 1 For Each cell In rng cell.Value = i i = i + 1 Next cell
End Sub