Zadnje ažuriranje: 10. travnja 2019.
PROBLEM
U listopadu 2017. objavljen je novi uređivač za Visual Basic u programu Excel za Mac. Kada koristite taj novi uređivač za VB, pojavljuje se problem prilikom stvaranja deklaracija objekata pomoću odabira na padajućem izborniku pri vrhu prozora s kodom.
Ako kliknete padajući izbornik na lijevoj strani i odaberete stavku na popisu, trebali biste dobiti kod za odabrani događaj na padajućem popisu na desnoj strani. Možete dodatno odabrati stavke na padajućem popisu na desnoj strani da biste stvorili dodatni kod za rukovanje odabranim događajem.
Umjesto toga, pojavit će se pogreška uz obavijest da kod nije stvoren.
STATUS: ZAOBILAZNO RJEŠENJE
Odaberite jedno od zaobilaznih rješenja za taj problem:
ZAOBILAZNO RJEŠENJE #1
Sličan korak možete izvršiti na računalu s programom Excel za Windows, a zatim kod zalijepiti u Excel za Mac.
ZAOBILAZNO RJEŠENJE #2
Posjetite MSDN i pronađite sintaksu za događaj koji želite koristiti i ručno upišite kod u VBA projekt. U ovom se članku opisuju događaji "radnje knjige" programa Microsoft Excel – Događaji radne knjige.
ZAOBILAZNO RJEŠENJE #3
Kopirajte odgovarajući kod događaja iz primjera u nastavku i zalijepite u VBA projekt. Za svaki događaj obavezno kopirajte od "Privatna pod..." do "Završna pod", uključujući obje vrijednosti.
Privatni sub Workbook_Activate ()
Završna subPrivatni sub Workbook_AddinInstall ()
Završna subPrivatni sub Workbook_AddinUninstall ()
Završna subPrivatni sub Workbook_AfterRemoteChange ()
Završna subPrivatni sub Workbook_AfterSave (ByVal Success kao Booleov
) Završna subPrivatni sub Workbook_BeforeClose (otkazivanje kao Booleov
) Završna subPrivatni sub Workbook_BeforePrint (otkazivanje kao Booleov
) Završna subPrivatni sub Workbook_BeforeRemoteChange ()
Završna subPrivatni sub Workbook_BeforeSave (ByVal SaveAsUI kao Booleov, odustani kao Booleov)
Završna subPrivatni sub Workbook_Deactivate ()
Završna subPrivatni sub Workbook_NewChart (ByVal CH kao grafikon)
Završna subPrivatna sub Workbook_NewSheet (ByVal sh kao objekt)
Završna subPrivatni Sub Workbook_Open ()
Završna subPrivatno PodWorkbook_PivotTableCloseConnection (ByVal Target kao Zaokretna
tablica) Završna subPrivatno PodWorkbook_PivotTableOpenConnection (ByVal Target kao Zaokretna
tablica) Završna subPrivatni sub Workbook_RowsetComplete (ByVal opis kao niz, ByVal sheet kao niz, ByVal Success kao Booleov
) Završna subPrivatna sub Workbook_SheetActivate (ByVal sh kao objekt)
Završna subPrivatna sub Workbook_SheetBeforeDelete (ByVal sh kao objekt)
Završna subPrivatna sub Workbook_SheetBeforeDoubleClick (ByVal sh kao objekt, ByVal Target kao Range, odustani kao Booleov
) Završna subPrivatna sub Workbook_SheetBeforeRightClick (ByVal sh kao objekt, ByVal Target kao Range, odustani kao Booleov
) Završna subPrivatna sub Workbook_SheetCalculate (ByVal sh kao objekt)
Završna subPrivatno PodWorkbook_SheetChange (ByVal sh kao objekt, ByVal Target kao raspon)
Završna subPrivatna sub Workbook_SheetDeactivate (ByVal sh kao objekt)
Završna subPrivatna sub Workbook_SheetFollowHyperlink (ByVal sh kao objekt, ByVal Target kao hiperveza)
Završna subPrivatni sub Workbook_SheetPivotTableAfterValueChange (objekt ByVal sh kao Object, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal TargetRange kao raspon)
Završna subPrivatna sub Workbook_SheetPivotTableBeforeAllocateChanges (ByVal sh kao objekt, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal ValueChangeStart kao dugo, ByVal ValueChangeEnd kao dugo, otkazivanje
kao Booleov) Završna subPrivatna sub Workbook_SheetPivotTableBeforeCommitChanges (ByVal sh kao objekt, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal ValueChangeStart kao dugo, ByVal ValueChangeEnd kao dugo, otkazivanje
kao Booleov) Završna subPrivatna sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh kao objekt, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal ValueChangeStart kao dugo, ByVal ValueChangeEnd kao dugo)
Završna subPrivatna sub Workbook_SheetPivotTableChangeSync (ByVal sh kao objekt, ByVal Target kao Zaokretna
tablica) Završna subPrivatna sub Workbook_SheetPivotTableUpdate (ByVal sh kao objekt, ByVal Target kao Zaokretna
tablica) Završna subPrivatno PodWorkbook_SheetSelectionChange (ByVal sh kao objekt, ByVal Target kao raspon)
Završna subPrivatni sub Workbook_SheetTableUpdate (ByVal sh kao objekt, ByVal Target kao stolni objekt
) Završna subPrivatno PodWorkbook_Sync (ByVal SyncEventType kao Office. MsoSyncEventType)
Završna subPrivatna sub Workbook_WindowActivate (ByVal WN kao prozor)
Završna subPrivatna sub Workbook_WindowDeactivate (ByVal WN kao prozor)
Završna subPrivatna sub Workbook_WindowResize (ByVal WN kao prozor)
Završna 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
Dodatni resursi
Pitajte stručnjake
Povežite se sa stručnjacima, razgovarajte o najnovijim vijestima o programu Excel, ažuriranjima i najboljim postupcima te čitajte naš blog.
Zatražite pomoć u zajednici
Postavite pitanje agentima za podršku, MVP-ovima, inženjerima i ostalim korisnicima programa Excel te pronađite rješenja.
Predložite novu značajku
Volimo čitati vaše prijedloge i povratne informacije! Podijelite s nama svoje mišljenje. Slušamo vas.
Vidi također
Popravci i zaobilazna rješenja za nedavne probleme u programu Excel za Mac