Nhờ sửa giúp code UserForm

Liên hệ QC

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
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ị ạ!
file anh.png
 

File đính kèm

  • File mau.xlsm
    2 MB · Đọc: 15
Upvote 0
add-in, link file...
.......................
 
Lần chỉnh sửa cuối:
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
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.
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 ạ?
Bài đã được tự động gộ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.
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 ạ?
 
Lần chỉnh sửa cuối:
Upvote 0
Cái file em tải lên là add in có trả phí,
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?
 
Upvote 0
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?
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.
 
Upvote 0
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 ạ!
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 .
 
Lần chỉnh sửa cuối:
Upvote 0
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ẫ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.
 
Upvote 0
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.
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 ạ!
 
Upvote 0
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 ạ!
Tôi mở được file như vầy, chỉ có link đến file khác thì không có.
Lỗi trong các sự kiện của Form thì tự bạn chỉnh.
 

File đính kèm

  • File mau (1).rar
    1.2 MB · Đọc: 9
Lần chỉnh sửa cuối:
Upvote 0
Tôi mở được file như vầy, chỉ có link đến file khác thì không có.
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 ạ!
 
Lần chỉnh sửa cuối:
Upvote 0
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 ạ!
Nó báo lỗi dòng lệnh này:
SheetName = Mid(SheetList.List(SheetList.ListIndex), InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1)
Ý bạn muốn làm gì tôi đâu có biết.
 
Upvote 0
Tôi không có hứng xem clip nên đã nói rõ là hãy liệt kê các thao tác cho tới khi có lỗi. Tôi sẽ tự thao tác.
Nếu bạn có thêm clip AVI thì nén bằng WinRAR rồi đính kèm. Tôi sẽ tự xem trên máy mình.
 
Upvote 0
Bạn thử thay
Mã:
SheetName = Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
bằng
Mã:
SheetName = VBA.Mid(SheetList.List(SheetList.ListIndex), (InStr(SheetList.List(SheetList.ListIndex), vbTab) + 1))
Bài đã được tự động gộp:

Chọn Tools -> References -> nhìn xem có thằng nào được chọn mà ở đầu có MISSING không. Nếu có thì tên nó là gi.
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom