Sporočilo o napaki »Spremenljivka uporablja nepodprto vrsto avtomatizacije« v urejevalniku za Visual Basic v Excelu za Mac

Zadnja posodobitev: 10. november 2017

TEŽAVA

V aplikaciji Excel za Mac je bil oktobra 2017 izdan nov urejevalnik za Visual Basic. Če tem novem urejevalniku za VB ustvarite deklaracijo predmeta tako, da izberete možnost v spustnem meniju na vrhu okna s kodo, pride do napake.

Če kliknete spustni seznam na levi strani in v njem izberete element, bi morali za izbrani dogodek dobiti kodo v spustnem seznamu na desni strani. Z dodatnimi možnostmi v spustnem seznamu na desni strani lahko ustvarite dodatno kodo za obravnavo izbranega dogodka.

Urejevalniku za VBE prikazuje spustni seznam za izbor predmeta »list_C3_2017109141018«

Namesto tega pride do napake, da koda ni ustvarjena.

Napaka v aplikaciji Microsoft Visual Basic: Spremenljivka uporablja nepodprto vrsto avtomatizacije._C3_2017109141134

STANJE: NADOMESTNA REŠITEV

Izberite eno od nadomestnih rešitev te težave:

1. NADOMESTNA REŠITEV

Podoben korak lahko izvedete v računalniku, v katerem se izvaja Excel za Windows, nato pa kopirate kodo v Excel za Mac.

2. NADOMESTNA REŠITEV

Lahko se premaknete na spletno mesto MSDN in poiščete sintakso za dogodek, ki ga želite uporabiti, nato pa kodo ročno vnesete v projekt VBA. V tem članku so opisani dogodki v Microsoft Excelovem »delovnem zvezku« – Dogodki v delovnem zvezku.

3. NADOMESTNA REŠITEV

Kopirajte ustrezno kodo dogodka iz vzorcev spodaj in jo prilepite v projekt VBA. Za vsak dogodek kopirajte iz razdelka »Private Sub...« v razdelek »End Sub«.

    
    

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 strokovnjakov (možgani, zobniki)

Vprašajte strokovnjake

Povežite se s strokovnjaki, razpravljajte o najnovejših novicah, posodobitvah in najboljših praksah za Excel ter preberite naš spletni dnevnik.

Tehnična skupnost za Excel

Ikona skupnosti

Poiščite pomoč v skupnosti

Zastavite vprašanje in poiščite rešitve pri posrednikih za podporo, MVP-jih, inženirjih in drugih uporabnikih Excela.

Forum uporabnikov Excela na spletnem mestu Answers

Ikona zahteve za funkcijo (žarnica, ideja)

Predlagajte novo funkcijo

Veselimo se vaših predlogov in povratnih informacij. Zaupajte nam svoje mnenje. Z veseljem ga bomo prebrali.

Excel UserVoice

Glejte tudi

Popravki in rešitve za nedavne težave z Excelom za Mac

Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×