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.
Namun, terjadi kesalahan yang mengatakan bahwa kode tidak dibuat.
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
Tanyakan kepada ahlinya
Terhubung dengan para ahli, diskusikan praktik terbaik, pembaruan, dan berita terkini Excel, serta baca blog kami.
Dapatkan bantuan di komunitas
Ajukan pertanyaan dan temukan solusi dari Agen Dukungan, MVP, Teknisi, dan pengguna Excel lain.
Sarankan fitur baru
Kami sangat senang membaca saran dan umpan balik Anda! Bagikan pendapat Anda. Kami mendengarkan.
Lihat Juga
Perbaikan atau solusi untuk masalah terbaru di Excel untuk Mac