Applies ToExcel 2016 for Mac

Последна актуализация: 10 април 2019 г.

ПРОБЛЕМ

През октомври 2017 г. в Excel for Mac е въведен нов редактор на Visual Basic. С новия редактор на Visual Basic има проблем със създаването на декларации за обекти чрез избиране от падащото меню в горния край на прозореца за кода.

Ако щракнете върху падащото меню отляво и изберете елемент от списъка, би трябвало да получите код за избраното събитие в падащия списък отдясно. Можете да изберете още елементи от падащия списък отдясно, за да създадете допълнителен код за работа с избраното събитие.

VBE редакторът с показан падащ списък за избор на обект

Вместо това възниква грешка, че кодът не е създаден.

Грешка на редактора на Microsoft Visual Basic: Променливата използва тип за автоматизиране, който не се поддържа във Visual Basic.

СЪСТОЯНИЕ: ЗАОБИКОЛНО РЕШЕНИЕ

Изберете едно от следните заобиколни решения за този проблем:

ЗАОБИКОЛНО РЕШЕНИЕ № 1

Можете да изпълните подобна стъпка на компютър с Excel за Windows и след това да копирате кода в Excel for Mac.

ЗАОБИКОЛНО РЕШЕНИЕ № 2

Можете да отидете в MSDN и да намерите синтаксиса за събитието, което искате да използвате, след което да въведете кода ръчно във вашия VBA проект. Тази статия описва събитията "работна книга" в Microsoft Excel – Събития "Работна книга".

ЗАОБИКОЛНО РЕШЕНИЕ № 3

Копирайте кода на съответното събитие от примерите по-долу и го поставете във вашия проект на VBA. За всяко събитие трябва да копирате от "Private Sub..." до " End Sub" включително.

Лични подWorkbook_Activate () Крайна подпапка

Лични подWorkbook_AddinInstall () Крайна подпапка

Лични подWorkbook_AddinUninstall () Крайна подпапка

Лични подWorkbook_AfterRemoteChange () Крайна подпапка

Поверително подWorkbook_AfterSave (ByVal успех като булев) Крайна подпапка

Поверително подWorkbook_BeforeClose (отмяна като Булева ) Крайна подпапка

Поверително подWorkbook_BeforePrint (отмяна като Булева ) Крайна подпапка

Лични подWorkbook_BeforeRemoteChange () Крайна подпапка

Поверително подWorkbook_BeforeSave (ByVal SaveAsUI като булево; отмени като Булева) Крайна подпапка

Лични подWorkbook_Deactivate () Крайна подпапка

Лична подWorkbook_NewChart (ByVal CH като диаграма) Крайна подпапка

Лични подWorkbook_NewSheet (ByVal SH като обект) Крайна подпапка

Лични подWorkbook_Open () Крайна подпапка

Поверително подWorkbook_PivotTableCloseConnection (целева група за ByVal като обобщена таблица) Крайна подпапка

Поверително подWorkbook_PivotTableOpenConnection (целева група за ByVal като обобщена таблица) Крайна подпапка

Поверително подWorkbook_RowsetComplete (ByVal описание като низ, ByVal Sheet като низ, ByVal успех като булев) Крайна подпапка

Лични подWorkbook_SheetActivate (ByVal SH като обект) Крайна подпапка

Лични подWorkbook_SheetBeforeDelete (ByVal SH като обект) Крайна подпапка

Поверително подWorkbook_SheetBeforeDoubleClick (ByVal SH като обект, ByVal цел като диапазон, отмяна като булев) Крайна подпапка

Поверително подWorkbook_SheetBeforeRightClick (ByVal SH като обект, ByVal цел като диапазон, отмяна като булев) Крайна подпапка

Лични подWorkbook_SheetCalculate (ByVal SH като обект) Крайна подпапка

Лични подWorkbook_SheetChange (ByVal SH като обект, ByVal Target As Range) Крайна подпапка

Лични подWorkbook_SheetDeactivate (ByVal SH като обект) Крайна подпапка

Лични подWorkbook_SheetFollowHyperlink (ByVal SH като обект, ByVal TARGET като хипервръзка ) Крайна подпапка

Частните подWorkbook_SheetPivotTableAfterValueChange (ByVal SH като обект, ByVal TargetPivotTable като обобщена таблица, ByVal TargetRange като диапазон) Крайна подпапка

Частните подWorkbook_SheetPivotTableBeforeAllocateChanges (ByVal SH като обект, ByVal TargetPivotTable като обобщена таблица, ByVal ValueChangeStart толкова дълго, ByVal ValueChangeEnd толкова дълго, отмени като Булева) Крайна подпапка

Частните подWorkbook_SheetPivotTableBeforeCommitChanges (ByVal SH като обект, ByVal TargetPivotTable като обобщена таблица, ByVal ValueChangeStart толкова дълго, ByVal ValueChangeEnd толкова дълго, отмени като Булева) Крайна подпапка

Частните подWorkbook_SheetPivotTableBeforeDiscardChanges (ByVal SH като обект, ByVal TargetPivotTable като обобщена таблица, ByVal ValueChangeStart толкова дълго, ByVal ValueChangeEnd като дълги) Крайна подпапка

Поверително подWorkbook_SheetPivotTableChangeSync (ByVal SH като обект, ByVal TARGET като обобщена таблица) Крайна подпапка

Поверително подWorkbook_SheetPivotTableUpdate (ByVal SH като обект, ByVal TARGET като обобщена таблица) Крайна подпапка

Лични подWorkbook_SheetSelectionChange (ByVal SH като обект, ByVal Target As Range) Крайна подпапка

Лични подWorkbook_SheetTableUpdate (ByVal SH като обект, ByVal TARGET като TableObject) Крайна подпапка

Лични подWorkbook_Sync (ByVal SyncEventType като Office. MsoSyncEventType) Крайна подпапка

Поверително подWorkbook_WindowActivate (ByVal надолу като прозорец) Крайна подпапка

Поверително подWorkbook_WindowDeactivate (ByVal надолу като прозорец) Крайна подпапка

Поверително подWorkbook_WindowResize (ByVal надолу като прозорец) Крайна подпапка

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

Още ресурси

Експерти по икони (мозък, зъбни колела)

Попитайте експертите

Свържете се с експерти, дискутирайте последните новини, актуализации и най-добри практики за Excel и прочетете нашия блог.

Техническа общност за Excel

Общност за икони

Получаване на помощ в общността

Задайте въпрос и намерете решения от агенти по поддръжката, най-ценни специалисти, инженери и други потребители на Excel.

Форум за Excel в Answers

Искане за функция за икона (електрическа крушка, идея)

Предлагане на нова функция

Обичаме да четем вашите предложения и обратната връзка! Споделете какво мислите. Слушаме ви.

Подаване на обратна връзка

Вж. също

Корекции или заобиколни решения за най-новите проблеми в Excel for Mac

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.

Намерете решения на често срещани проблеми или получете помощ от агент за поддръжка.