Dùng thử công thức sau:
=TRIM(RIGHT(SUBSTITUTE(AB7," ",REPT(" ",255)),255))=SUMPRODUCT(($C$7:$N$24=AA7)*$C$30:$N$47)1) Mình cũng đã dùng Sumproduct rồi nhưng lại không biết là trong vùng đk thứ hai: C$30:$N$47 không cần thỏa mãn điều kiện gì cả mà vẫn đếm được! Cảm ơn Bebo nhiều nhé!
Thử công thức trong sheet TKB_GV xem có sử dụng được không.
Cám ơn Ba tê nhiều nhé!
Xin nhờ mọi người, đặc biệt bạn Bate chuyên gia lĩnh vực TKB!
"đặc biệt bạn Bate chuyên gia lĩnh vực TKB!".
Public Sub xoa_mau()
Sheets("Xep TKB").[A6].Resize(30, Sheets("Xep TKB").[IV5].End(xlToRight).Column).Interior.ColorIndex = 0
End SubBạn chỉnh $Z$5 lại thành cột thích hợp trong sheet Xep TKB, như của bạn bây giờ là AP5, dư 1 số cột cũng được mà.
Cám ơn Bate
Kích chuột phải tự động chạy trước đây bạn làm sao?
Híc! "Oai hỏi" thiệt!
Bạn cho giúp mình xem đoạn Code đó vào chỗ nào vì mình cho nhưng sai nên chạy vẫn bị nháy lâu lăm
Sub Oval20848_Click()
Application.ScreenUpdating = False
Dim dl, x, i, j
Set dl = [c6:z35]
dl.Interior.ColorIndex = xlNone
For cot = 1 To dl.Columns.Count Step 2
x = 1
For dong = 1 To dl.Rows.Count
If dl(dong, cot) = "" Then dl(dong, cot).Interior.ColorIndex = 6
If Application.CountIf(Range(dl(x, cot), dl(x + 4, cot)), dl(dong, cot)) > 2 Then
dl(dong, cot).Interior.ColorIndex = 8
End If
If dong = 5 Then x = 6
If dong = 10 Then x = 11
If dong = 15 Then x = 16
If dong = 20 Then x = 21
If dong = 25 Then x = 26
Next
Next
Application.ScreenUpdating = True
End SubXin cảm ơn các bác đã giúp! Nhưng mong bạn Quang Hải và các bạn giúp thêm:
Ý em là muốn tô màu GV trống 2 T hoặc 3 T dù ở các lớp khác nhau:
Tô màu hoài vậy ta???
Sub to_mau_nua()
Application.ScreenUpdating = False
Dim dl, x, cot, dong
Set dl = [c6:z35]
dl.Interior.ColorIndex = xlNone
For cot = 2 To dl.Columns.Count Step 2
x = 1
For dong = 1 To dl.Rows.Count
If Application.CountIf(Range(dl(x, cot), dl(x + 4, dl.Columns.Count)), dl(dong, cot)) < 4 Then
dl(dong, cot).Interior.ColorIndex = 8
End If
If dong = 5 Then x = 6
If dong = 10 Then x = 11
If dong = 15 Then x = 16
If dong = 20 Then x = 21
If dong = 25 Then x = 26
Next
Next
End SubCả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
