Nhờ giúp đỡ VBA đóng khung và tô màu tự động

[kingwizard]

Chào mọi người, vì mình không rành lắm về VBA, toàn lượm lặt chỗ này chỗ kia, mong mọi người giúp đỡ.
Mình có file test này, đã có sẵn 1 macro để chạy đóng khung
Mọi người xem giúp mình những chỗ sau
1) Sửa mã VBA phần đóng khung ô có giá trị để có thể chạy được tất cả các sheet
2) Giúp mình viết mã VBA để to màu dòng đầu tiên ở mỗi sheet là màu xanh đậm
3) Các mục lớn sau dòng đầu tiên màu xanh nhạt (các mục này vị trí dòng không cố định, nếu lấy điều kiện thì chắc là có kí tự /)
4) Nếu có thể thì giúp mình gộp macro lại, vừa đóng khung ô có giá trị, vừa tô màu như trên, tất cả các sheet cùng 1 lúc
Mong mọi người giúp đỡ.
Xin cảm ơn.

 

[Hoàng Tuấn 868]

Mình có file test này, đã có sẵn 1 macro để chạy đóng khung

File có đuôi ".xlsx" thì làm sao có macro được hả bạn.

 

[kingwizard]

File có đuôi ".xlsx" thì làm sao có macro được hả bạn.

Cám ơn bạn nhiều lắm,
Mình xin lỗi file ví dụ của mình có vấn đề, ý là số cột dữ liệu của các sheet là không cố định, không giống nhau, có thể chỉnh sửa giúp mình được không ạ?

 

[Hoàng Tuấn 868]

Cám ơn bạn nhiều lắm,
Mình xin lỗi file ví dụ của mình có vấn đề, ý là số cột dữ liệu của các sheet là không cố định, không giống nhau, có thể chỉnh sửa giúp mình được không ạ?

Cho ví dụ xem cấu trúc thế nào.

 

[kingwizard]

Đây ạ, cũng tương tự như file lúc đầu mình gửi, nhưng số cột và số hàng của dữ liệu các sheet là không giống nhau.
Cơ bản là mình muốn đóng khung toàn bộ (có 1 số cell có thể không có dữ liệu); và tô màu dòng ạ.
Xin nhờ bạn

 

[Hoàng Tuấn 868]

Đây ạ, cũng tương tự như file lúc đầu mình gửi, nhưng số cột và số hàng của dữ liệu các sheet là không giống nhau.
Cơ bản là mình muốn đóng khung toàn bộ (có 1 số cell có thể không có dữ liệu); và tô màu dòng ạ.
Xin nhờ bạn

Bạn kiểm tra lại xem.

 

[kingwizard]

Được rồi ạ, cám ơn bạn đã giúp đỡ ạ.

 

[Hoàng Tuấn 868]

có 1 số cell có thể không có dữ liệu

Bạn dùng file này đã điều chỉnh thêm điều kiện.

 

[kingwizard]

Mình vừa tính mặt dày nhờ bạn xem lại, vừa may bạn lại gửi cho file khác.
Cám ơn đã nhiệt tình giúp đỡ ạ.