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

تاريخ آخر تحديث: 10 نوفمبر 2017

المشكلة

في 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

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

سؤال الخبراء

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

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

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

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

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

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

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

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

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

Excel UserVoice

انظر أيضاً

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

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×