Останнє оновлення: 10 квітня 2019 р.
ПРОБЛЕМА
У жовтні 2017 року в Excel для Mac введено новий редактор Visual Basic. Якщо спробувати створити в ньому оголошення об’єктів, вибравши потрібне значення з розкривного меню у верхній частині вікна коду, виникає помилка.
Якщо клацнути розкривне меню ліворуч і вибрати зі списку подію, у розкривному списку праворуч має з’явитися її код. З цього списку можна вибрати й інші події, щоб створити код їх обробки.
Натомість з’являється повідомлення про помилку створення коду.
СТАН: СПОСІБ ВИРІШЕННЯ
Скористайтесь одним із наведених нижче способів вирішення цієї проблеми.
СПОСІБ ВИРІШЕННЯ №1
Виконайте потрібні дії в Excel для Windows, а потім скопіюйте код в Excel для 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 у вигляді рядка, значення "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 як діапазон) Кінцевий вкладений
Приватні ПідWorkbook_SheetDeactivate (ByVal sh як об'єкт) Кінцевий вкладений
Приватні ПідWorkbook_SheetFollowHyperlink (ByVal sh як об'єкт, функція ByVal у вигляді гіперпосилання ) Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableAfterValueChange (ByVal sh як об'єкт, "Bval TargetPivotTable таблиця" як зведена таблиця, "Бивал Targetpivottable як діапазон") Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableBeforeAllocateChanges (ByVal sh як об'єкт, Bval TargetPivotTable таблиця як зведена таблиця, ByVal ValueChangeStart довгий, ByVal ValueChangeEnd, як довго, скасувати як логічне) Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableBeforeCommitChanges (ByVal sh як об'єкт, Bval TargetPivotTable таблиця як зведена таблиця, ByVal ValueChangeStart довгий, ByVal ValueChangeEnd, як довго, скасувати як логічне) Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableBeforeDiscardChanges (ByVal sh як об'єкт, ByVal TargetPivotTable таблиця як зведена таблиця, ByVal Valuechange, як довго, ByVal ValueChangeEnd as Long) Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableChangeSync (ByVal sh як об'єкт, функція ByVal у вигляді зведеної таблиці) Кінцевий вкладений
Приватні ПідWorkbook_SheetPivotTableUpdate (ByVal sh як об'єкт, функція ByVal у вигляді зведеної таблиці) Кінцевий вкладений
Приватні ПідWorkbook_SheetSelectionChange (ByVal sh як об'єкт, функція ByVal як діапазон) Кінцевий вкладений
Приватні ПідWorkbook_SheetTableUpdate (ByVal sh як об'єкт, функція ByVal для цільової TableObject ) Кінцевий вкладений
Приватні ПідWorkbook_Sync (тип _ таблиці ByVal) Кінцевий вкладений
Приватні ПідWorkbook_WindowActivate (Bval WN у вигляді вікна ) Кінцевий вкладений
Приватні ПідWorkbook_WindowDeactivate (Bval WN у вигляді вікна ) Кінцевий вкладений
Приватні ПідWorkbook_WindowResize (Bval WN у вигляді вікна ) Кінцевий вкладений
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 для Mac
