İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də sağ klik / kontekst menyusuna xüsusi düyməni necə əlavə etmək olar?

Aşağıdakı ekran görüntüləri kimi, bir çox insanlar gələcəkdə yalnız bir klik ilə bu funksiyaları tez istifadə etmək üçün Excel-in sağ klik menyusuna tez-tez istifadə funksiyalar əlavə edirlər. Bu yazı Excel-də sağ klik menyusuna xüsusi kod düyməsini əlavə etməkdən bəhs edir.

VBA koduyla Excel-də kontekst menyuına xüsusi düyməni əlavə edin


arrow mavi sağ bubbleVBA koduyla Excel-də kontekst menyuına xüsusi düyməni əlavə edin


Excel-də MyMacro adlı bir VBA skript yaratdığınızı və indi bu funksiyanı kontekst menyusuna tıklayaraq kodu çalıştırmağınız üçün əlavə etməlisiniz. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt klik BuWorkbook solda Layihə pane. Və sonra aşağıdakı VBA kodu kopyalayın və yapışdırıb BuWorkbook (Kod) pəncərə.

VBA kodu: Excel-də kontekst menyuına xüsusi düyməni əlavə edin

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

Qeyd: Kodda, hamısını əvəz edin "MyMacro" Excel-də yaratdığınız makro adı ilə.

3. Basın Dayandırmaq + Q çıxmaq üçün düymələr Proqramlar üçün Microsoft Visual Basic pəncərə.

İndi bir hüceyrəni sağ tıkladıktan sonra Excel arayüzüne geri döndüğünüzde, aşağıdakı ekran görüntüsünün gösterildiği kimi, sağ tıklayarak menüye belirtilen adla eklenen yeni düğmeyi görəcəksiniz. Düyməsini basın dərhal müvafiq Macro tetikler.


arrow mavi sağ bubbleƏlaqəli məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MFouad · 5 months ago
    Thanks
    Does that working for all workbooks even after restarting Excel, or only for the selected workbook which saved the macro in?
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi,
      It only works for the workbook which save the macro in. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Vic · 1 years ago
    Add VBA button to context menu works well. Thanks. How do I add more buttons ? (not good at VBA, hence the question).
    • To post as a guest, your comment is unpublished.
      crystal · 4 months ago
      Hi Vic,
      The following VBA code can help you solve the problem, please have a try.

      Private Sub Workbook_Deactivate()
      Dim xArrB As Variant
      Dim xFNum As Integer
      Dim xStr As String
      On Error Resume Next
      With Application
      xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
      For xFNum = 0 To UBound(xArrB)
      xStr = xArrB(xFNum)
      .CommandBars("Cell").Controls(xStr).Delete
      Next xFNum
      End With
      On Error GoTo 0
      End Sub

      Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
      Dim cmdBtn As CommandBarButton
      Dim xArrB As Variant
      Dim xFNum As Integer
      Dim xStr As String
      On Error Resume Next
      xArrB = Array("MyMacro01", "MyMacro02", "MyMacro03")
      For xFNum = 0 To UBound(xArrB)
      xStr = xArrB(xFNum)
      With Application
      .CommandBars("Cell").Controls(xStr).Delete
      Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
      End With
      With cmdBtn
      .Caption = xStr
      .Style = msoButtonCaption
      .OnAction = xStr
      End With
      Next xFNum
      On Error GoTo 0
      End Sub
      • To post as a guest, your comment is unpublished.
        Mike · 1 months ago
        This doesn't work for me, I have done exactly the same as the above macro with only one menu, Does it work for anyone else or am I doing something wrong?

        Thanks