Applies ToExcel 2016 pentru Mac

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.

Editor VBE afișând obiect lista verticală de selecție a obiectului

În schimb, apare o eroare potrivit căreia codul nu este creat.

Eroare Microsoft Visual Basic: Variabila utilizează un tip Automation neacceptat în Visual Basic.

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

Pictograma Experți (creier, rotițe dințate)

Î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.

Comunitatea tehnică Excel

Pictograma Comunitate

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.

Forumul Excel pe Answers

Pictograma Solicitare caracteristică (bec, idee)

Sugerați o caracteristică nouă

Ne place să vă citim sugestiile și feedbackul! Împărtășiți-vă gândurile. Vă ascultăm.

Oferiți feedback

Consultați și

Remedieri sau soluții pentru problemele recente din Excel pentru Mac

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Găsiți soluții la problemele uzuale sau obțineți ajutor de la un agent de asistență.