تاريخ التحديث الأخير: 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”، ضمنياً.
Private Sub Workbook_Activate()
End SubPrivate Sub Workbook_AddinInstall()
End SubPrivate Sub Workbook_AddinUninstall()
End SubPrivate Sub Workbook_AfterRemoteChange()
End SubPrivate Sub Workbook_AfterSave(ByVal Success As Boolean)
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
End SubPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
End SubPrivate Sub Workbook_BeforeRemoteChange()
End SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean، Cancel As Boolean)
End SubPrivate Sub Workbook_Deactivate()
End SubPrivate Sub Workbook_NewChart(ByVal Ch As Chart)
End SubPrivate Sub Workbook_NewSheet(ByVal Sh As Object)
End SubPrivate Sub Workbook_Open()
End SubPrivate Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)
End SubPrivate Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)
End SubPrivate Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)
End SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetCalculate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object، ByVal Target As Range)
End SubPrivate Sub Workbook_SheetDeactivate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object، ByVal Target As Hyperlink)
End SubPrivate Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
End SubPrivate Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End SubPrivate Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
End SubPrivate Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End SubPrivate Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)
End SubPrivate Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End SubPrivate Sub Workbook_WindowActivate(ByVal Wn As Window)
End SubPrivate Sub Workbook_WindowDeactivate(ByVal Wn As Window)
End SubPrivate Sub Workbook_WindowResize(ByVal Wn As Window)
End SubPrivate 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 واقرأ مدونتنا.
احصل على المساعدة في المجتمع
اطرح سؤالاً ما واعثر على حلول من "وكلاء الدعم" وأهم محترفي MVP والمهندسين ومستخدمي Excel الآخرين.
اقتراح ميزة جديدة
نرحب دائماً باقتراحاتك وملاحظاتك! شارك بأفكارك. نتوق لسماع كل ما لديك.
اطلع أيضاً على
الإصلاحات أو الحلول البديلة للمشاكل الأخيرة في Excel for Mac