كيف يمكنني إضافة زر مخصص إلى قائمة النقر بزر الماوس الأيمن (قائمة السياق) في Excel؟
كما تُظهر لقطات الشاشة أدناه، يفضّل العديد من المستخدمين إضافة وظائفهم الأكثر استخدامًا إلى قائمة النقر بزر الماوس الأيمن في Excel، ليتمكّنوا من الوصول إليها لاحقًا بنقرة واحدة سريعة. وتتناول هذه المقالة كيفية إضافة زر رمز مخصّص إلى قائمة النقر بزر الماوس الأيمن في Excel.
إضافة زر مخصص إلى قائمة السياق في Excel باستخدام رمز VBA
إضافة زر مخصص إلى قائمة السياق في Excel باستخدام رمز VBA
بفرض أنك أنشأت نصًا برمجيًّا باسم MyMacro في Excel، وترغب الآن في إضافته إلى قائمة السياق لتشغيله بنقرة واحدة. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيحAlt + F11 في نفس الوقت لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىThisWorkbook في جزءالمشروععلى اليسار، ثم انسخ والصق رمز VBA أدناه في نافذةThisWorkbook (الرمز).
رمز VBA: إضافة زر مخصص إلى قائمة السياق في Excel
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» باسم الماكرو الذي أنشأته في Excel.
3. اضغط على مفاتيحAlt+Q للخروج من نافذةMicrosoft Visual Basic for Applications.
أصبحت الآن في واجهة Excel، وعند النقر بزر الماوس الأيمن على خلية، ستجد الزر الجديد الذي حددت اسمه قد أُضيف إلى قائمة النقر بزر الماوس الأيمن، كما هو موضح في لقطة الشاشة أدناه. وعند النقر على هذا الزر، سيتم تشغيل الماكرو المرتبط به فورًا.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في Excel؟
- كيف يمكن استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
- كيف يمكن حفظ وإغلاق المصنف الحالي دون ظهور أي مطالبة، باستخدام زر أمر في Excel؟
- كيف يمكن تحديث أو إدراج التاريخ والوقت الحاليين باستخدام زر الأمر في Excel؟
- كيف يمكن تعطيل الزر بعد النقر عليه مرة واحدة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل