Lỗi "Biến sử dụng loại Tự động hóa không được hỗ trợ" ở trình soạn thảo Visual Basic trong Excel for Mac

Office 2016 for Mac hỗ trợ sắp kết thúc

Nâng cấp lên Microsoft 365 để làm việc từ bất kỳ thiết bị nào và tiếp tục nhận được hỗ trợ.

Nâng cấp ngay bây giờ

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.

Trình soạn thảo VBE hiển thị danh sách thả xuống vùng chọn đối tượng

Thay vào đó lại xảy ra lỗi không được tạo mã.

Lỗi Microsoft Visual Basic: Biến sử dụng loại tự động hóa không được Visual Basic hỗ trợ.

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

Biểu tượng Chuyên gia (não, bánh răng)

Hỏi chuyên gia

Kết nối với chuyên gia, thảo luận về các tin tức cũng như bản cập nhật mới nhất của Excel cùng các biện pháp tốt nhất và đọc blog của chúng tôi.

Cộng đồng Kỹ thuật Excel

Biểu tượng Cộng đồng

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.

Diễn đàn Giải đáp thắc mắc về Excel

Biểu tượng yêu cầu tính năng (bóng đèn, ý tưởng)

Đề 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 luôn lắng nghe.

Excel UserVoice

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

Phát triển kỹ năng Office của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Người dùng nội bộ Office

Thông tin này có hữu ích không?

Cảm ơn phản hồi của bạn!

Cảm ơn bạn đã phản hồi! Để trợ giúp tốt hơn, có lẽ chúng tôi sẽ kết nối bạn với một trong những nhân viên hỗ trợ Office của chúng tôi.

×