Xin giải thích giúp code trong file kèm theo

[hoangmai2605]

Chào các bạn.
Các Bạn xem giúp file đính kèm của Tôi.
Tôi có việc chọn giờ ra tương ứng với giờ vào xảy ra ở 2 sheet là PhanCa và ListCa.(vd: chọn giờ vào =8g thì hiện trong list giờ ra chỉ các giá trị 16g, 18g, 23g)
Lúc trước bạn ChanhTQ đã giúp Tôi và Tôi đã lấy nguyên file bạn về rồi design lại cho bài toán của Tôi, cụ thể là design sheet Phanca Và việc chọn giờ ra ứng với giờ vào trong Phanca thì OK.
Bây giờ Tôi cần chọn giờ ra nữa trogn sheet ListCa thì bạn HYEN17 đã dùng giải thuật khác xử lý.
Tôi copy sheet ListCa của HYEN17 vào file của Tôi thì code event của HYEN17 chạy nhưng code event của ChanhTQ không chạy (HYEN17 đã không đụng đến cột G trong Listca để không ảnh hưởng đến code của ChanhTQ).
Các Bạn làm cho code event chạy trong Phanca với ạ. Và các bạn làm ơn giải thích giúp tại sao từ file gốc của Tôi, Tôi đã làm Name Gio_R, validation roi code của event worksheet_change() nhưng vẫn không chạy được trong file gốc của Tôi giồng mà Tôi phải lấy nguyên file bạn ChanhTQ rồi design lại cho mình (khi chưa dùng phương phap của HYEN17). Mong bạn chỉ giúp vì lần đầu tiên Tôi viết code về event (coi trong sách mà GPE phát hành rồi mò làm).
Giải thích giúp Tôi nghe các bạn vì không biết nguyên nhân bực mình quá trời.
Mong nhận được trả lời sớm của các bạn. Xin cảm ơn ạ

 

[SA_DQ]

Câu lệnh này:
If Not Intersect(Target, Cells(4, Target.Column)) Is Nothing Then

hình như có vấn đề!

Sao bạn không dùng thử lệnh
If Not Intersect(Target, Range([B4],[IU4].End(xlToLeft))) Is Nothing Then

 

[tintam7251]

Lỗi do name mắc lỗi REF# và name Gio_R không khớp với code. Mình đã chỉnh lại, bạn xem thử có được chưa.

 

[hoangmai2605]

Cảm ơn bạn nhiều lắm nghe. Mình đã tìm ra chân lý rồi.