ظهور الخطأ «متغير يستخدم نوع تنفيذ تلقائي غير مدعم» في محرر Visual Basic في Excel for Mac

ينطبق على
Excel 2016 for Mac

تاريخ التحديث الأخير: 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”، ضمنياً.


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 واقرأ مدونتنا.

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

أيقونة مجتمع الحصول على تعليمات في المجتمع

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

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

طلب ميزة الأيقونة (مصباح كهربائي، فكرة) اقتراح ميزة جديدة

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

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

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

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