Nhờ kiểm tra code ẩn cột (1 người xem)

[tamrua]

Hi các Anh chị !
Nhờ các anh chị kiểm tra giùm Code của tamrua sao mà không chạy được.
Tamrua muốn tính công từ ngày 1-31 hàng tháng. Nếu các cột sau nhảy qua tháng mới thì sẽ ẩn cột đó.
Không biết làm chệch chỗ nào mà code nó không chạy hĩhix
Cám ơn nhiều lắm nha

 

[sealand]

Bạn sai chính tả câu này

If Not Intersect([AF2,AJ2], Target) Is Nothing Then

Sửa thành:

If Not Intersect([AF2:AJ2], Target) Is Nothing Then

Còn các nội dung khác mình không hiểu ý bạn nên không biết làm sao nữa?

 

[huuthang_bd]

Hi các Anh chị !
Nhờ các anh chị kiểm tra giùm Code của tamrua sao mà không chạy được.
Tamrua muốn tính công từ ngày 1-31 hàng tháng. Nếu các cột sau nhảy qua tháng mới thì sẽ ẩn cột đó.
Không biết làm chệch chỗ nào mà code nó không chạy hĩhix
Cám ơn nhiều lắm nha

If Not Intersect([AF2,AJ2], Target) Is Nothing Then

Sửa lại thành

If Not Intersect([AF2:AJ2], Target) Is Nothing Then

Set FRng = .Find(1, , xlValues, xlWhole)

Sửa lại thành

Set FRng = .Find("01", , xlValues, xlWhole)

 

[tamrua]

Cảm ơn Sealand và Huuthang_bd nhiều lắm......
Theo hướng dẫn của 02 bạn Tamrua đã sửa được lỗi của mình......
Hix........ có nhiêu đó mà cũng không nhận ra nữa....
Được học thêm 01 kinh nghiệm....

 

[ndu96081631]

Cảm ơn Sealand và Huuthang_bd nhiều lắm......
Theo hướng dẫn của 02 bạn Tamrua đã sửa được lỗi của mình......
Hix........ có nhiêu đó mà cũng không nhận ra nữa....
Được học thêm 01 kinh nghiệm....

Chỉ sửa đoạn

Set FRng = .Find(1, , xlValues, xlWhole)

thành:

Set FRng = .Find("01", , xlValues, xlWhole)

Đoạn trên không cần sửa đâu (tức giử nguyên If Not Intersect([AF2,AJ2], Target) Is Nothing Then) ... nếu không thì khi bạn sửa dữ liệu tại AH2 code cũng chạy sao?
[AF2, AJ2] là cell AF2 và cell AJ2
còn
[AF2:AJ2] là vùng từ AF2 đến AJ2 (có bao gồm luôn AH2)
2 cái khác nhau hoàn toàn
Ngoài ra, công thức của bạn tại cell G6:

=CHOOSE(WEEKDAY(G$5),"Chủ Nhật","Thứ Hai","Thứ Ba","Thứ Tư","Thứ Năm","Thứ Sáu","Thứ Bảy")

Có thể sửa lại thành:

=PROPER(TEXT(G$5,"[$-42A]dddd"))

Gọn không?