نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إضافة زر مخصص إلى القائمة انقر / السياق الأيمن في إكسيل؟

كما تظهر أدناه لقطات، وكثير من الناس تميل إلى إضافة وظائفها المستخدمة بشكل متكرر إلى القائمة الأيمن فوق إكسيل من أجل استخدام بسرعة هذه الوظائف بنقرة واحدة فقط في المستقبل. تتحدث هذه المقالة عن إضافة زر التعليمات البرمجية المخصصة إلى قائمة النقر بزر الماوس الأيمن في إكسيل.

إضافة زر مخصص إلى قائمة السياق في إكسيل مع التعليمات البرمجية فبا


السهم الأزرق الفقاعة اليمنىإضافة زر مخصص إلى قائمة السياق في إكسيل مع التعليمات البرمجية فبا


لنفترض أنك قد قمت بإنشاء البرنامج النصي فبا المسمى ميماكرو في إكسيل الخاص بك، والآن تحتاج إلى إضافة هذه الوظيفة إلى قائمة السياق لتشغيل التعليمات البرمجية فقط عن طريق النقر عليه. يرجى القيام على النحو التالي.

1. اضغط على قديم + F11 مفاتيح في وقت واحد لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة، انقر نقرا مزدوجا ThisWorkbook في اليسار مشروع الجزء. ثم قم بنسخ ولصق التعليمات البرمجية فبا أدناه في هذا الكتاب (رمز) نافذة.

رمز فبا: إضافة زر مخصص إلى قائمة السياق في إكسيل

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

ملاحظة:: في التعليمات البرمجية، يرجى استبدال جميع "MyMacro" مع اسم الماكرو الذي قمت بإنشائه في إكسيل الخاص بك.

3. اضغط على قديم + Q مفاتيح للخروج ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الآن يمكنك العودة إلى واجهة إكسيل، بعد النقر بزر الماوس الأيمن على خلية، سترى زر جديد مع إضافة الاسم المحدد في القائمة النقر بزر الماوس الأيمن كما يظهر أدناه لقطة شاشة. انقر فوق الزر سوف يؤدي ماكرو المقابلة على الفور.


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة:



أدوات الإنتاجية الموصى بها لبرنامج Excel

Kutools for Excel يساعدك دائمًا في إنهاء العمل قبل الوقت ، وتبرز من الحشد

  • أكثر من الميزات المتقدمة القوية 300 ، المصممة لسيناريوهات عمل 1500 ، مما يزيد الإنتاجية بنسبة 70 ، يمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
  • لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
  • كن خبيرًا في Excel في دقائق 3 ، يمكن إجراء العمليات المعقدة والمتكررة في ثوانٍ ،
  • قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
  • 110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
  • 60-day ميزات كاملة تجريبية مجانية. 60 يوم استعادة الاموال الضمانات. سنوات 2 من الترقية المجانية والدعم.

يجلب الاستعراض المبوب والتحرير إلى Microsoft Office ، أقوى بكثير من علامات تبويب المتصفح

  • تم تصميم Office Tab لتطبيقات Word و Excel و PowerPoint وتطبيقات Office الأخرى: Publisher و Access و Visio و Project.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
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 · 8 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.
      Виктор · 1 months ago
      Размести код в отдельном модуле, для того чтобы это работало для всех документов
    • To post as a guest, your comment is unpublished.
      crystal · 8 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 · 7 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 · 4 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