Dữ liệu của bạn còn nhiều bất cấp lắm. Ví dụ như tiết thứ 2 của thứ hai, giáo viên Tơ vừa dạy lý ở lớp 12A vừa dạy lý ở lớp 10C. Và còn sai chính tả ở một số ô. Nói chung, trước tiên dữ liệu phải chuẩn thì mới lọc đúng được.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c3]) Is Nothing Then
Dim ShName As String, MyAdd As String
3 Const PC As String = " - "
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim Jj As Byte, Col As Byte, Rws As Long, SC As Long, Dg As Long
[c7].Resize(10, 7).ClearContents
For Jj = 1 To 2
ShName = IIf(Jj = 1, "Sang", "Chieu")
Set Sh = ThisWorkbook.Worksheets(ShName)
Set Rng = Sh.[b8].CurrentRegion
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
SC = 5 * Jj + 2
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
Dg = sRng.Row: Rws = (Dg - 7) Mod 5
Col = Switch(Dg < 13, 1, Dg < 18, 2, Dg < 23, 3, _
Dg < 28, 4, Dg > 27, 5)
9 Cells(SC + Rws, 2 + Col).Value = sRng.Offset(, -1).Value _
& PC & Sh.Cells(6, sRng.Column - 1).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next Jj
End If
End Sub
Code của SA_DQ chỉ hoạt động khi có sự thay đổi ô C3 (Chọn tên GV)
mình xếp tkb bằng tay huhuHoặc dùng TKB của hoanggia tại đây
Hai phần mềm này xếp TKB rất hay bạn ah. Thích lọc , hay gưỉ emai và tin nhắn đều được.
Hỗ trợ lọc giúp bạn bằng bảng cách sử dụng Pivot theo đính kèm. Còn muốn theo biểu mẫu của bạn thì bạn tự làm nha.Giúp mình với mình đang cần gấp lắm vì 12.08 là họp hđsp rồi phải có tkb cho từng giáo viên, từng lớp mình hok rành excel, công thức viết cái gì Vba gì đó nên các bạn làm dùm mình nhé , thank nhiều nhiều , xem file đính kèm nhé các bạn
, help meBạn đã xem file trong #13 của tôi chưa?Giúp mình với các bạn ơi, tkb mình xếp bằng tay, giờ mình muốn trích lọc tkb cho từng giáo viên , cho từng lớp chuẩn bị họp hđsp ngày 12.08 này, mình ko biết nhiều excel lắm các bạn giúp mình với, lưu ý trường mình là tư thục nên hay thay đổi tiết dạy và giáo viên lắm các bạn xem file đính kèm nhé!! ;(
Giúp mình với các bạn ơi, tkb mình xếp bằng tay, giờ mình muốn trích lọc tkb cho từng giáo viên , cho từng lớp chuẩn bị họp hđsp ngày 12.08 này, mình ko biết nhiều excel lắm các bạn giúp mình với, lưu ý trường mình là tư thục nên hay thay đổi tiết dạy và giáo viên lắm các bạn xem file đính kèm nhé!! ;(
