Greška „Promenljiva koristi tip automatizacije koji nije podržan“ u Visual Basic uređivaču u programu Excel za Mac

Poslednji put ažurirano: 10. novembra 2017.

PROBLEM

Novi Visual Basic Editor uveden je oktobra 2017. godine u Excel za Mac. U tom novom VB uređivaču postoji problem prilikom pravljenja deklaracija objekta izborom iz padajućeg menija na vrhu prozora koda.

Ako kliknete na padajući meni sa leve strane i odaberete stavku sa liste, trebalo bi da dobijete neki kôd za izabrani događaj na padajućoj listi sa desne strane. Možete da napravite dodatne izbore sa padajuće liste na desnoj strani da biste napravili dodatni kôd za rukovanje odabrani događajem.

VBE uređivač prikazuje padajuću listu za izbor objekta

Umesto toga nailazite na grešku da kôd nije napravljen.

Greška programa Microsoft Visual Basic: Promenljiva koristi tip automatizacije koji nije podržan u programu Visual Basic.

STATUS: PRIVREMENO REŠENJE

Odaberite jedno od ovih privremenih rešenja za ovaj problem:

PRIVREMENO REŠENJE #1

Sličan korak možete da izvršite na računaru koji koristi Excel za Windows, a zatim da kopirate kôd u Excel za Mac.

PRIVREMENO REŠENJE #2

Možete da odete na sajt MSDN, pronađete sintaksu za događaj koji želite da koristite i otkucate kôd ručno u VBA projekat. U ovom članku opisani su događaji Microsoft Excel „radne sveske“ – Događaji radne sveske.

PRIVREMENO REŠENJE #3

Kopirajte odgovarajući kôd događaja iz dolenavedenih uzoraka i nalepite ga u VBA projekat. Za svaki događaj obavezno kopirajte kôd od „Private Sub...“ do „End Sub“, uključujući oba.

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

Ikona – stručnjaci (mozak, zupčanik)

Pitajte stručnjake

Povežite se sa stručnjacima, razgovarajte o najnovijim vestima za Excel, ispravkama i najboljim praksama i čitajte naš blog.

Excel tehnička zajednica

Ikona – zajednica

Pronalaženje pomoći u zajednici

Postavite pitanje i dobijte rešenja od agenata za podršku, MVP-ova, inženjera i drugih korisnika programa Excel.

Excel Forum na sajtu Answers

Ikona – zahtev funkcije (sijalica, ideja)

Predložite novu funkciju

Volimo da čitamo vaše predloge i povratne informacije! Podelite svoje razmišljanje sa nama. Slušamo.

Excel UserVoice

Takođe pogledajte

Popravke ili zaobilazna rešenja za nedavne probleme u programu Excel za Mac

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×