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 đó lại xảy ra lỗi không được tạo mã.
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".
Workbook_Activate phụ riêng tư (
) Kết thúc phụWorkbook_AddinInstall phụ riêng tư (
) Kết thúc phụWorkbook_AddinUninstall phụ riêng tư (
) Kết thúc phụWorkbook_AfterRemoteChange phụ riêng tư (
) Kết thúc phụWorkbook_AfterSave phụ riêng tư (thành công của ByVal
là boolean) Kết thúc phụWorkbook_BeforeClose phụ riêng tư (hủy bỏ dưới
dạng boolean) Kết thúc phụWorkbook_BeforePrint phụ riêng tư (hủy bỏ dưới
dạng boolean) Kết thúc phụWorkbook_BeforeRemoteChange phụ riêng tư (
) Kết thúc phụWorkbook_BeforeSave phụ riêng tư (ByVal SaveAsUI là boolean, hủy bỏ dưới
dạng boolean) Kết thúc phụWorkbook_Deactivate phụ riêng tư (
) Kết thúc phụWorkbook_NewChart phụ riêng tư (ByVal ch như biểu
đồ) Kết thúc phụWorkbook_NewSheet phụ riêng tư (ByVal sh như đối
tượng) Kết thúc phụWorkbook_Open phụ riêng tư (
) Kết thúc phụWorkbook_PivotTableCloseConnection phụ riêng tư (mục tiêu ByVal là PivotTable)
Kết thúc phụWorkbook_PivotTableOpenConnection phụ riêng tư (mục tiêu ByVal là PivotTable)
Kết thúc phụWorkbook_RowsetComplete phụ riêng tư (ByVal mô tả như chuỗi, tờ ByVal như chuỗi, thành công của ByVal là boolean)
Kết thúc phụWorkbook_SheetActivate phụ riêng tư (ByVal sh như đối
tượng) Kết thúc phụWorkbook_SheetBeforeDelete phụ riêng tư (ByVal sh như đối
tượng) Kết thúc phụWorkbook_SheetBeforeDoubleClick phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal là phạm vi,
hủy bỏ dưới dạng boolean) Kết thúc phụWorkbook_SheetBeforeRightClick phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal là phạm vi,
hủy bỏ dưới dạng boolean) Kết thúc phụWorkbook_SheetCalculate phụ riêng tư (ByVal sh như đối
tượng) Kết thúc phụWorkbook_SheetChange phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal
là phạm vi) Kết thúc phụWorkbook_SheetDeactivate phụ riêng tư (ByVal sh như đối
tượng) Kết thúc phụWorkbook_SheetFollowHyperlink phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal
như siêu kết nối) Kết thúc phụWorkbook_SheetPivotTableAfterValueChange phụ riêng tư (ByVal sh như đối tượng, ByVal TargetPivotTable là PivotTable, ByVal TargetRange as
Range) Kết thúc phụWorkbook_SheetPivotTableBeforeAllocateChanges phụ riêng tư (ByVal sh như đối tượng, ByVal TargetPivotTable là PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as
boolean) Kết thúc phụWorkbook_SheetPivotTableBeforeCommitChanges phụ riêng tư (ByVal sh như đối tượng, ByVal TargetPivotTable là PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as Long, Cancel as
boolean) Kết thúc phụWorkbook_SheetPivotTableBeforeDiscardChanges phụ riêng tư (ByVal sh như đối tượng, ByVal TargetPivotTable là PivotTable, ByVal ValueChangeStart as Long, ByVal ValueChangeEnd as
Long) Kết thúc phụWorkbook_SheetPivotTableChangeSync phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal là
pivottable) Kết thúc phụWorkbook_SheetPivotTableUpdate phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal là
pivottable) Kết thúc phụWorkbook_SheetSelectionChange phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal
là phạm vi) Kết thúc phụWorkbook_SheetTableUpdate phụ riêng tư (ByVal sh như đối tượng, mục tiêu ByVal là
tableobject) Kết thúc phụWorkbook_Sync phụ riêng tư (ByVal SyncEventType dưới dạng Office. MsoSyncEventType)
Kết thúc phụWorkbook_WindowActivate phụ riêng tư (không áp dưới dạng cửa
sổ) Kết thúc phụWorkbook_WindowDeactivate phụ riêng tư (không áp dưới dạng cửa
sổ) Kết thúc phụWorkbook_WindowResize phụ riêng tư (không áp dưới dạng cửa
sổ) Kết thúc phụTrang tính Private Sub_Activate()
End Sub
Trang tính Private Sub_BeforeDelete()
End Sub
Trang tính Private Sub_BeforeDoubleClick(ByVal dưới dạng Phạm vi, Huỷ bỏ dưới dạng Boolean)
End Sub
Trang tính Private_BeforeRightClick(ByVal dưới dạng Phạm vi, Huỷ bỏ dưới dạng Boolean)
End Sub
Trang tính Private Sub_Calculate()
End Sub
Trang tính Private Sub_Change(ByVal dưới dạng Phạm vi)
End Sub
Trang tính Private Sub_Deactivate()
End Sub
Trang tính Private Sub_FollowHyperlink(ByVal dưới dạng Siêu kết nối)
End Sub
Trang tính Private Sub_LensGalleryRenderComplete()
End Sub
Trang tính Private Sub_PivotTableAfterValueChange(ByVal TargetPivotTable dưới dạng PivotTable, ByVal TargetRange dưới dạng Phạm vi)
End Sub
Trang tính Private Sub_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable dưới dạng PivotTable, ByVal ValueChangeStart dưới dạng Dài, ByVal ValueChangeEnd dưới dạng Dài, Huỷ bỏ dưới dạng Boolean)
End Sub
Trang tính Private Sub_PivotTableBeforeCommitChanges(ByVal TargetPivotTable dưới dạng PivotTable, ByVal ValueChangeStart dưới dạng Dài, ByVal ValueChangeEnd dưới dạng Dài, Huỷ bỏ dưới dạng Boolean)
End Sub
Trang tính Private Sub_PivotTableBeforeDiscardChanges(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
Trang tính Private Sub_PivotTableChangeSync(ByVal dưới dạng PivotTable)
End Sub
Trang tính Private Sub_PivotTableUpdate(ByVal dưới dạng PivotTable)
End Sub
Trang tính Private Sub_SelectionChange(ByVal dưới dạng Phạm vi)
End Sub
Trang tính Private Sub_TableUpdate(ByVal Target dưới dạng TableObject)
End Sub
Xem thêm Tài nguyên
Hỏi 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 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