Applies ToExcel 2016 עבור Mac

עדכון אחרון: 10 באפריל 2019

בעיה

ב- Excel עבור Mac, עורך Visual Basic חדש הוצג באוקטובר 2017. בעורך VB חדש זה יש בעיה ביצירת הצהרות אובייקט על-ידי בחירה מתוך תפריט נפתח בחלק העליון של חלון הקוד.

אם תלחץ על הרשימה הנפתחת בצד ימין ותבחר פריט מהרשימה, תקבל קוד מסוים עבור האירוע שנבחר ברשימה הנפתחת בצד שמאל. באפשרותך לבחור אפשרויות נוספות מתוך הרשימה הנפתחת משמאל כדי ליצור קוד נוסף לטיפול באירוע שבחרת.

עורך VBE מציג רשימה נפתחת של בחירת אובייקט

במקום זאת, מתרחשת שגיאה כשהקוד לא נוצר.

שגיאה של Microsoft Visual Basic: המשתנה משתמש בסוג אוטומציה שאינו נתמך ב- Visual Basic.

מצב: פתרון

בחר אחד מהפתרונות עבור הבעיה:

פתרון 1

באפשרותך לבצע שלב דומה זה במחשב שבו פועל Excel עבור Windows ולאחר מכן להעתיק את הקוד ל- Excel עבור 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 וקרא את הבלוג.

קהילת Tech Community עבור Excel

סמל - קהילה

קבל עזרה בקהילה

שאל שאלות ומצא פתרונות בעזרת נציגי תמיכה, משתמשי MVP, מהנדסים ומשתמשים אחרים של Excel.

פורום Excel ב- Answers

סמל - בקשת תכונה (נורת חשמל, רעיון)

הצע תכונה חדשה

אנחנו אוהבים לקרוא את ההצעות והמשוב שלך! שתף את המחשבות שלך. אנחנו מקשיבים.

ספק משוב

למידע נוסף

תיקונים או פתרונות עבור בעיות אחרונות ב- Excel עבור Mac

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

גלה את יתרונות המנוי, עיין בקורסי הדרכה, למד כיצד לאבטח את המכשיר שלך ועוד.

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.

חפש פתרונות לבעיות נפוצות או קבל עזרה מנציג תמיכה.