Eroarea „Variabila utilizează un tip Automation neacceptat” în Visual Basic Editor în Excel pentru Mac

Ultima actualizare: 10 noiembrie 2017

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_C3_2017109141018

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

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.

    
    

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

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.

Excel UserVoice

Consultați și

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

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×