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 sub
Privatni sub Workbook_AddinInstall ()
Završna sub
Privatni sub Workbook_AddinUninstall ()
Završna sub
Privatni sub Workbook_AfterRemoteChange ()
Završna sub
Privatni sub Workbook_AfterSave (ByVal Success kao Booleov
)
Završna sub
Privatni sub Workbook_BeforeClose (otkazivanje kao Booleov
)
Završna sub
Privatni sub Workbook_BeforePrint (otkazivanje kao Booleov
)
Završna sub
Privatni sub Workbook_BeforeRemoteChange ()
Završna sub
Privatni sub Workbook_BeforeSave (ByVal SaveAsUI kao Booleov, odustani kao Booleov)
Završna sub
Privatni sub Workbook_Deactivate ()
Završna sub
Privatni sub Workbook_NewChart (ByVal CH kao grafikon)
Završna sub
Privatna sub Workbook_NewSheet (ByVal sh kao objekt)
Završna sub
Privatni Sub Workbook_Open ()
Završna sub
Privatno PodWorkbook_PivotTableCloseConnection (ByVal Target kao Zaokretna
tablica)
Završna sub
Privatno PodWorkbook_PivotTableOpenConnection (ByVal Target kao Zaokretna
tablica)
Završna sub
Privatni sub Workbook_RowsetComplete (ByVal opis kao niz, ByVal sheet kao niz, ByVal Success kao Booleov
)
Završna sub
Privatna sub Workbook_SheetActivate (ByVal sh kao objekt)
Završna sub
Privatna sub Workbook_SheetBeforeDelete (ByVal sh kao objekt)
Završna sub
Privatna sub Workbook_SheetBeforeDoubleClick (ByVal sh kao objekt, ByVal Target kao Range, odustani kao Booleov
)
Završna sub
Privatna sub Workbook_SheetBeforeRightClick (ByVal sh kao objekt, ByVal Target kao Range, odustani kao Booleov
)
Završna sub
Privatna sub Workbook_SheetCalculate (ByVal sh kao objekt)
Završna sub
Privatno PodWorkbook_SheetChange (ByVal sh kao objekt, ByVal Target kao raspon)
Završna sub
Privatna sub Workbook_SheetDeactivate (ByVal sh kao objekt)
Završna sub
Privatna sub Workbook_SheetFollowHyperlink (ByVal sh kao objekt, ByVal Target kao hiperveza)
Završna sub
Privatni sub Workbook_SheetPivotTableAfterValueChange (objekt ByVal sh kao Object, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal TargetRange kao raspon)
Završna sub
Privatna 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 sub
Privatna 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 sub
Privatna sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh kao objekt, ByVal Targetzaokretna tablica kao Zaokretna tablica, ByVal ValueChangeStart kao dugo, ByVal ValueChangeEnd kao dugo)
Završna sub
Privatna sub Workbook_SheetPivotTableChangeSync (ByVal sh kao objekt, ByVal Target kao Zaokretna
tablica)
Završna sub
Privatna sub Workbook_SheetPivotTableUpdate (ByVal sh kao objekt, ByVal Target kao Zaokretna
tablica)
Završna sub
Privatno PodWorkbook_SheetSelectionChange (ByVal sh kao objekt, ByVal Target kao raspon)
Završna sub
Privatni sub Workbook_SheetTableUpdate (ByVal sh kao objekt, ByVal Target kao stolni objekt
)
Završna sub
Privatno PodWorkbook_Sync (ByVal SyncEventType kao Office. MsoSyncEventType)
Završna sub
Privatna sub Workbook_WindowActivate (ByVal WN kao prozor)
Završna sub
Privatna sub Workbook_WindowDeactivate (ByVal WN kao prozor)
Završna sub
Privatna sub Workbook_WindowResize (ByVal WN kao prozor)
Završna 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
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