Cập nhật gần nhất: 10/04/2019
SỰ CỐ
Trình soạn thảo Visual Basic mới đã được giới thiệu trong Excel for Mac vào Tháng Mười 2017. Đi đôi với trình soạn thảo VB mới này là sự cố với việc tạo khai báo đối tượng bằng cách chọn từ menu thả xuống ở đầu cửa sổ mã.
Nếu bạn bấm vào danh sách thả xuống ở bên trái và chọn một mục từ danh sách, bạn sẽ nhận được một số mã cho sự kiện đã chọn trong danh sách thả xuống ở bên phải. Bạn có thể lựa chọn thêm từ danh sách thả xuống ở bên phải để tạo mã bổ sung để xử lý sự kiện đã chọn.
Thay vào đó, một lỗi xảy ra là mã không được tạo ra.
TRẠNG THÁI: GIẢI PHÁP THAY THẾ
Chọn một trong các giải pháp thay thế dưới đây cho sự cố này:
GIẢI PHÁP THAY THẾ SỐ 1
Bạn có thể thực hiện bước tương tự trên máy tính chạy Excel for Windows, rồi sao chép mã sang Excel for Mac.
GIẢI PHÁP THAY THẾ SỐ 2
Bạn có thể đi đến MSDN, rồi tìm cú pháp cho sự kiện bạn muốn sử dụng và nhập mã theo cách thủ công vào dự án VBA của bạn. Bài viết này mô tả các sự kiện "sổ làm việc" Microsoft Excel - Sự kiện Sổ làm việc.
GIẢI PHÁP THAY THẾ SỐ 3
Sao chép mã sự kiện thích hợp từ các mẫu bên dưới, rồi dán vào dự án VBA của bạn. Đối với từng sự kiện, hãy đảm bảo sao chép toàn bộ từ "Private Sub..." đến hết "End Sub".
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(Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_BeforePrint(Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_BeforeRemoteChange()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI dưới dạng Boolean, Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_Deactivate()
End Sub
Private Sub Workbook_NewChart(ByVal Ch dưới dạng Biểu đồ)
End Sub
Private Sub Workbook_NewSheet(ByVal Sh Dưới dạng Đối tượng)
End Sub
Private Sub Workbook_Open()
End Sub
Private Sub Workbook_PivotTableCloseConnection(ByVal dưới dạng PivotTable)
End Sub
Private Sub Workbook_PivotTableOpenConnection(ByVal dưới dạng PivotTable)
End Sub
Giá trị Workbook_RowsetComplete Private Sub(Mô tả ByVal dưới dạng Chuỗi, Trang tính ByVal dưới dạng Chuỗi, Thành công ByVal dưới dạng Boolean)
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh Dưới dạng Đối tượng)
End Sub
Private Sub Workbook_SheetBeforeDelete(ByVal Sh Dưới dạng Đối tượng)
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng Phạm vi, Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng Phạm vi, Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh Dưới dạng Đối tượng)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng Phạm vi)
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh Dưới dạng Đối tượng)
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng Siêu kết nối)
End Sub
Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh dưới dạng Đối tượng, ByVal TargetPivotTable dưới dạng PivotTable, ByVal TargetRange dưới dạng Phạm vi)
End Sub
Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh dưới dạng Đối tượng, ByVal TargetPivotTable dưới dạng PivotTable, ByVal ValueChangeStart dưới dạng Dài, ByVal ValueChangeEnd dưới dạng Dài, Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh dưới dạng Đối tượng, ByVal TargetPivotTable dưới dạng PivotTable, ByVal ValueChangeStart dưới dạng Dài, ByVal ValueChangeEnd dưới dạng Dài, Hủy bỏ dưới dạng Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh dưới dạng Đối tượng, ByVal TargetPivotTable dưới dạng PivotTable, ByVal ValueChangeStart dưới dạng Dài, ByVal ValueChangeEnd dưới dạng Dài)
End Sub
Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng PivotTable)
End Sub
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng PivotTable)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng Phạm vi)
End Sub
Private Sub Workbook_SheetTableUpdate(ByVal Sh dưới dạng Đối tượng, ByVal dưới dạng TableObject)
End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn dưới dạng Cửa sổ)
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn dưới dạng Cửa sổ)
End Sub
Private Sub Workbook_WindowResize(ByVal Wn dưới dạng Cửa sổ)
End Sub
Xem thêm tài nguyên
các chuyên gia
Kết nối với chuyên gia, thảo luận về tin tức, bản cập nhật mới nhất cũng như các biện pháp tốt nhất của Excel và đọc blog của chúng tôi.
Nhận trợ giúp trong cộng đồng
Đặt câu hỏi và tìm giải pháp từ Nhân viên Hỗ trợ, MVP, Kỹ sư cũng như những người dùng Excel khác.
xuất một tính năng mới
Chúng tôi rất mong nhận được đề xuất và phản hồi của bạn! Hãy chia sẻ suy nghĩ của mình. Chúng tôi đang lắng nghe.
Xem Thêm
Các bản sửa lỗi hoặc giải pháp thay thế cho sự cố gần đây trong Excel for Mac