Viimati värskendatud 10. aprillil 2019
PROBLEEM
2017. aasta oktoobrist töötab rakenduses Excel for Mac uus Visual Basic Editor. Uus VB-redaktoris esineb tõrge, kui luua objektideklaratsioone, tehes valikuid koodiakna ülaservas asuvas rippmenüüs.
Kui klõpsate vasakule jäävat rippmenüüd ja valite loendist mõne üksuse, peaks valitud sündmuse jaoks loodama paremale jäävas ripploendis kood. Saate paremale jäävas ripploendis teha valitud sündmuse jaoks täiendava koodi loomiseks täiendavaid valikuid.
Selle asemel kuvatakse tõrketeade ja koodi ei looda.
OLEK: AJUTINE LAHENDUS
Valige üks järgmistest ajutistest lahendustest.
AJUTINE LAHENDUS 1
Tehke toimingud arvutis, kus töötab Windowsi jaoks ette nähtud Excel ja seejärel kopeerige kood Excel for Maci.
AJUTINE LAHENDUS 2
Saate liikuda MSDN-i, otsida üles soovitud sündmuse süntaksi ja tippida koodi VBA-projekti käsitsi. Microsoft Exceli töövihikusündmusi kirjeldatakse artiklis Töövihikusündmused (inglise keeles).
AJUTINE LAHENDUS 3
Kopeerige sobiv sündmusekood allolevatest näidetest ja kleepige see oma VBA-projekti. Iga sündmuse puhul kopeerige vahemik „Private Sub..“ kuni „End Sub“ (kaasa arvatud).
Privaatne sub Workbook_Activate ()
Lõpeta subPrivaatne sub Workbook_AddinInstall ()
Lõpeta subPrivaatne sub Workbook_AddinUninstall ()
Lõpeta subPrivaatne sub Workbook_AfterRemoteChange ()
Lõpeta subPrivate sub Workbook_AfterSave (ByVal edu Boolean)
Lõpeta subPrivaatne sub Workbook_BeforeClose (Tühista kui Boolean)
Lõpeta subPrivaatne sub Workbook_BeforePrint (Tühista kui Boolean)
Lõpeta subPrivaatne sub Workbook_BeforeRemoteChange ()
Lõpeta subPrivaatsed sub Workbook_BeforeSave (ByVal SaveAsUI nagu Boolean; Tühista kui Boolean
) Lõpeta subPrivaatne sub Workbook_Deactivate ()
Lõpeta subPrivaatne sub Workbook_NewChart (ByVal CH diagrammina)
Lõpeta subPrivaatsed sub Workbook_NewSheet (ByVal sh objekt)
Lõpeta subPrivaatne sub Workbook_Open ()
Lõpeta subPrivaatne sub Workbook_PivotTableCloseConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta subPrivaatne sub Workbook_PivotTableOpenConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta subPrivate sub Workbook_RowsetComplete (ByVal kirjeldus stringina, ByVal leht stringina, ByVal edu kui Boolean)
Lõpeta subPrivaatsed sub Workbook_SheetActivate (ByVal sh objekt)
Lõpeta subPrivaatsed sub Workbook_SheetBeforeDelete (ByVal sh objekt)
Lõpeta subPrivaatsed sub Workbook_SheetBeforeDoubleClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta subPrivaatsed sub Workbook_SheetBeforeRightClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta subPrivaatsed sub Workbook_SheetCalculate (ByVal sh objekt)
Lõpeta subPrivaatsed sub Workbook_SheetChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta subPrivaatsed sub Workbook_SheetDeactivate (ByVal sh objekt)
Lõpeta subPrivaatsed sub Workbook_SheetFollowHyperlink (ByVal sh objekt, ByVal sihtmärk hüperlingina)
Lõpeta subPrivaatsed sub Workbook_SheetPivotTableAfterValueChange (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal TargetRange vahemikuna)
Lõpeta subPrivate sub Workbook_SheetPivotTableBeforeAllocateChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk, tühistage kui
Boolean) Lõpeta subPrivate sub Workbook_SheetPivotTableBeforeCommitChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk, tühistage kui
Boolean) Lõpeta subPrivate sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk
) Lõpeta subPrivaatsed sub Workbook_SheetPivotTableChangeSync (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta subPrivaatsed sub Workbook_SheetPivotTableUpdate (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta subPrivaatsed sub Workbook_SheetSelectionChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta subPrivate sub Workbook_SheetTableUpdate (ByVal sh objekt, ByVal Target AS TableObject)
Lõpeta subPrivate sub Workbook_Sync (ByVal SyncEventType AS Office. MsoSyncEventType)
Lõpeta subPrivate sub Workbook_WindowActivate (ByVal WN AS Window)
Lõpeta subPrivate sub Workbook_WindowDeactivate (ByVal WN AS Window)
Lõpeta subPrivate sub Workbook_WindowResize (ByVal WN AS Window)
Lõpeta 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
Veel ressursse
Küsige nõu asjatundjatelt
Saate ühendust võtta asjatundjatega, arutleda Exceli uudiste, värskenduste ja parimate kasutuskogemuste teemal ning lugeda meie ajaveebi.
Abi kogukonnafoorumist
Saate esitada küsimusi ning leida probleemidele lahendusi tugitöötajate, tippspetsialistide, tehnikute ja teiste Exceli kasutajate abil.
Uue funktsiooni soovitamine
Meil on alati hea meel teie soovituste ja tagasiside üle! Jagage oma ideid. Me kuulame.
Lisateave
Excel for Maci viimaste väljaannete parandused või ajutised lahendused