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.
Sen sijaan näkyviin tulee virhesanoma siitä, ettei koodia luotu.
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 SubPrivate Sub Workbook_AddinInstall()
End SubPrivate Sub Workbook_AddinUninstall()
End SubPrivate Sub Workbook_AfterRemoteChange()
End SubPrivate Sub Workbook_AfterSave(ByVal Success As Boolean)
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
End SubPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
End SubPrivate Sub Workbook_BeforeRemoteChange()
End SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End SubPrivate Sub Workbook_Deactivate()
End SubPrivate Sub Workbook_NewChart(ByVal Ch As Chart)
End SubPrivate Sub Workbook_NewSheet(ByVal Sh As Object)
End SubPrivate Sub Workbook_Open()
End SubPrivate Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)
End SubPrivate Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)
End SubPrivate Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)
End SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetCalculate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End SubPrivate Sub Workbook_SheetDeactivate(ByVal Sh As Object)
End SubPrivate Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
End SubPrivate Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
End SubPrivate Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End SubPrivate Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End SubPrivate Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
End SubPrivate Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End SubPrivate Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)
End SubPrivate Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End SubPrivate Sub Workbook_WindowActivate(ByVal Wn As Window)
End SubPrivate Sub Workbook_WindowDeactivate(ByVal Wn As Window)
End SubPrivate Sub Workbook_WindowResize(ByVal Wn As Window)
End SubPrivate 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
Kysy asiantuntijoilta
Ota yhteyttä asiantuntijoihin, keskustele uusista Exceliä koskevista uutisista, päivityksistä ja parhaista käytännöistä ja lue blogia.
Pyydä apua yhteisöltä
Kysy ja etsi ratkaisuja tukiedustajilta, erityisasiantuntijoilta, teknisiltä asiantuntijoilta ja muilta Excel-käyttäjiltä.
Ehdota ominaisuutta
Otamme mielellämme ehdotuksia ja palautetta vastaan. Jaa ajatuksesi. Mielipiteesi on tärkeä.
Tutustu myös seuraaviin ohjeaiheisiin
Korjauksia tai vaihtoehtoisia menetelmiä Excel for Macin viimeaikaisiin ongelmiin