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?

Zapojte sa do diskusie
Spýtať sa komunity
Získať podporu
Kontakt

Boli tieto informácie užitočné?

Aká je podľa vás jazyková kvalita textu?
Čo sa vám páčilo, prípadne čo nie?

Ďakujeme za vaše pripomienky!

×