Lỗi code :

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
Tôi chạy code có báo lỗi, xin hỏi các bạn cách khắc phục:
anh 1.png
 
Tôi chạy code có báo lỗi, xin hỏi các bạn cách khắc phục:
View attachment 208848
Tôi vẫn chưa hiểu code của bạn lắm nhưng có vẻ có lỗi ở dòng này:
PHP:
shInfor = Sheets("TU KHOA LAY ")
Đúng phải là:
PHP:
shInfor = Sheets("TU KHOA LAY MTN")

Để sửa lỗi mà bạn nói thì bạn thử sửa lại:
PHP:
If Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
Thành:
PHP:
If VBA.Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
 
Upvote 0
Tôi vẫn chưa hiểu code của bạn lắm nhưng có vẻ có lỗi ở dòng này:
PHP:
shInfor = Sheets("TU KHOA LAY ")
Đúng phải là:
PHP:
shInfor = Sheets("TU KHOA LAY MTN")

Để sửa lỗi mà bạn nói thì bạn thử sửa lại:
PHP:
If Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
Thành:
PHP:
If VBA.Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
Dạ! cám ơn bạn, tôi đã sửa thành công.
Chúc bạn sức khỏe và nhiều niềm vui!
 
Upvote 0
Tôi vẫn chưa hiểu code của bạn lắm nhưng có vẻ có lỗi ở dòng này:
PHP:
shInfor = Sheets("TU KHOA LAY ")
Đúng phải là:
PHP:
shInfor = Sheets("TU KHOA LAY MTN")

Để sửa lỗi mà bạn nói thì bạn thử sửa lại:
PHP:
If Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
Thành:
PHP:
If VBA.Left(.Range("E" & i).Value, Len(shInfor.Range("A" & j).Value)) = shInfor.Range("A" & j).Value Then
Em chào anh, anh ơi cho em hỏi chút
em sử dung Userform thì có báo lỗi và các nút khoanh đỏ không nhấn được ạ(không có tác dụng)
Anh giúp em mới ạ!loicode123.png
 
Upvote 0
Upvote 0
Bạn đưa file lên và nói rõ: không có tác dụng là click không được/click nhưng code không chạy hay sao?
Dạ! code không chạy ạ!
Em sử dụng code UserForm tên là "bangquanlysheet"
khi chạy code đó báo lỗi, em tải file lên anh giúp em.
Em cám ơn anh ạ!
 

File đính kèm

  • file can giup.xlsm
    2 MB · Đọc: 9
Upvote 0
Dạ! code không chạy ạ!
Em sử dụng code UserForm tên là "bangquanlysheet"
khi chạy code đó báo lỗi, em tải file lên anh giúp em.
Em cám ơn anh ạ!
Tôi không thể xem để hiểu code được.
Có mấy vấn đề đã nhận biết được gửi bạn:
- Button Close vẫn sử dụng được
- Các button còn lại click được nhưng khi chạy code sẽ có báo lỗi do máy của tôi không có mấy file addin: "ToolQL.xlam!LoadExcel", "ToolQL.xlam!ChangeExcelLink2"
File này có cả mâm code thế này nhìn mà thấy sợ.
Nếu muốn sửa lại thì phải viết được yêu cầu người dùng thật chuẩn, sau đó từ từ làm.
Mà những trường hợp viết nhiều thế này thì chắc tôi không đủ khả năng.
 
Upvote 0
Tôi không thể xem để hiểu code được.
Có mấy vấn đề đã nhận biết được gửi bạn:
- Button Close vẫn sử dụng được
- Các button còn lại click được nhưng khi chạy code sẽ có báo lỗi do máy của tôi không có mấy file addin: "ToolQL.xlam!LoadExcel", "ToolQL.xlam!ChangeExcelLink2"
File này có cả mâm code thế này nhìn mà thấy sợ.
Nếu muốn sửa lại thì phải viết được yêu cầu người dùng thật chuẩn, sau đó từ từ làm.
Mà những trường hợp viết nhiều thế này thì chắc tôi không đủ khả năng.
anh ơi , code trong Userform thôi ạ! đây là 1 add in có trả phí, cái code em thêm vào nhưng khi chạy vẫn báo lỗi, lỗi như hình em đưa trên ý ạ!
Em copy nguyên cả cái Userform để quản lý sheet sang add in này để sử dụng, nhưng không hiểu sao lại có lỗi đó.
 
Upvote 0
Ừ, tui vừa thử nhưng cũng thấy lỗi chả hiểu, nhờ các cao thủ vậy, tui cũng còn gà lắm.
 
Upvote 0
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom