„A változó a Visual Basic által nem támogatott Automation típusú” hibaüzenet a Mac Excelhez készült Visual Basic Editorban

Utolsó frissítés: 2017. november 10.

PROBLÉMA

A Mac Excel appban 2017 októberében mutattuk be az új Visual Basic Editort. Ebben az új VB-szerkesztőben probléma adódott az objektumdeklarációk létrehozásával, mely a kódablak tetején lévő legördülő menüre kattintva lenne lehetséges.

A bal oldalon lévő legördülő menüre kattintva és a lista egy elemét kiválasztva a jobb oldali legördülő listában meg kéne jelennie az adott esemény kódjának. A jobb oldali legördülő listában további elemeket kijelölve újabb kódokat is létrehozhat a kiválasztott esemény kezeléséhez.

Objektumválasztási legördülő lista a VBE szerkesztőben_C3_2017109141018

Ehelyett egy hibaüzenet arról értesít, hogy a kódot nem sikerült létrehozni.

Microsoft Visual Basic hibaüzenet: A változó a Visual Basic által nem támogatott Automation típusú._C3_2017109141134

ÁLLAPOT: KERÜLŐ MEGOLDÁS

A hiba elhárításához válasszon az alábbi kerülő megoldások közül:

1. KERÜLŐ MEGOLDÁS

A szükséges lépéseket elvégezheti egy Windows Excelt futtató számítógépen, majd a Mac Excelbe másolhatja a kódot.

2. KERÜLŐ MEGOLDÁS

Keresse fel az MSDN webhelyet, keresse meg a használni kívánt esemény szintaxisát, majd írja be a kódot manuálisan a VBA-projektbe. Ez a témakör a Microsoft Excel „munkafüzet” eseményeit mutatja be – Munkafüzet események.

3. KERÜLŐ MEGOLDÁS

Másolja a VBA-projektbe a megfelelő eseménykódot az alábbi mintákból. Minden eseményhez a „Private Sub...”-tól az „End Sub”-ig másolja át a kódokat.

    
    

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

Szakértők ikon (agy, fogaskerekek)

Kérdezzen a szakértőktől

Kapcsolatba léphet a szakértőkkel, és megbeszélheti velük az Excelre vonatkozó híreket, frissítéseket és ajánlott eljárásokat, valamint elolvashatja a blogunkat.

Excel technikai közösség

Közösség ikon

Segítség kérése a közösségben

A támogatási szakemberek, MVP minősítésű szakértők, mérnökök és az Excel más felhasználói segítenek Önnek megválaszolni a kérdéseit és megoldást találni a problémáira.

Excel-fórum az Answers webhelyén

Funkció kérése ikon (villanykörte, ötlet)

Javaslat új funkcióra

Mindig örömmel olvassuk felhasználóink javaslatait és visszajelzéseit. Ossza meg velünk gondolatait! Fontos nekünk a véleménye.

Excel UserVoice

Lásd még

Javítások és kerülő megoldások a Mac Excel friss problémáihoz

Ismeretek bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×