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

Terakhir Diperbarui: 10 November 2017

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.

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

Ikon Pakar (otak, gerigi)

Tanyakan kepada pakar

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 untuk Jawaban

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.

×