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 sub
Privaatne sub Workbook_AddinInstall ()
Lõpeta sub
Privaatne sub Workbook_AddinUninstall ()
Lõpeta sub
Privaatne sub Workbook_AfterRemoteChange ()
Lõpeta sub
Private sub Workbook_AfterSave (ByVal edu Boolean)
Lõpeta sub
Privaatne sub Workbook_BeforeClose (Tühista kui Boolean)
Lõpeta sub
Privaatne sub Workbook_BeforePrint (Tühista kui Boolean)
Lõpeta sub
Privaatne sub Workbook_BeforeRemoteChange ()
Lõpeta sub
Privaatsed sub Workbook_BeforeSave (ByVal SaveAsUI nagu Boolean; Tühista kui Boolean
)
Lõpeta sub
Privaatne sub Workbook_Deactivate ()
Lõpeta sub
Privaatne sub Workbook_NewChart (ByVal CH diagrammina)
Lõpeta sub
Privaatsed sub Workbook_NewSheet (ByVal sh objekt)
Lõpeta sub
Privaatne sub Workbook_Open ()
Lõpeta sub
Privaatne sub Workbook_PivotTableCloseConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta sub
Privaatne sub Workbook_PivotTableOpenConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta sub
Private sub Workbook_RowsetComplete (ByVal kirjeldus stringina, ByVal leht stringina, ByVal edu kui Boolean)
Lõpeta sub
Privaatsed sub Workbook_SheetActivate (ByVal sh objekt)
Lõpeta sub
Privaatsed sub Workbook_SheetBeforeDelete (ByVal sh objekt)
Lõpeta sub
Privaatsed sub Workbook_SheetBeforeDoubleClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta sub
Privaatsed sub Workbook_SheetBeforeRightClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta sub
Privaatsed sub Workbook_SheetCalculate (ByVal sh objekt)
Lõpeta sub
Privaatsed sub Workbook_SheetChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta sub
Privaatsed sub Workbook_SheetDeactivate (ByVal sh objekt)
Lõpeta sub
Privaatsed sub Workbook_SheetFollowHyperlink (ByVal sh objekt, ByVal sihtmärk hüperlingina)
Lõpeta sub
Privaatsed sub Workbook_SheetPivotTableAfterValueChange (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal TargetRange vahemikuna)
Lõpeta sub
Private 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 sub
Private 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 sub
Private sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk
)
Lõpeta sub
Privaatsed sub Workbook_SheetPivotTableChangeSync (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta sub
Privaatsed sub Workbook_SheetPivotTableUpdate (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta sub
Privaatsed sub Workbook_SheetSelectionChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta sub
Private sub Workbook_SheetTableUpdate (ByVal sh objekt, ByVal Target AS TableObject)
Lõpeta sub
Private sub Workbook_Sync (ByVal SyncEventType AS Office. MsoSyncEventType)
Lõpeta sub
Private sub Workbook_WindowActivate (ByVal WN AS Window)
Lõpeta sub
Private sub Workbook_WindowDeactivate (ByVal WN AS Window)
Lõpeta sub
Private sub Workbook_WindowResize (ByVal WN AS Window)
Lõpeta 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
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