Ultima actualizare: 10 aprilie 2019
PROBLEMĂ
În Excel pentru Mac, a fost introdus un nou Visual Basic Editor în octombrie 2017. Cu acest editor VB nou, există o problemă cu crearea declarațiilor de obiect prin alegerea din meniul vertical din partea de sus a ferestrei de cod.
Dacă faceți clic pe lista verticală din partea stângă și alegeți un element din listă, ar trebui să obțineți un cod pentru evenimentul selectat în lista verticală din partea dreaptă. Puteți face selecții suplimentare din lista verticală din partea dreaptă pentru a crea un cod suplimentar pentru a gestiona evenimentul ales.
În schimb, apare o eroare potrivit căreia codul nu este creat.
STARE: SOLUȚIE
Alegeți una dintre aceste soluții pentru această problemă:
SOLUȚIA nr. 1
Puteți să efectuați un pas asemănător pe un computer pe care rulează Excel pentru Windows și apoi să copiați codul în Excel pentru Mac.
SOLUȚIA nr. 2
Puteți să accesați MSDN și să găsiți sintaxa pentru evenimentul pe care doriți să-l utilizați și să tastați manual codul în proiectul VBA. Acest articol descrie evenimentele de „registru de lucru” Microsoft Excel - Evenimente de registru de lucru.
SOLUȚIE nr. 3
Copiați codul de eveniment corespunzător din exemplele de mai jos și lipiți-l în proiectul VBA. Pentru fiecare eveniment, aveți grijă să copiați de la „Private Sub...” până la „End Sub”, inclusiv.
Sub Workbook_Activate privat ()
Subtitlu finalSub Workbook_AddinInstall privat ()
Subtitlu finalSub Workbook_AddinUninstall privat ()
Subtitlu finalSub Workbook_AfterRemoteChange privat ()
Subtitlu finalSub Workbook_AfterSave privat (succes ByVal ca Boolean)
Subtitlu finalSub Workbook_BeforeClose privată (anulare ca Boolean)
Subtitlu finalSub Workbook_BeforePrint privată (anulare ca Boolean)
Subtitlu finalSub Workbook_BeforeRemoteChange privat ()
Subtitlu finalSub Workbook_BeforeSave privat (ByVal SaveAsUI ca boolean, anulare ca Boolean)
Subtitlu finalSub Workbook_Deactivate privat ()
Subtitlu finalSub Workbook_NewChart privat (ByVal CH ca diagramă)
Subtitlu finalSub Workbook_NewSheet privat (ByVal sh ca obiect)
Subtitlu finalSub Workbook_Open privat ()
Subtitlu finalSubWorkbook_PivotTableCloseConnection privat (ByVal target as PivotTable)
Subtitlu finalSubWorkbook_PivotTableOpenConnection privat (ByVal target as PivotTable)
Subtitlu finalSub Workbook_RowsetComplete particular (Descriere ByVal ca șir, ByVal foaie ca șir, ByVal succes ca Boolean)
Subtitlu finalSub Workbook_SheetActivate privat (ByVal sh ca obiect)
Subtitlu finalSub Workbook_SheetBeforeDelete privat (ByVal sh ca obiect)
Subtitlu finalSub Workbook_SheetBeforeDoubleClick privat (ByVal sh as Object, ByVal target as Range, Cancel as Boolean
) Subtitlu finalSub Workbook_SheetBeforeRightClick privat (ByVal sh as Object, ByVal target as Range, Cancel as Boolean
) Subtitlu finalSub Workbook_SheetCalculate privat (ByVal sh ca obiect)
Subtitlu finalSub Workbook_SheetChange privat (ByVal sh as Object, target ByVal as Range
) Subtitlu finalSub Workbook_SheetDeactivate privat (ByVal sh ca obiect)
Subtitlu finalSub Workbook_SheetFollowHyperlink privat (ByVal sh as Object, ByVal target as hyperlink)
Subtitlu finalSub Workbook_SheetPivotTableAfterValueChange privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal TargetRange as Range
) Subtitlu finalSub Workbook_SheetPivotTableBeforeAllocateChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as Boolean)
Subtitlu finalSub Workbook_SheetPivotTableBeforeCommitChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as Boolean)
Subtitlu finalSub Workbook_SheetPivotTableBeforeDiscardChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long)
Subtitlu finalSub Workbook_SheetPivotTableChangeSync privat (ByVal sh as Object, ByVal target as PivotTable)
Subtitlu finalSub Workbook_SheetPivotTableUpdate privat (ByVal sh as Object, ByVal target as PivotTable)
Subtitlu finalSub Workbook_SheetSelectionChange privat (ByVal sh as Object, target ByVal as Range
) Subtitlu finalSub Workbook_SheetTableUpdate privat (ByVal sh as Object, ByVal target as TableObject)
Subtitlu finalSub Workbook_Sync privat (ByVal SyncEventType ca Office. MsoSyncEventType)
Subtitlu finalSub Workbook_WindowActivate privată (ByVal în jos ca fereastră
) Subtitlu finalSub Workbook_WindowDeactivate privată (ByVal în jos ca fereastră
) Subtitlu finalSub Workbook_WindowResize privată (ByVal în jos ca fereastră
) Subtitlu finalPrivate 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
Mai multe resurse
Întrebați experții
Luați legătura cu experți, discutați despre cele mai recente știri, actualizări și cele mai bune practici despre Excel și citiți blogul nostru.
Primiți ajutor de la Comunitate
Adresați o întrebare și găsiți soluții de la agenți de suport, specialiști MVP, ingineri și alți utilizatori Excel.
Sugerați o caracteristică nouă
Ne place să vă citim sugestiile și feedbackul! Împărtășiți-vă gândurile. Vă ascultăm.
Consultați și
Remedieri sau soluții pentru problemele recente din Excel pentru Mac