Lỗi code khi sử dụng VBA (1 người xem)

[Cát Lượng]

Em bị lỗi code thông báo như hình, các anh các chị giúp em đế hết bị lỗi vậy.
Em chân thành cảm ơn!

 

[be_09]

Em bị lỗi code thông báo như hình, các anh các chị giúp em đế hết bị lỗi vậy.
Em chân thành cảm ơn!
View attachment 227460

Tôi không xem code nhưng cái thông báo trên nó nói là bạn đặt tên Sub "MergeCellFit" bị trùng lặp nên bị lỗi, vì vậy bạn tự kiểm tra và sửa tên sub lại cho phù hợp.

 

[Cát Lượng]

Tôi không xem code nhưng cái thông báo trên nó nói là bạn đặt tên Sub "MergeCellFit" bị trùng lặp nên bị lỗi, vì vậy bạn tự kiểm tra và sửa tên sub lại cho phù hợp.

Em đã sửa lại tên khác ( như hình 1)
Nhưng lại xuất hiện lỗi (hình thứ 2)
Thầy xem giúp em ạ!

 

[snow25]

Em đã sửa lại tên khác ( như hình 1)
Nhưng lại xuất hiện lỗi (hình thứ 2)
Thầy xem giúp em ạ!
View attachment 227466View attachment 227467

Xóa 1 cái đi là được.Trong code đang thừa 1 sub đó.Xóa đi hoặc đặt tên vớ vẩn vào đó.

 

[be_09]

Em đã sửa lại tên khác ( như hình 1)
Nhưng lại xuất hiện lỗi (hình thứ 2)
Thầy xem giúp em ạ!
View attachment 227466View attachment 227467

Tôi bận quá nên không thể xem giúp được, có thể cái sub khoanh đỏ thiếu cái này ().
Bạn nên đưa cái File đã sửa lên để thành viên nào rảnh rổi sẽ kiểm tra giúp code cho bạn (chứ nhìn cái hình ai biết được nó sai cái gì?).

 

[Cát Lượng]

Tôi bận quá nên không thể xem giúp được.
Bạn nên đưa cái File đã sửa lên để thành viên nào rảnh rổi sẽ kiểm tra giúp code cho bạn (chứ nhìn cái hình ai biết được nó sai cái gì?).

Em có tải file đính kèm ở #1 thầy ạ!
Khi nào thầy có thời gian giúp em mới nhé! Em cảm ơn Thầy!

 

[ongke0711]

Code này bạn copy paste mà chưa chỉnh sửa lại cho phù hợp và một số căn bản của code.
- Nếu thấy báo lỗi "Ambigous..." thì tra từ điển là biết bị trùng tên Sub/ function rồi. Dùng lệnh Find trong menu Edit để tìm cái từ bị báo lỗi xem nó còn nằm ở đâu nữa rồi đổi tên hoặc xoá.
- Báo lỗi "UDT not defined" là chưa khai báo kiểu người dùng tự tạo. Cụ thể trong code là nó không hiểu kiểu "Font_Codes" là gì. Trong code có đoạn khai báo "Public Enum Font_Code" bạn phải khai báo nó ở các dòng đầu tiên của module chứ không thể để lưng chừng code.
- Tập thói quen thêm dòng "Option Explicit" ngay đầu mỗi module để nó bắt lỗi thiếu khai báo các biến cho bạn. Có thể thiết lập mặc định trong menu Option.
- Khi đặt tên Sub/function, biến... nên tránh các từ có thể hệ thống đã dùng rồi. Vd: Mergcel...

 

[Cát Lượng]

Code này bạn copy paste mà chưa chỉnh sửa lại cho phù hợp và một số căn bản của code.
- Nếu thấy báo lỗi "Ambigous..." thì tra từ điển là biết bị trùng tên Sub/ function rồi. Dùng lệnh Find trong menu Edit để tìm cái từ bị báo lỗi xem nó còn nằm ở đâu nữa rồi đổi tên hoặc xoá.
- Báo lỗi "UDT not defined" là chưa khai báo kiểu người dùng tự tạo. Cụ thể trong code là nó không hiểu kiểu "Font_Codes" là gì. Trong code có đoạn khai báo "Public Enum Font_Code" bạn phải khai báo nó ở các dòng đầu tiên của module chứ không thể để lưng chừng code.
- Tập thói quen thêm dòng "Option Explicit" ngay đầu mỗi module để nó bắt lỗi thiếu khai báo các biến cho bạn. Có thể thiết lập mặc định trong menu Option.
- Khi đặt tên Sub/function, biến... nên tránh các từ có thể hệ thống đã dùng rồi. Vd: Mergcel...

Cám ơn anh/chị
Anh/chị có nói:
- Báo lỗi "UDT not defined" là chưa khai báo kiểu người dùng tự tạo. Cụ thể trong code là nó không hiểu kiểu "Font_Codes" là gì. Trong code có đoạn khai báo "Public Enum Font_Code" bạn phải khai báo nó ở các dòng đầu tiên của module chứ không thể để lưng chừng code.
Em chưa biết về VBA nên chưa thể chỉnh sửa được theo ý mà anh/chị đã giúp em nêu trên.
Em có tài file đính kèm #1, mong anh/chị bớt chút thời gian giúp em.

 

[ongke0711]

Cám ơn anh/chị
Anh/chị có nói:
- Báo lỗi "UDT not defined" là chưa khai báo kiểu người dùng tự tạo. Cụ thể trong code là nó không hiểu kiểu "Font_Codes" là gì. Trong code có đoạn khai báo "Public Enum Font_Code" bạn phải khai báo nó ở các dòng đầu tiên của module chứ không thể để lưng chừng code.
Em chưa biết về VBA nên chưa thể chỉnh sửa được theo ý mà anh/chị đã giúp em nêu trên.
Em có tài file đính kèm #1, mong anh/chị bớt chút thời gian giúp em.

Xem file đính kèm.
Còn một cái lỗi "Sheet2" thì bạn tự sửa theo tên Sheet hiện tại của bạn.

 

[Cát Lượng]

View attachment 227476

Xem file đính kèm.
Còn một cái lỗi "Sheet2" thì bạn tự sửa theo tên Sheet hiện tại của bạn.

Cám ơn anh/chị nhiều!