Excel for Macin Visual Basicin Muuttuja käyttää Automation-tyyppiä, jota ei tueta -virhe

Päivitetty viimeksi: 10. marraskuuta 2017

ONGELMA

Uusi Visual Basic -editori tuotiin Excel for Maciin lokakuussa 2017. Uudessa VB-editorissa esiintyy ongelma, kun objektimäärittelyjä luodaan valitsemalla koodi-ikkunan yläreunan avattavasta valikosta.

Jos valitset vasemmalla olevasta avattavasta luettelosta kohteen, oikealla olevaan avattavaan luetteloon pitäisi tulla tapahtuman koodia. Voit tehdä lisävalintoja oikealla olevasta avattavasta luettelosta ja luoda lisäkoodia valitun tapahtuman käsittelemistä varten.

VBE-editori, jossa näkyy avattava objektinvalintaluettelo_C3_2017109141018

Sen sijaan näkyviin tulee virhesanoma siitä, ettei koodia luotu.

Microsoft Visual Basicin virhe: Muuttuja käyttää automaatiotyyppiä, jota Visual Basic ei tue._C3_2017109141134

TILA: VAIHTOEHTOINEN MENETELMÄ

Valitse jokin näistä vaihtoehtoisista menetelmistä tätä ongelmaa varten:

VAIHTOEHTOINEN MENETELMÄ 1

Voit suorittaa samanlaisen toimenpiteen tietokoneessa, jossa on käytössä Excel for Windows, ja kopioida sitten koodin Excel for Maciin.

VAIHTOEHTOINEN MENETELMÄ 2

Voit siirtyä MSDN:ään, etsiä syntaksin haluamaasi tapahtumaa varten ja kirjoittaa koodin manuaalisesti VBA-projektiin. Tässä artikkelissa kuvataan Microsoft Excelin ”työkirjatapahtumat” – Työkirjatapahtumat.

VAIHTOEHTOINEN MENETELMÄ 3

Kopioi asianomainen tapahtumakoodi alla olevista malleista ja liitä se VBA-projektiisi. Kopioi koodi jokaista tapahtumaa varten Private Sub... -kohdasta End Sub -kohtaan.

    
    

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

Asiantuntijoiden kuvake (aivot, ratakset)

Kysy asiantuntijoilta

Ota yhteyttä asiantuntijoihin, keskustele uusista Exceliä koskevista uutisista, päivityksistä ja parhaista käytännöistä ja lue blogia.

Excel Tech Community -verkosto

Yhteisön kuvake

Pyydä apua yhteisöltä

Kysy ja etsi ratkaisuja tukiedustajilta, erityisasiantuntijoilta, teknisiltä asiantuntijoilta ja muilta Excel-käyttäjiltä.

Answers-sivuston Excel-keskustelupalsta

Ominaisuuspyynnön kuvake (hehkulamppu, idea)

Ehdota ominaisuutta

Otamme mielellämme ehdotuksia ja palautetta vastaan. Jaa ajatuksesi. Mielipiteesi on tärkeä.

Excelin UserVoice

Katso myös

Korjauksia tai vaihtoehtoisia menetelmiä Excel for Macin viimeaikaisiin ongelmiin

Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×