Последна актуализация: 10 април 2019 г.
ПРОБЛЕМ
През октомври 2017 г. в Excel for Mac е въведен нов редактор на 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 for Mac