Lượng anh, vẫn chưa giải được vấn đề này ạ?Em chạy code Userform có tên là "bangquanlysheet' xuất hiện lỗi và bảng giao diện hiện ra (khoanh đỏ) không tác động vào được.
Em xin được nhờ sự giúp đỡ của các anh chị ạ!
View attachment 208952
File của bạn, người khác Open sẽ báo lỗi các add-in bạn đang dùng chỉ bạn có, các Link file chỉ bạn có...Dạ em không hiểu ạ! Ý là sao vậy thầy?
Nhờ thầy chỉ giúp ạ!
Cái file em tải lên là add in có trả phí, thầy xem đó vì nó nhìu sheet quá nên khó quản lý nên em coppy userform vào file này để tạo quản lý sheet.File của bạn, người khác Open sẽ báo lỗi các add-in bạn đang dùng chỉ bạn có, các Link file chỉ bạn có...
Chán quá nên không ai tiếp tục xem.
https://giaiphapexcel.com/diendan/threads/coppy-code-vba-từ-userform.139489/post-895461
Cái file em tải lên là add in có trả phí, thầy xem đó vì nó nhìu sheet quá nên khó quản lý nên em coppy userform vào file này để tạo quản lý sheet.
Khi muốn sử dụng add in đó em phải mở thông qua bộ cài. Nên khi tải file lên em chưa biết nhiều nên cũng nhìu cái các thầy giải thích em cũng chưa nắm được.
Thầy cho em hỏi các add in khác lỗi thì ảnh hưởng gì tới userform quản lý sheet này không ạ, theo thầy giờ phải làm thế nào ạ?
Tôi đã nói rồi: hãy liệt kê các thao tác kể từ khi mở tập tin tới khi gặp lỗi. Người khác phải gặp được lỗi thì mới nhìn mặt nó xem có là đầu gấu hay không.Cái file em tải lên là add in có trả phí,
Dạ vâng , chúc anh ngày mới vui vẻ, để lát nữa ngồi máy em làm như anh hướng dẫn.Tôi đã nói rồi: hãy liệt kê các thao tác kể từ khi mở tập tin tới khi gặp lỗi. Người khác phải gặp được lỗi thì mới nhìn mặt nó xem có là đầu gấu hay không.
Do bạn không đính kèm add-in nên bạn tự kiểm tra như sau: đúp chuột vào Thisworkbook -> tìm bên phải và bôi đen một chỗ có "ToolQL.xlam" -> menu Edit -> Find -> chọn "Current Project -> nhấn liên tiếp "Find Next" -> mỗi lần tìm thấy ToolQL.xlam thì biến dòng chứa nó thành comment (thêm ký tự dấu nháy đơn ' ở đầu) -> cứ như thế cho tới khi không còn tìm thấy ToolQL.xlam nữa -> lưu lại tập tin với tên khác để giữ tập tin gốc -> đóng tập tin -> mở lại tập tin -> thao tác như cũ.
Bây giờ còn lỗi không?
Thầy cho em hỏi, thêm ký tự nháy đơn ' ở đầu dòng, hay là chỉ ở đầu "ToolQL.xlam" ( 'ToolQL.xlam) thôi ạ!Tôi đã nói rồi: hãy liệt kê các thao tác kể từ khi mở tập tin tới khi gặp lỗi. Người khác phải gặp được lỗi thì mới nhìn mặt nó xem có là đầu gấu hay không.
Do bạn không đính kèm add-in nên bạn tự kiểm tra như sau: đúp chuột vào Thisworkbook -> tìm bên phải và bôi đen một chỗ có "ToolQL.xlam" -> menu Edit -> Find -> chọn "Current Project -> nhấn liên tiếp "Find Next" -> mỗi lần tìm thấy ToolQL.xlam thì biến dòng chứa nó thành comment (thêm ký tự dấu nháy đơn ' ở đầu) -> cứ như thế cho tới khi không còn tìm thấy ToolQL.xlam nữa -> lưu lại tập tin với tên khác để giữ tập tin gốc -> đóng tập tin -> mở lại tập tin -> thao tác như cũ.
Bây giờ còn lỗi không?
Vẫn là bài #11.Thầy cho em hỏi, thêm ký tự nháy đơn ' ở đầu dòng, hay là chỉ ở đầu "ToolQL.xlam" ( 'ToolQL.xlam) thôi ạ!
Em đã thêm ở đầu dòng nhưng vẫn bị lỗi, sau đó xóa ký tự nháy đơn ' đã thêm ở đầu dòng đi và thêm ký tự nháy đơn ' ở đầu "ToolQL.xlam" ( 'ToolQL.xlam) và chạy code vẫn báo lỗi .
Vâng, thầy ơi em thêm ký tự đơn ' ở vị trí đầu dòng chứa "ToolQL.xlam" là hợp lý đúng không ạ?Vẫn là bài #11.
Tôi xem Video của bạn không có động tác đóng tất cả file, mở lại file vừa sửa.
Tôi mở được file như vầy, chỉ có link đến file khác thì không có.Vâng, thầy ơi em thêm ký tự đơn ' ở vị trí đầu dòng chứa "ToolQL.xlam" là hợp lý đúng không ạ?
Em thêm vào đầu dòng và có lưu file một tên mới, sau đó đóng các file và mở lại, nhưng chưa được ạ!
Em cám ơn thầy.Tôi mở được file như vầy, chỉ có link đến file khác thì không có.
Nó báo lỗi dòng lệnh này:Em cám ơn thầy.
Em tải file của thầy về mở ra vẫn thấy báo lỗi như vậy, không hiểu do đâu vậy ạ?
Thầy có thời gian ngồi máy, thầy giúp em qua teamview chút ạ!
SheetName = Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
SheetName = VBA.Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
DIỄN ĐÀN GIẢI PHÁP EXCEL