Feilmeldingen «Variabelen bruker en type automatisering som ikke støttes» i Visual Basic Editor i Excel for Mac

Sist oppdatert: 10. november 2017

PROBLEM

En ny Visual Basic-redigering i Excel for Mac ble innført i oktober 2017. I denne nye VB-redigeringen er det et problem med å opprette objektdeklarasjoner ved å velge fra rullegardinlisten øverst i kodevinduet.

Hvis du klikker på rullegardinlisten til venstre og velger et element fra listen, skal du få en kode for den valgte hendelsen i rullegardinlisten til høyre. Du kan gjøre flere valg fra rullegardinlisten til høyre for å opprette flere koder for å behandle den valgte hendelsen.

VBE-redigeringsprogram som viser  rullegardinlisten for objektvalg _C3_2017109141018

Du ser i stedet en feilmelding om at koden ikke er opprettet.

Feilmelding i Microsoft Visual Basic: Variabelen bruker en type automatisering som ikke støttes i Visual Basic.C3_2017109141134

STATUS: MIDLERTIDIG LØSNING

Velg én av disse løsningene for dette problemet:

MIDLERTIDIG LØSNING #1

Du kan utføre lignende trinn på en datamaskin som kjører Excel for Windows, og deretter kopiere koden til Excel for Mac.

MIDLERTIDIG LØSNING #2

Du kan gå til MSDN og finne syntaksen for hendelsen du vil bruke, og skrive inn koden manuelt i VBA-prosjektet. Denne artikkelen beskriver «arbeidsbok»-hendelsene i Microsoft Excel, Arbeidsbokhendelser.

MIDLERTIDIG LØSNING #3

Kopier riktig hendelseskode fra eksemplene nedenfor og lim den inn i VBA-prosjektet. Pass på å kopiere alt fra «Private Sub...» til «End Sub» for hver hendelse.

    
    

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

Eksperter-ikon (hjerne, gir)

Spør ekspertene

Kom i kontakt med eksperter, diskuter nyheter for Excel, oppdateringer og anbefalte fremgangsmåter, og les bloggen vår.

Teknisk fellesskap for Excel

Fellesskap-ikon

Få hjelp i fellesskapet

Still et spørsmål, og finn løsninger fra kundestøtteagenter, MVP-er, ingeniører og andre Excel-brukere.

Excel-forum for svar

Funksjonforespørsel-ikon (lyspære, idé)

Foreslå en ny funksjon

Vi leser gjerne forslagene og tilbakemeldingene dine. Del ideene dine. Vi lytter.

Excel UserVoice

Se også

Ferdige eller midlertidige løsninger for nylige problemer i Excel for Mac

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×