Nhờ Sửa 3 code tô màu cho trường hợp thống kê, phát hiện,...các tiết học giống nhau (1 người xem)

[coconga]

Mình không theo Code của bạn đâu vì nó có nhiều vấn đề quá.

Đúng ý của tôi mong muốn rồi ah "3 code của bạn không phụ thuộc vào dữ liệu ở các sheet khác" hơn mong đợi

Trong Code mình thêm phần ghi comment là số tiết để kiểm tra

Thêm phần ghi comment là số tiết trong một buổi dạy của một giáo viên rất là hay ah,
----------------Muốn thêm bổ sung tên "Gv:số tiết" thì tuyệt (VD:comment =coconga: 2 tiết)

Bạn Test giùm và chỉ chỗ sai trên file mình gửi nha

Cả 3 code đều chạy đúng như mong đợi
---------------------------tuy nhiên vẫn muốn thêm :
*nên là mỗi 1 GV 1 màu thì dễ quan sát phát hiện hơn
*File Cũ ở #1 có tính năng Nhấp đúp chuột phải và chuốt trái để thống kê "1GV" hoặc "1 môn học" đồng thời xóa màu rất linh động và hay, rất mong được các bạn bổ sung giúp vào File của Sealad.

Cảm ơn cảm ơn Sealad và các bạn cùng giúp
Cảm ơn GPE.

 

[sealand]

Mình bổ xung việc tô màu riêng từng người, nhưng số người nhiều hơn số màu nên có mọtt số người trùng màu.
Mình bổ xung nhấn chuột phải xoá màu, comment.
Việc thống kê ra sao là 1 mảng khác, bạn bổ xung thêm.

 

[coconga]

Cảm ơn sealand

sealand[/B];523476]Mình bổ xung việc tô màu riêng từng người, nhưng số người nhiều hơn số màu nên có mọtt số người trùng màu.
Mình bổ xung nhấn chuột phải xoá màu, comment.
Việc thống kê ra sao là 1 mảng khác, bạn bổ xung thêm.

Quá tuyệt vời, cảm ơn sealand, cảm ơn bạn đã làm mới file này rất hay.
Chúc bạn Sức khỏe, hạnh phúc & thành công.
------
P/S1: Có một vấn đề NHỎ ở sub thứ 2:Public Sub Trong_2_3T() là trong 1 buoi dạy nếu trống ngẫu nhiên từ 2 tiết trở lên là nó TB không kể vị trí nào(trống đầu buổi, giữa buổi hay cuối buổi dạy).
----ý của em lại là nếu trong 1 buổi dạy mà trống 2T,3T giữa buổi thì mới Thông báo(vì trống đầu buổi thì GV đi muộn; Trống cuối buổi GV có thể về; trống giũa buổi thì ko biết làm gì)
có lẽ do em mô tả chưa rõ nên ???????? mong Sealad và các anh chị thông cảm
------
P/S 2:Sub thứ ba cũng vậy Public Sub Trong_1_5T() các bác ơi: sub này là có dạy từ tiết 1,...,tiết 5 trong 1 buổi dạy (không cần tính lớp), có nghĩa ai đi dạy từ đầu buổi, đến cuối buổi là thông báo bất kể lớp nào

 

[sealand]

Bạn phải tổng hợp rồi làm 1 lần, chứ thay đổi thế này có khi vỡ Code.
Yêu cầu với Trong_2_3T không báo tiết đầu bạn sửa dòng lệnh sau:
.........................
If WorksheetFunction.CountIf(myRg, dl.Cells(eR, eC)) < 4 Then
.........................

Thành:

.........................
If WorksheetFunction.CountIf(myRg, dl.Cells(eR, eC)) < 4 And eR Mod 5 <> 1 Then
.........................

 

[coconga]

Bạn phải tổng hợp rồi làm 1 lần, chứ thay đổi thế này có khi vỡ Code.
Yêu cầu với Trong_2_3T không báo tiết đầu bạn sửa dòng lệnh sau:
If WorksheetFunction.CountIf(myRg, dl.Cells(eR, eC)) < 4 Then
Thành:
If WorksheetFunction.CountIf(myRg, dl.Cells(eR, eC)) < 4 And eR Mod 5 <> 1 Then

Vâng em rút kinh nghiệm, khi tham gia GPE
Đã thay theo HD nhưng vẫn chưa được...
Cảm ơn các anh chị

 

[coconga]

Còn chút ít nữa #25 là hoàn chỉnh, mong anh chị chia sẽ thêm
Em chân thành cảm ơn

 

[sealand]

Cái vấn đề bài #25 thật xương. Nhưng rồi cũng ổn
-Chỉ đánh dấu ai có giờ trống xen giữa các giờ dạy (Phải ở truòng nhưng không làm gì) mới đánh dấu.
-Comment ghi chi tiết các giờ theo dạy=1 nghỉ=0

 

[coconga]

Cái vấn đề bài #25 thật xương. Nhưng rồi cũng ổn
-Chỉ đánh dấu ai có giờ trống xen giữa các giờ dạy (Phải ở truòng nhưng không làm gì) mới đánh dấu.
-Comment ghi chi tiết các giờ theo dạy=1 nghỉ=0

Nhờ có Bác Sealad bốc trúng thuốc nên "xương" đã thành "cao" rồi ..hi..hi..ổn thật rùi, Bác nghĩ ra cách xử lí Comment trong Sub "Trong_2_3T()" này là bao quát được hết rồi, nhìn vào Comment là biết tất cả thông tin, hay thật. Các làm hay chưa từng thấy.
Cảm ơn rất nhiều