Cảm ơn bac Hải quan tâm nhưng Code rồi bác Test hộ em chưa mà đúng là tô màu hoài thật!
Híc, té ra cái nàykhông dễ nuốt, nó làm mình đau đầu quá.
Hình như trong......một buổi chứ nhỉ
Thật quá đúng ý em rồi bác Cò ơi! Bác giúp em nhiều quá rồi, đa tạ, đa tạ, đa tạ .....!
. Public Function xoa_mau()
'Dat ten de lam xong con quay lai
ActiveWorkbook.Names.Add Name:="vitri", RefersToR1C1:=ActiveCell
' Xoa mau trong TKB
'[MOCS]: phần này làm function chậm nè
[COLOR=#ff0000]'Range(odau_kt).Select
' For j = 0 To stiet
' For i = 0 To slop * 2
' Set otiep = Selection.Offset(j, i)
' otiep(1).Interior.ColorIndex = xlNone
' otiep.ClearComments
' Next
' Next[/COLOR]
[COLOR=#0000cd]'[MOCS]: mình thay bằng câu lệnh này. Những phần còn lại của bạn mình không thay đổi gì hết vì không biết bạn còn dùng nó ở chổ khác hay không[/COLOR]
[B]Range("C6:AP35").Interior.ColorIndex = xlNone[/B]
Application.Goto Reference:="vitri"
End FunctionNếu thay đổi tên môn học ở Sheet PCCM thì ở Sheet Xep TKB bạn phải thay toàn bộ tên các môn học đã thay ở Sheet PCCM, sau đó Code lại chạy vô tư!
Cảm ơn bạn Aviaiva, Code của bạn chạy được rồi nhưng có lẽ do mình mô tả chưa kỹ nên bạn có thể chỉnh lại giúp đoạn code đó là: Tô màu GV phải dạy T1 và T5 (Tức là có thể trống tiết, không nhất thiết phải dạy cả 5T) cụ thể muốn tô:
Đúng ý mình rồi, cảm ơn bạn. Nhưng mỗi GV một màu thì dễ phân biệt hơn, có bác nào giúp em thêm với!
Thích thì chìu, mỗi em một màu cho đẹp, hihi
Hi em biết ngay thế nào bác Cò cũng giúp em mà, thanh bác nhiều!
cái zụ này trong yêu cầu đâu có nói tới nó, bi giờ mới....xuất hiện mà
Sub DayT1_T5()
Dim Wf, VungDau, VungCuoi, I, iMau, J, K, M, d, MauCu
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
Set Wf = Application.WorksheetFunction
Set Vung = [D6:Z35]
Vung.Interior.ColorIndex = xlNone
iMau = 3
For I = 1 To Vung.Rows.Count Step 5
Set VungDau = Vung(I, 1).Resize(, Vung.Columns.Count)
Set VungCuoi = Vung(I + 4, 1).Resize(, Vung.Columns.Count)
For M = 1 To VungCuoi.Columns.Count Step 2
If Wf.CountIf(VungDau, VungCuoi(M)) Then
If Not d.exists(VungCuoi(M).Value) Then
iMau = iMau + 1
d.Add VungCuoi(M).Value, iMau
VungCuoi(M).Interior.ColorIndex = iMau
For J = 0 To 3
If Wf.CountIf(VungDau.Offset(J), VungCuoi(M)) Then
K = Wf.Match(VungCuoi(M), VungDau.Offset(J), 0)
VungDau.Offset(J)(K).Interior.ColorIndex = iMau
End If
Next J
Else
MauCu = d.Item(VungCuoi(M).Value)
VungCuoi(M).Interior.ColorIndex = MauCu
For J = 0 To 3
If Wf.CountIf(VungDau.Offset(J), VungCuoi(M)) Then
K = Wf.Match(VungCuoi(M), VungDau.Offset(J), 0)
VungDau.Offset(J)(K).Interior.ColorIndex = MauCu
End If
Next J
End If
End If
Next M
Next I
Application.ScreenUpdating = True
End Sub
