Prijavite se pomoću Microsofta
Prijavi se ili izradi račun.
Zdravo,
Odaberite drugi račun.
Imate više računa
Odaberite račun putem kojeg se želite prijaviti.

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.

Uređivač VBE prikazuje padajući popis za odabir objekata

Umjesto toga, pojavit će se pogreška uz obavijest da kod nije stvoren.

Pogreška jezika Microsoft Visual Basic: Varijabla koristi vrstu automatizacije koja nije podržana u jeziku Visual Basic.

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.

Ova radna knjigaRadni list

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

Ikona stručnjaka (mozak, zupčanik)

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.

Tehnička zajednica za Excel

Ikona zajednice

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.

Forum s odgovorima na pitanja o programu Excel

Ikona zahtjeva za značajku (žarulja, ideja)

Predložite novu značajku

Volimo čitati vaše prijedloge i povratne informacije! Podijelite s nama svoje mišljenje. Slušamo vas.

Slanje povratnih informacija

Vidi također

Popravci i zaobilazna rješenja za nedavne probleme u programu Excel za Mac

Facebook LinkedIn E-pošta

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Otkrijte Zajednica Obratite nam se

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Prednosti pretplate na Microsoft 365

Obuka za Microsoft 365

Microsoft Security

Centar za pristupačnost

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.

Pitajte Microsoftovu zajednicu

Microsoftova tehnička zajednica

Windows Insiders

Sudionici programa Microsoft 365 Insider

Pronađite rješenja za uobičajene probleme ili zatražite pomoć od agenta za podršku.

Podrška na mreži

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?
Ako pritisnete Pošalji, vaše će se povratne informacije iskoristiti za poboljšanje Microsoftovih proizvoda i usluga. Vaš će IT administrator moći prikupiti te podatke. Izjava o zaštiti privatnosti.

Hvala vam na povratnim informacijama!

×