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

Zadnja posodobitev: 10. april 2019

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.

Urejevalnik za VBE prikazuje spustni seznam za izbor predmeta

Namesto tega pride do napake, da koda ni ustvarjena.

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

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«.

TaDelovniZvezek Delovni list

Zasebna sub Workbook_Activate () Konec sub

Zasebna sub Workbook_AddinInstall () Konec sub

Zasebna sub Workbook_AddinUninstall () Konec sub

Zasebna sub Workbook_AfterRemoteChange () Konec sub

Private sub Workbook_AfterSave (ByVal uspeha kot logična vrednost ) Konec sub

Private sub Workbook_BeforeClose (preklic kot logična vrednost ) Konec sub

Private sub Workbook_BeforePrint (preklic kot logična vrednost ) Konec sub

Zasebna sub Workbook_BeforeRemoteChange () Konec sub

Private sub Workbook_BeforeSave (ByVal SaveAsUI kot logična vrednost, Prekliči kot Boolean) Konec sub

Zasebna sub Workbook_Deactivate () Konec sub

Private sub Workbook_NewChart (ByVal ch kot grafikon) Konec sub

Private sub Workbook_NewSheet (ByVal sh kot predmet) Konec sub

Zasebna sub Workbook_Open () Konec sub

Private sub Workbook_PivotTableCloseConnection (cilj ByVal kot vrtilno tabelo ) Konec sub

Private sub Workbook_PivotTableOpenConnection (cilj ByVal kot vrtilno tabelo ) Konec sub

Private sub Workbook_RowsetComplete (ByVal opis kot niz, ByVal list kot niz, ByVal uspeh kot logična vrednost ) Konec sub

Private sub Workbook_SheetActivate (ByVal sh kot predmet) Konec sub

Private sub Workbook_SheetBeforeDelete (ByVal sh kot predmet) Konec sub

Private sub Workbook_SheetBeforeDoubleClick (ByVal sh kot predmet, ByVal Target As Range, Prekliči kot Boolean) Konec sub

Private sub Workbook_SheetBeforeRightClick (ByVal sh kot predmet, ByVal Target As Range, Prekliči kot Boolean) Konec sub

Private sub Workbook_SheetCalculate (ByVal sh kot predmet) Konec sub

Private sub Workbook_SheetChange (ByVal sh kot predmet, ByVal Target As Range ) Konec sub

Private sub Workbook_SheetDeactivate (ByVal sh kot predmet) Konec sub

Private sub Workbook_SheetFollowHyperlink (ByVal sh kot predmet, ByVal Target kot hiperpovezava ) Konec sub

Private sub Workbook_SheetPivotTableAfterValueChange (ByVal sh kot predmet, ByVal TargetPivotTable kot vrtilno tabelo, ByVal TargetRange kot obseg ) Konec sub

Private sub Workbook_SheetPivotTableBeforeAllocateChanges (ByVal sh kot predmet, ByVal TargetPivotTable kot vrtilno tabelo, ByVal ValueChangeStart tako dolgo, ByVal ValueChangeEnd tako dolgo, Prekliči kot Boolean) Konec sub

Private sub Workbook_SheetPivotTableBeforeCommitChanges (ByVal sh kot predmet, ByVal TargetPivotTable kot vrtilno tabelo, ByVal ValueChangeStart tako dolgo, ByVal ValueChangeEnd tako dolgo, Prekliči kot Boolean) Konec sub

Zasebna sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh kot predmet, ByVal TargetPivotTable kot vrtilno tabelo, ByVal ValueChangeStart tako dolgo, ByVal ValueChangeEnd tako dolgo ) Konec sub

Private sub Workbook_SheetPivotTableChangeSync (ByVal sh kot predmet, ByVal Target As Vrtilna tabela ) Konec sub

Private sub Workbook_SheetPivotTableUpdate (ByVal sh kot predmet, ByVal Target As Vrtilna tabela ) Konec sub

Private sub Workbook_SheetSelectionChange (ByVal sh kot predmet, ByVal Target As Range ) Konec sub

Private sub Workbook_SheetTableUpdate (ByVal sh kot predmet, ByVal Target As TableObject) Konec sub

Private sub Workbook_Sync (ByVal SyncEventType kot Office. MsoSyncEventType) Konec sub

Private sub Workbook_WindowActivate (ByVal WN kot okno) Konec sub

Private sub Workbook_WindowDeactivate (ByVal WN kot okno) Konec sub

Private sub Workbook_WindowResize (ByVal WN kot okno) Konec 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