Päivitetty viimeksi: Huhtikuu 10, 2019

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

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

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

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

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDelete()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_LensGalleryRenderComplete()

End Sub

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)

End Sub

Lisämateriaalia

Asiantuntijoiden kuvake (aivot, rattaat)

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

Ominaisuuksien kuvake (hehkulamppu, idea)

Ehdota ominaisuutta

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

Anna palautetta

Tutustu myös seuraaviin ohjeaiheisiin

Korjauksia tai vaihtoehtoisia menetelmiä Excel for Macin viimeaikaisiin ongelmiin

Tarvitsetko lisäohjeita?

Haluatko lisää vaihtoehtoja?

Tutustu tilausetuihin, selaa harjoituskursseja, opi suojaamaan laitteesi ja paljon muuta.

Osallistumalla yhteisöihin voit kysyä kysymyksiä ja vastata niihin, antaa palautetta sekä kuulla lisää asiantuntijoilta, joilla on runsaasti tietoa.

Etsi ratkaisuja yleisiin ongelmiin tai hanki apua tukihenkilöltä.