Перейти до основного
Підтримка
Вхід
Вхід за допомогою облікового запису Microsoft
Увійдіть або створіть обліковий запис.
Вітаємо,
Виберіть інший обліковий запис.
У вас є кілька облікових записів
Виберіть обліковий запис, за допомогою якого потрібно ввійти.

Останнє оновлення: 10 квітня 2019 р.

ПРОБЛЕМА

У жовтні 2017 року в Excel для Mac введено новий редактор Visual Basic. Якщо спробувати створити в ньому оголошення об’єктів, вибравши потрібне значення з розкривного меню у верхній частині вікна коду, виникає помилка.

Якщо клацнути розкривне меню ліворуч і вибрати зі списку подію, у розкривному списку праворуч має з’явитися її код. З цього списку можна вибрати й інші події, щоб створити код їх обробки.

Редактор VBE з вибраним об’єктом із розкривного списку

Натомість з’являється повідомлення про помилку створення коду.

Помилка в Microsoft Visual Basic: Variable uses and automation type not supported in Visual Basic (Змінна використовує тип автовизначення, який не підтримується у Visual Basic).

СТАН: СПОСІБ ВИРІШЕННЯ

Скористайтесь одним із наведених нижче способів вирішення цієї проблеми.

СПОСІБ ВИРІШЕННЯ №1

Виконайте потрібні дії в Excel для Windows, а потім скопіюйте код в Excel для Mac.

СПОСІБ ВИРІШЕННЯ №2

Перейдіть на сайт MSDN, знайдіть синтаксис потрібної події, а потім вручну введіть код у проект VBA. Відомості про події в книзі Microsoft Excel надано в цій статті.

СПОСІБ ВИРІШЕННЯ №3

Скопіюйте відповідний код подій із прикладів нижче та вставте його в проект VBA. Код кожної події слід копіювати, починаючи з частини Private Sub і закінчуючи End Sub включно.

ThisWorkbookАркуш

Приватна вкладена 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 спробують вам допомогти.

Форум, присвячений Excel

Піктограма пропозиції щодо функцій (лампочка, що позначає ідею)

Запропонуйте нову функцію

Ми раді отримувати ваші пропозиції та відгуки. Поділіться своїми думками. Ми дослухаємося до вас.

Надання відгуку

Додаткові відомості

Виправлення та способи вирішення нещодавно виявлених проблем в Excel для Mac

Facebook LinkedIn Електронна пошта

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Виявити Спільнота Зверніться до нас

Ознайомтеся з перевагами передплати, перегляньте навчальні курси, дізнайтесь, як захистити свій пристрій тощо.

Переваги передплати на Microsoft 365

Навчальні матеріали з Microsoft 365

Захисний комплекс Microsoft

Центр спеціальних можливостей

Спільноти допомагають ставити запитання й відповідати на них, надавати відгуки та дізнаватися думки висококваліфікованих експертів.

Запитайте спільноту Microsoft

Спільнота Microsoft Tech

Оцінювачі Windows

Оцінювачі Microsoft 365

Знайдіть вирішення поширених проблем або отримайте довідку від агента підтримки.

онлайн-підтримка

Чи ця інформація була корисною?

Наскільки ви задоволені якістю мови?
Що вплинуло на ваші враження?
Натиснувши кнопку "Надіслати", ви надасте свій відгук для покращення продуктів і служб Microsoft. Ваш ІТ-адміністратор зможе збирати ці дані. Декларація про конфіденційність.

Дякуємо за відгук!

×