تاريخ التحديث الأخير: 10 أبريل 2019
المشكلة
في Excel for Mac، تم تقديم محرر Visual Basic جديد في أكتوبر 2017. باستخدام محرر VB الجديد هذا، توجد مشكلة في إنشاء إعلانات العنصر من خلال اختيار من القائمة المنسدلة أعلى نافذة التعليمات البرمجية.
في حالة النقر فوق القائمة المنسدلة على الجانب الأيمن واختيار أحد عناصر القائمة، يجب الحصول على بعض التعليمات البرمجية للحدث المحدد في القائمة المنسدلة على الجانب الأيسر. يمكنك إجراء تحديدات إضافية من القائمة المنسدلة على الجانب الأيسر لإنشاء تعليمة برمجية إضافية لمعالجة الحدث الذي قمت باختياره.
بدلا من ذلك، يحدث خطأ في عدم إنشاء التعليمات البرمجية.
الحالة: الحل البديل
اختر حلاً واحداً من هذه الحلول البديلة الخاصة بهذه المشكلة:
الحل البديل رقم 1
يمكنك تنفيذ الخطوة المماثلة على جهاز كمبيوتر يقوم بتشغيل Excel for Windows، وبعد ذلك نسخ التعليمات البرمجية إلى Excel for Mac.
الحل البديل رقم 2
يمكنك الانتقال إلى MSDN والعثور على بناء جملة الحدث الذي تريد استخدامه واكتب التعليمات البرمجية يدوياً في مشروع VBA. توضح هذه المقالة أحداث "مصنف" Microsoft Excel - أحداث المصنف.
الحل البديل رقم 3
انسخ التعليمات البرمجية المناسبة للحدث من النماذج أدناه والصقها إلى مشروع VBA. لكل حدث، تأكد من النسخ من “Private Sub....” إلى “End Sub”، ضمنياً.
Workbook_Activate الفرعية الخاصة()
End Sub
Workbook_AddinInstall الفرعية الخاصة()
End Sub
Workbook_AddinUninstall الفرعية الخاصة()
End Sub
Workbook_AfterRemoteChange الفرعية الخاصة()
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
End Sub
Workbook_BeforeClose الفرعية الخاصة (إلغاء كقيمة منطقية)
End Sub
Workbook_BeforePrint الفرعية الخاصة (إلغاء كقيمة منطقية)
End Sub
Workbook_BeforeRemoteChange الفرعية الخاصة()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub
Workbook_Deactivate الفرعية الخاصة()
End Sub
مخطط Workbook_NewChart الفرعية الخاصة (مخطط ByVal Ch As)
End Sub
Workbook_NewSheet الفرعية الخاصة (ByVal Sh كعنصر)
End Sub
Workbook_Open الفرعية الخاصة()
End Sub
Workbook_PivotTableCloseConnection الفرعية الخاصة (الهدف ByVal ك PivotTable)
End Sub
Workbook_PivotTableOpenConnection الفرعية الخاصة (الهدف ByVal ك PivotTable)
End Sub
Workbook_RowsetComplete الفرعية الخاصة (وصف ByVal كسلسلة، ورقة ByVal كسلسلة، نجاح ByVal كقيم منطقية)
End Sub
Workbook_SheetActivate الفرعية الخاصة (ByVal Sh كعنصر)
End Sub
Workbook_SheetBeforeDelete الفرعية الخاصة (ByVal Sh كعنصر)
End Sub
Workbook_SheetBeforeDoubleClick الفرعية الخاصة (ByVal Sh كعنصر، ByVal Target As Range، Cancel as Boolean)
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End Sub
Workbook_SheetCalculate الفرعية الخاصة (ByVal Sh كعنصر)
End Sub
Workbook_SheetChange الفرعية الخاصة (ByVal Sh كعنصر، ByVal Target As Range)
End Sub
Workbook_SheetDeactivate الفرعية الخاصة (ByVal Sh كعنصر)
End Sub
Workbook_SheetFollowHyperlink الفرعية الخاصة (ByVal Sh كعنصر، ByVal Target كارتباط تشعبي)
End Sub
Workbook_SheetPivotTableAfterValueChange الفرعية الخاصة (ByVal Sh كعنصر، ByVal TargetPivotTable ك PivotTable، ByVal TargetRange As Range)
End Sub
Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End Sub
Workbook_SheetPivotTableChangeSync الفرعية الخاصة (ByVal Sh كعنصر، هدف ByVal ك PivotTable)
End Sub
Workbook_SheetPivotTableUpdate الفرعية الخاصة (ByVal Sh كعنصر، هدف ByVal ك PivotTable)
End Sub
Workbook_SheetSelectionChange الفرعية الخاصة (ByVal Sh كعنصر، ByVal Target As Range)
End Sub
Workbook_SheetTableUpdate الفرعية الخاصة (ByVal Sh كعنصر، الهدف ByVal ك TableObject)
End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End Sub
Private Sub Workbook_WindowActivate (ByVal Wn As Window)
End Sub
Workbook_WindowDeactivate الفرعية الخاصة (ByVal Wn As Window)
End Sub
Private Sub Workbook_WindowResize (ByVal Wn As Window)
End Sub
المزيد من الموارد
اسأل الخبراء
تواصل مع الخبراء وناقش معهم آخر الأخبار والتحديثات الأخيرة وأفضل الممارسات الخاصة بـ Excel واقرأ مدونتنا.
الحصول على تعليمات في المجتمع
اطرح سؤالاً ما واعثر على حلول من "وكلاء الدعم" وأهم محترفي MVP والمهندسين ومستخدمي Excel الآخرين.
اقتراح ميزة جديدة
نرحب دائماً باقتراحاتك وملاحظاتك! شارك بأفكارك. نتوق لسماع كل ما لديك.
اطلع أيضاً على
الإصلاحات أو الحلول البديلة للمشاكل الأخيرة في Excel for Mac