Nhờ sửa giúp code UserForm

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#1
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

Bùi Thúy Thúy

Thành viên hoạt động
Tham gia ngày
2 Tháng bảy 2018
Bài viết
167
Thích
22
Điểm
20
Tuổi
31
#2

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
10,378
Thích
14,605
Điểm
1,560
Tuổi
59
#6
Lần chỉnh sửa cuối:

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#7
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:

batman1

Thành viên tích cực
Tham gia ngày
8 Tháng chín 2014
Bài viết
1,235
Thích
1,995
Điểm
360
#8
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?
 

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#9
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.
 

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#10

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
10,378
Thích
14,605
Điểm
1,560
Tuổi
59
#11

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#12
Lần chỉnh sửa cuối:

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#13
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:

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
10,378
Thích
14,605
Điểm
1,560
Tuổi
59
#14
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.
 

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#15
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 ạ!
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
10,378
Thích
14,605
Điểm
1,560
Tuổi
59
#16
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

Lần chỉnh sửa cuối:

Cát Lượng

Thành viên chính thức
Tham gia ngày
14 Tháng mười một 2018
Bài viết
67
Thích
10
Điểm
20
Tuổi
31
#17
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:

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
10,378
Thích
14,605
Điểm
1,560
Tuổi
59
#18
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.
 

batman1

Thành viên tích cực
Tham gia ngày
8 Tháng chín 2014
Bài viết
1,235
Thích
1,995
Điểm
360
#19
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.
 

batman1

Thành viên tích cực
Tham gia ngày
8 Tháng chín 2014
Bài viết
1,235
Thích
1,995
Điểm
360
#20
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:
Top