Останнє оновлення: 10 квітня 2019 р.
ПРОБЛЕМА
У жовтні 2017 року в Excel для Mac введено новий редактор Visual Basic. Якщо спробувати створити в ньому оголошення об’єктів, вибравши потрібне значення з розкривного меню у верхній частині вікна коду, виникає помилка.
Якщо клацнути розкривне меню ліворуч і вибрати зі списку подію, у розкривному списку праворуч має з’явитися її код. З цього списку можна вибрати й інші події, щоб створити код їх обробки.
![Редактор VBE з вибраним об’єктом із розкривного списку](https://support.content.office.net/uk-ua/media/92d8bfb0-dd1b-45ee-b068-621bf3aa6c94.png)
Натомість з’являється повідомлення про помилку створення коду.
![Помилка в Microsoft Visual Basic: Variable uses and automation type not supported in Visual Basic (Змінна використовує тип автовизначення, який не підтримується у Visual Basic).](https://support.content.office.net/uk-ua/media/a242ed6e-f56a-4abb-ad73-bcf2944a87c0.png)
СТАН: СПОСІБ ВИРІШЕННЯ
Скористайтесь одним із наведених нижче способів вирішення цієї проблеми.
СПОСІБ ВИРІШЕННЯ №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
Додаткові ресурси
![Піктограма фахівців (голова й шестірні)](https://support.content.office.net/uk-ua/media/ee188ecd-f93d-4573-9b01-e11973de3e9a.png)
Зв’язок із фахівцями
Зв’яжіться з фахівцями, обговоріть останні новини й оновлення в програмі Excel, рекомендації стосовно роботи з нею, а також ознайомтеся з нашим блоґом.
![Піктограма спільноти](https://support.content.office.net/uk-ua/media/f9cd8fac-e1df-4bd7-9f76-0098e0e77d7e.png)
Отримання довідки в спільноті
Поставте запитання в спільноті, а агенти підтримки, фахівці, інженери та інші користувачі Excel спробують вам допомогти.
![Піктограма пропозиції щодо функцій (лампочка, що позначає ідею)](https://support.content.office.net/uk-ua/media/4c746d07-a10c-46f3-afe5-17a8f9628ccc.png)
Запропонуйте нову функцію
Ми раді отримувати ваші пропозиції та відгуки. Поділіться своїми думками. Ми дослухаємося до вас.
Додаткові відомості
Виправлення та способи вирішення нещодавно виявлених проблем в Excel для Mac