كيفية تشغيل عدة وحدات ماكرو من قائمة النقر بزر الماوس الأيمن في Excel؟
إذا كان هناك العديد من وحدات الماكرو VBA في مصنفك، يجب أن تفتح نافذة VBA ثم تختار الوحدة عند الحاجة لتشغيل الكود. في هذه المقالة، أود أن أتحدث عن كيفية تشغيل وحدات الماكرو من قائمة النقر بزر الماوس الأيمن لجعل عملك أكثر كفاءة كما هو موضح في لقطة الشاشة على اليسار.
تشغيل عدة وحدات ماكرو من قائمة النقر بزر الماوس الأيمن باستخدام أكواد VBA
تشغيل عدة وحدات ماكرو من قائمة النقر بزر الماوس الأيمن باستخدام أكواد VBA
لتشغيل أكواد الوحدة داخل مصنف من قائمة النقر بزر الماوس الأيمن، قد تساعدك الخطوات التالية، يرجى القيام بما يلي:
1. اضغط باستمرار على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. بعد ذلك، انقر نقرًا مزدوجًا فوق ThisWorkbook في جزء المشروع على اليسار، ثم قم بنسخ ولصق الكود VBA أدناه في الوحدة الفارغة.
Private Sub Workbook_Open()
Run "LoadMacro"
End Sub
Private Sub Workbook_Activate()
Run "LoadMacro"
End Sub
Private Sub Workbook_Deactivate()
Run "ClearMacro"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "ClearMacro"
ThisWorkbook.Save
End Sub
3. لا تزال في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > وحدة، والصق الكود التالي في هذه الوحدة.
Private Sub LoadMacro()
Dim xArrMenu As Variant
Dim xStrLine, xSreBtnName As String
Dim xObjCBCF, xObjCntrAll As CommandBarControl
Dim xObjCBCs As CommandBars
Dim xObjCBBtn As CommandBarButton
Dim xIntLine, xFNum As Integer
Dim xObjComponent As Object
Run "ClearMacro"
Set xObjCBCF = Application.CommandBars("Cell").Controls.Add(msoControlPopup, before:=1)
xObjCBCF.Caption = " Run Macro "
xObjCBCF.BeginGroup = False
For Each xObjComponent In ActiveWorkbook.VBProject.VBComponents
If xObjComponent.Type = 1 Then
For xIntLine = 1 To xObjComponent.CodeModule.CountOfLines
xStrLine = xObjComponent.CodeModule.Lines(xIntLine, 1)
xStrLine = Trim(xStrLine)
If (InStr(xStrLine, "()") > 0) And (Left(xStrLine, 11) = "Private Sub" Or Left(xStrLine, 3) = "Sub") Then
xSreBtnName = ""
If "Private Sub" = Left(xStrLine, 11) Then
xSreBtnName = Trim(Mid(xStrLine, 12, InStr(xStrLine, "()") - 12))
ElseIf "Sub" = Left(xStrLine, 3) Then
xSreBtnName = Trim(Mid(xStrLine, 4, InStr(xStrLine, "()") - 4))
End If
If xSreBtnName <> "" And xSreBtnName <> "RightClickReset" And xSreBtnName <> "LoadMacro" And xSreBtnName <> "ActionMacro" Then
Set xObjCBBtn = xObjCBCF.Controls.Add
With xObjCBBtn
.FaceId = 186
.Style = msoButtonIconAndCaption
.Caption = xSreBtnName
.OnAction = "ActionMacro"
End With
End If
End If
Next xIntLine
End If
Next xObjComponent
End Sub
Private Sub ClearMacro()
On Error Resume Next
CommandBars("Cell").Controls(" Run Macro ").Delete
Err.Clear
CommandBars("Cell").Reset
End Sub
Private Sub ActionMacro()
On Error GoTo Err1
With Application
Run .CommandBars("Cell").Controls(1).Controls(.Caller(1)).Caption
End With
Exit Sub
Err1:
MsgBox "Invalid"
End Sub
4. بعد لصق الأكواد، انقر فوق أدوات > مراجع، وسيتم عرض مربع حوار References-VBAProject، وبعد ذلك قم بتحديد خيار Microsoft Visual Basic for Applications Extensibility 5.3 في مربع القائمة المرجعية المتاحة، انظر لقطة الشاشة:
5. ثم انقر فوق موافق للخروج من الحوار، الآن، يجب أن تحفظ هذا المصنف بتنسيق Excel Macro-Enabled Workbook، انظر لقطة الشاشة:
6. أخيرًا، يرجى إعادة تشغيل المصنف لتفعيل الأكواد، والآن، عندما تنقر بزر الماوس الأيمن على الخلية، يتم إدراج خيار تشغيل الماكرو في قائمة النقر بزر الماوس الأيمن، وجميع وحدات الماكرو في مصنفك مدرجة في القائمة الفرعية كما في لقطة الشاشة التالية:
7. بعد ذلك يمكنك تشغيل الكود بمجرد النقر عليه.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد