Kesalahan "Variabel menggunakan tipe Otomatisasi yang tidak didukung" dalam editor Visual Basic di Excel untuk Mac

Dukungan Office 2016 untuk Mac segera berakhir

Mutakhirkan ke Microsoft 365 agar dapat bekerja di mana saja dari perangkat apa pun dan terus menerima dukungan.

Mutakhirkan Sekarang

Terakhir Diperbarui: 10 April 2019

MASALAH

Di Excel untuk Mac, Editor Visual Basic yang baru diperkenalkan pada bulan Oktober 2017. Dengan editor VB baru ini, terdapat masalah pembuatan deklarasi objek dengan memilih dari menu menurun di bagian atas jendela kode.

Jika mengklik menu menurun di sebelah kiri dan memilih item dari daftar, Anda akan mendapatkan beberapa kode untuk kejadian yang dipilih dalam daftar menurun di sebelah kanan. Anda dapat membuat pilihan tambahan dari daftar menurun di sebelah kanan guna membuat kode tambahan untuk menangani kejadian yang dipilih.

VBE memperlihatkan daftar menurun pilihan objek

Namun, terjadi kesalahan yang mengatakan bahwa kode tidak dibuat.

Kesalahan Microsoft Visual Basic: Variabel menggunakan tipe automasi yang tidak didukung di Visual Basic.

STATUS: SOLUSI

Pilih salah satu solusi untuk masalah ini:

SOLUSI #1

Anda dapat melakukan langkah yang sama di komputer yang menjalankan Excel untuk Windows lalu menyalin kode ke Excel untuk Mac.

SOLUSI #2

Anda dapat masuk ke MSDN dan menemukan sintaks kejadian yang ingin digunakan lalu mengetikkan kode secara manual ke proyek VBA. Artikel ini menguraikan kejadian "buku kerja" Microsoft Excel - Kejadian Buku Kerja.

SOLUSI #3

Salin kode kejadian yang sesuai dari contoh di bawah ini, lalu tempelkan ke proyek VBA Anda. Untuk setiap kejadian, pastikan untuk menyalin dari "Private Sub..." hingga "End Sub", seluruhnya.

Sub Workbook_Activate pribadi ()
Sub akhir

Sub Workbook_AddinInstall pribadi ()
Sub akhir

Sub Workbook_AddinUninstall pribadi ()
Sub akhir

Sub Workbook_AfterRemoteChange pribadi ()
Sub akhir

Sub Workbook_AfterSave privat (ByVal Success AS boolean)
Sub akhir

Sub Workbook_BeforeClose privat (cancel sebagai boolean)
Sub akhir

Sub Workbook_BeforePrint privat (cancel sebagai boolean)
Sub akhir

Sub Workbook_BeforeRemoteChange pribadi ()
Sub akhir

Sub Workbook_BeforeSave privat (ByVal SaveAsUI sebagai Boolean, cancel sebagai boolean)
Sub akhir

Sub Workbook_Deactivate pribadi ()
Sub akhir

Sub pribadi Workbook_NewChart (ByVal CH sebagai bagan)
Sub akhir

Sub Workbook_NewSheet privat (ByVal SH sebagai objek)
Sub akhir

Sub Workbook_Open pribadi ()
Sub akhir

Sub Workbook_PivotTableCloseConnection privat (ByVal target sebagai PivotTable)
Sub akhir

Sub Workbook_PivotTableOpenConnection privat (ByVal target sebagai PivotTable)
Sub akhir

Sub Workbook_RowsetComplete privat (Deskripsi ByVal sebagai string, lembar ByVal sebagai string, keberhasilan ByVal sebagai boolean)
Sub akhir

Sub Workbook_SheetActivate privat (ByVal SH sebagai objek)
Sub akhir

Sub Workbook_SheetBeforeDelete privat (ByVal SH sebagai objek)
Sub akhir

Sub Workbook_SheetBeforeDoubleClick privat (ByVal SH sebagai objek, target ByVal sebagai rentang, batalkan sebagai boolean)
Sub akhir

Sub Workbook_SheetBeforeRightClick privat (ByVal SH sebagai objek, target ByVal sebagai rentang, batalkan sebagai boolean)
Sub akhir

Sub Workbook_SheetCalculate privat (ByVal SH sebagai objek)
Sub akhir

Sub Workbook_SheetChange privat (ByVal SH sebagai objek, target ByVal sebagai rentang)
Sub akhir

Sub Workbook_SheetDeactivate privat (ByVal SH sebagai objek)
Sub akhir

Sub Workbook_SheetFollowHyperlink privat (ByVal SH sebagai objek, target ByVal sebagai hyperlink)
Sub akhir

Sub pribadi Workbook_SheetPivotTableAfterValueChange (ByVal SH sebagai objek, ByVal TargetPivotTable sebagai PivotTable, ByVal TargetRange sebagai rentang)
Sub akhir

Sub pribadi Workbook_SheetPivotTableBeforeAllocateChanges (ByVal SH sebagai objek, ByVal TargetPivotTable sebagai PivotTable, ByVal ValueChangeStart AS Long, ByVal ValueChangeEnd Long, cancel AS boolean)
Sub akhir

Sub pribadi Workbook_SheetPivotTableBeforeCommitChanges (ByVal SH sebagai objek, ByVal TargetPivotTable sebagai PivotTable, ByVal ValueChangeStart AS Long, ByVal ValueChangeEnd Long, cancel AS boolean)
Sub akhir

Sub pribadi Workbook_SheetPivotTableBeforeDiscardChanges (ByVal SH sebagai objek, ByVal TargetPivotTable sebagai PivotTable, ByVal ValueChangeStart AS Long, ByVal ValueChangeEnd AS Long)
Sub akhir

Sub Workbook_SheetPivotTableChangeSync privat (ByVal SH sebagai objek, target ByVal sebagai PivotTable)
Sub akhir

Sub Workbook_SheetPivotTableUpdate privat (ByVal SH sebagai objek, target ByVal sebagai PivotTable)
Sub akhir

Sub Workbook_SheetSelectionChange privat (ByVal SH sebagai objek, target ByVal sebagai rentang)
Sub akhir

Sub Workbook_SheetTableUpdate privat (ByVal SH sebagai objek, target ByVal sebagai TableObject)
Sub akhir

Sub Workbook_Sync privat (ByVal SyncEventType sebagai Office. MsoSyncEventType)
Sub akhir

Sub-Workbook_WindowActivate pribadi (jendela Berwn sebagai jendela
) Sub akhir

Sub-Workbook_WindowDeactivate pribadi (jendela Berwn sebagai jendela
) Sub akhir

Sub-Workbook_WindowResize pribadi (jendela Berwn sebagai jendela
) Sub akhir

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

Sumber Daya Lainnya

Ikon Pakar (otak, gerigi)

Tanyakan kepada para ahli

Hubungi para ahli, diskusikan berita terkini, pembaruan, dan praktik terbaik Excel, serta baca blog kami.

Komunitas Teknologi Excel

Ikon Komunitas

Dapatkan bantuan dalam komunitas

Ajukan pertanyaan dan temukan solusi dari Agen Dukungan, MVP, Teknisi, dan pengguna Excel lainnya.

Forum Excel di Answers

Ikon permintaan fitur (bola lampu, ide)

Sarankan fitur baru

Kami sangat senang membaca saran dan umpan balik Anda! Bagikan pendapat Anda. Kami mendengarkan.

UserVoice Excel

Lihat Juga

Perbaikan atau solusi untuk masalah terbaru di Excel untuk Mac

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×