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 final
Sub Workbook_AddinInstall privat ()
Subtitlu final
Sub Workbook_AddinUninstall privat ()
Subtitlu final
Sub Workbook_AfterRemoteChange privat ()
Subtitlu final
Sub Workbook_AfterSave privat (succes ByVal ca Boolean)
Subtitlu final
Sub Workbook_BeforeClose privată (anulare ca Boolean)
Subtitlu final
Sub Workbook_BeforePrint privată (anulare ca Boolean)
Subtitlu final
Sub Workbook_BeforeRemoteChange privat ()
Subtitlu final
Sub Workbook_BeforeSave privat (ByVal SaveAsUI ca boolean, anulare ca Boolean)
Subtitlu final
Sub Workbook_Deactivate privat ()
Subtitlu final
Sub Workbook_NewChart privat (ByVal CH ca diagramă)
Subtitlu final
Sub Workbook_NewSheet privat (ByVal sh ca obiect)
Subtitlu final
Sub Workbook_Open privat ()
Subtitlu final
SubWorkbook_PivotTableCloseConnection privat (ByVal target as PivotTable)
Subtitlu final
SubWorkbook_PivotTableOpenConnection privat (ByVal target as PivotTable)
Subtitlu final
Sub Workbook_RowsetComplete particular (Descriere ByVal ca șir, ByVal foaie ca șir, ByVal succes ca Boolean)
Subtitlu final
Sub Workbook_SheetActivate privat (ByVal sh ca obiect)
Subtitlu final
Sub Workbook_SheetBeforeDelete privat (ByVal sh ca obiect)
Subtitlu final
Sub Workbook_SheetBeforeDoubleClick privat (ByVal sh as Object, ByVal target as Range, Cancel as Boolean
)
Subtitlu final
Sub Workbook_SheetBeforeRightClick privat (ByVal sh as Object, ByVal target as Range, Cancel as Boolean
)
Subtitlu final
Sub Workbook_SheetCalculate privat (ByVal sh ca obiect)
Subtitlu final
Sub Workbook_SheetChange privat (ByVal sh as Object, target ByVal as Range
)
Subtitlu final
Sub Workbook_SheetDeactivate privat (ByVal sh ca obiect)
Subtitlu final
Sub Workbook_SheetFollowHyperlink privat (ByVal sh as Object, ByVal target as hyperlink)
Subtitlu final
Sub Workbook_SheetPivotTableAfterValueChange privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal TargetRange as Range
)
Subtitlu final
Sub Workbook_SheetPivotTableBeforeAllocateChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as Boolean)
Subtitlu final
Sub Workbook_SheetPivotTableBeforeCommitChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as Boolean)
Subtitlu final
Sub Workbook_SheetPivotTableBeforeDiscardChanges privat (ByVal sh as Object, ByVal TargetPivotTable as PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long)
Subtitlu final
Sub Workbook_SheetPivotTableChangeSync privat (ByVal sh as Object, ByVal target as PivotTable)
Subtitlu final
Sub Workbook_SheetPivotTableUpdate privat (ByVal sh as Object, ByVal target as PivotTable)
Subtitlu final
Sub Workbook_SheetSelectionChange privat (ByVal sh as Object, target ByVal as Range
)
Subtitlu final
Sub Workbook_SheetTableUpdate privat (ByVal sh as Object, ByVal target as TableObject)
Subtitlu final
Sub Workbook_Sync privat (ByVal SyncEventType ca Office. MsoSyncEventType)
Subtitlu final
Sub Workbook_WindowActivate privată (ByVal în jos ca fereastră
)
Subtitlu final
Sub Workbook_WindowDeactivate privată (ByVal în jos ca fereastră
)
Subtitlu final
Sub Workbook_WindowResize privată (ByVal în jos ca fereastră
)
Subtitlu final
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
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
