تاريخ التحديث الأخير: 10 أبريل، 2019

المشكلة

في Excel for Mac، تم تقديم محرر Visual Basic جديد في أكتوبر 2017. باستخدام محرر VB الجديد هذا، توجد مشكلة في إنشاء إعلانات العنصر من خلال اختيار من القائمة المنسدلة أعلى نافذة التعليمات البرمجية.

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

محرر VBE يعرض قائمة منسدلة لتحديد العناصر

بدلاً من ذلك، يحدث خطأ عدم إنشاء التعليمة البرمجية.

خطأ في Microsoft Visual Basic: استخدام المتغير ونوع الأتمتة غير مدعمين في Visual Basic.

الحالة: الحل البديل

اختر حلاً واحداً من هذه الحلول البديلة الخاصة بهذه المشكلة:

الحل البديل رقم 1

يمكنك تنفيذ الخطوة المماثلة على جهاز كمبيوتر يقوم بتشغيل Excel for Windows، وبعد ذلك نسخ التعليمات البرمجية إلى Excel for Mac.

الحل البديل رقم 2

يمكنك الانتقال إلى MSDN والعثور على بناء جملة الحدث الذي تريد استخدامه واكتب التعليمات البرمجية يدوياً في مشروع VBA. تتناول هذه المقالة أحداث “مصنف” Microsoft Excel أحداث المصنف.

الحل البديل رقم 3

انسخ التعليمات البرمجية المناسبة للحدث من النماذج أدناه والصقها إلى مشروع VBA. لكل حدث، تأكد من النسخ من “Private Sub....” إلى “End Sub”، ضمنياً.

Private Sub Workbook_Activate() End Sub

Private Sub Workbook_AddinInstall() End Sub

Private Sub Workbook_AddinUninstall() End Sub

Private Sub Workbook_AfterRemoteChange() End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean) End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) End Sub

Private Sub Workbook_BeforeRemoteChange() End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean، Cancel As Boolean) End Sub

Private Sub Workbook_Deactivate() End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart) End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object) End Sub

Private Sub Workbook_Open() End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable) End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable) End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean) End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object) End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, 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

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object، ByVal Target As Range) End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object، ByVal Target As Hyperlink) End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As 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

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable) End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject) End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType) End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window) End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window) End Sub

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDelete()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_LensGalleryRenderComplete()

End Sub

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)

End Sub

المزيد من الموارد

أيقونة الخبراء (مخ، تروس)

اسأل الخبراء

تواصل مع الخبراء وناقش معهم آخر الأخبار والتحديثات الأخيرة وأفضل الممارسات الخاصة بـ Excel واقرأ مدونتنا.

مجتمع Excel التقني

أيقونة المجتمع

احصل على المساعدة في المجتمع

اطرح سؤالاً ما واعثر على حلول من "وكلاء الدعم" وأهم محترفي MVP والمهندسين ومستخدمي Excel الآخرين.

منتدى Excel حول الإجابات

أيقونة طلب ميزة (مصباح إضاءة، فكرة)

اقتراح ميزة جديدة

نرحب دائماً باقتراحاتك وملاحظاتك! شارك بأفكارك. نتوق لسماع كل ما لديك.

تقديم ملاحظات

اطلع أيضاً على

الإصلاحات أو الحلول البديلة للمشاكل الأخيرة في Excel for Mac‏

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

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

ابحث عن حلول للمشاكل الشائعة أو احصل على المساعدة من وكيل دعم.