Applies ToExcel 2016 pre Mac

Posledná aktualizácia: 10. apríla 2019

PROBLÉM

V Exceli pre Mac sme v októbri 2017 zaviedli nový editor jazyka Visual Basic. V tomto novom editore jazyka VB sa vyskytuje problém s vytváraním deklarácií objektov výberom z rozbaľovacej ponuky v hornej časti okna kódu.

Ak kliknete na rozbaľovací zoznam na ľavej strane a vyberiete z neho položku, mali by ste získať kód pre vybratú udalosť v rozbaľovacom zozname na pravej strane. Z rozbaľovacieho zoznamu na pravej strane si môžete vybrať ďalšie možnosti a vytvoriť tak ďalší kód na spracovanie vybratej udalosti.

Editor VBE zobrazujúci rozbaľovací zoznam na výber objektu

Namiesto toho sa však vyskytne chyba a kód sa nevytvorí.

Chyba jazyka Microsoft Visual Basic: Premenná používa typ automatizácie, ktorý jazyk Visual Basic nepodporuje.

STAV: ALTERNATÍVNE RIEŠENIE

Vyberte si jedno z nasledujúcich alternatívnych riešení tohto problému:

ALTERNATÍVNE RIEŠENIE Č. 1

Môžete vykonať podobný krok v počítači s Excelom pre Windows a potom kód skopírovať do Excelu pre Mac.

ALTERNATÍVNE RIEŠENIE Č. 2

Môžete prejsť na webovú lokalitu MSDN, vyhľadať syntax pre požadovanú udalosť a manuálne zadať kód do projektu VBA. Tento článok popisuje udalosti zošita programu Microsoft Excel – Udalosti zošita.

ALTERNATÍVNE RIEŠENIE Č. 3

Zo vzorov uvedených nižšie si vyberte príslušný kód, skopírujte ho a potom ho prilepte do projektu VBA. Pri každej udalosti skopírujte všetko od položky Private Sub... po položku End Sub vrátane.

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

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

Ďalšie zdroje informácií

Ikona odborníkov (mozog, ozubené kolieska)

Opýtajte sa odborníkov

Spojte sa s odborníkmi, diskutujte o novinkách v Exceli, aktualizáciách a najvhodnejších postupoch alebo si prečítajte náš blog.

Excel Tech Community

Ikona Komunita

Získajte pomoc v komunite

Položte otázku zástupcom oddelenia podpory, odborníkom MVP, technikom a iným používateľom Excelu a nájdite riešenia.

Fórum o Exceli na lokalite Answers

Ikona požiadavky na funkciu (žiarovka, nápad)

Navrhnite novú funkciu

Radi si prečítame vaše návrhy a pripomienky. Podeľte sa o svoje myšlienky. Váš názor nás zaujíma.

Poskytnutie odozvy

Pozrite tiež

Opravy alebo alternatívne riešenia nedávnych problémov v Exceli pre Mac

Potrebujete ďalšiu pomoc?

Chcete ďalšie možnosti?

Môžete preskúmať výhody predplatného, prehľadávať školiace kurzy, naučiť sa zabezpečiť svoje zariadenie a ešte oveľa viac.

Komunity pomôžu s kladením otázok a odpovedaním na ne, s poskytovaním pripomienok a so získavaním informácií od odborníkov s bohatými znalosťami.

Vyhľadajte riešenia bežných problémov alebo získajte pomoc od agenta podpory.