”Variabeln använder en Automation-typ som inte kan användas” i Visual Basics Editor i Excel för Mac

Senast uppdaterad: 10 november 2017

PROBLEM

I Excel för Mac infördes en ny Visual Basic Editor i oktober 2017. I den nya Visual Basic Editor finns det ett problem med att skapa objektdeklarationer genom att välja i den nedrullningsbara menyn högst upp i kodfönstret.

Om du klickar på den nedrullningsbara listrutan till vänster och väljer ett objekt i listan, bör du få kod för den markerade händelsen i listrutan till höger. Du kan göra ytterligare val från den nedrullningsbara listrutan till höger för att skapa ytterligare kod för att hantera den valda händelsen.

VBE Editor visar listruta för val av objekt

I stället uppstår ett fel så att koden inte skapas.

Microsoft Visual Basic Editor: Användning av variabel och automatiseringstyp stöds inte i Visual Basic.

STATUS: LÖSNING

Välj någon av dessa lösningar för det här problemet:

LÖSNING #1

Du kan utföra en liknande åtgärd på en dator som kör Excel för Windows och sedan kopiera koden till Excel för Mac.

LÖSNING #2

Du kan gå till MSDN och hitta syntaxen för den händelse du vill använda och skriva in koden manuellt i ditt VBA-projekt. I den här artikeln beskrivs ”arbetsbokshändelser” i Microsoft Excel – arbetsbokshändelser.

LÖSNING #3

Kopiera lämplig händelsekod från exemplen nedan och klistra in den i ditt VBA-projekt. Se till att kopiera från och med ”Private Sub...” till och med ”End Sub” för varje händelse.

    
    

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

Icon-experter (hjärna, kugghjul)

Fråga experterna

Läs vår blogg, få kontakt med experter och diskutera de senaste nyheterna, uppdateringarna och bästa metoderna för Excel.

Excel Tech Community

Icon-communityn

Få hjälp i communityn

Ställ en fråga och ta del av lösningar från supportpersonal, MVP-medlemmar, tekniker och andra Excel-användare.

Svar i Excel-forumet

Icon-funktionsbegäran (glödlampa, idé)

Föreslå en ny funktion

Vi tycker om att läsa dina förslag och feedback! Dela dina synpunkter. Vi lyssnar.

Excel UserVoice

Mer information finns i

Korrigeringar eller lösningar för de senaste problemen i Excel för Mac

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×