Nhờ các cao thủ giúp em cái lọc TKB cho giáo viên (1 người xem)

[tho_ngoc_7]

Do trường em đông (41 lớp, 67 GV) Nên ngồi làm TKB cho từng GV lâu quá mà căng hết cả mắt toét mắt luôn
Em gủi file lên các tiền bối giúp em lọc TKB từng GV với ạ, em chỉ cần lọc tên lớp thôi ạ
Ví dụ GV Phượng dạy lớp 1A tiết nào. Không cần tên môn học đâu ạ.
Em có tải mấy file các bác đã từng úp lên nhưng mà ít lớp ít GV nên em chả biết làm thế nào. Em xin cảm ơn ạ

 

[giaiphap]

Bạn vào trang http://thoikhoabieu.vn/ tải về phần mềm xếp thời khóa biểu cực kỳ tốt luôn, xếp nhanh, đúng theo nhu cầu của cá nhân luôn, xếp gọn, ít buổi cho giáo viên luôn... và đặc biệt là nó miễn phí trọn đời luôn.
Khi sử dụng phần mềm này thực hiện theo yêu cầu của bạn chỉ trong một cú nháy chuột.

 

[quocgiacan]

Bạn vào trang http://thoikhoabieu.vn/ tải về phần mềm xếp thời khóa biểu cực kỳ tốt luôn, xếp nhanh, đúng theo nhu cầu của cá nhân luôn, xếp gọn, ít buổi cho giáo viên luôn... và đặc biệt là nó miễn phí trọn đời luôn.
Khi sử dụng phần mềm này thực hiện theo yêu cầu của bạn chỉ trong một cú nháy chuột.

Chào anh giaiphap,

Bài anh viết sử dụng nhiều chữ : luôn..luôn...làm gợi nhớ có một bài nào đó trước đây cũng của anh, có ghi "luôn luôn thấu hiểu, lâu lâu hổng hiểu"

Rất dí dõm, làm người đọc cảm thấy nhẹ nhàng và vui thích.

Cảm ơn anh.

 

[HieuCD]

trong khi chờ tải phần mềm xếp TKB về và khai báo đưa vào sử dụng, tạm thời chửa cháy cho bạn, nhưng cũng không ổn vì tên giáo viên bạn nhập lung tung, một giáo viên mà bạn nhập khác nhau nên hiểu là 2 giáo viên, nếu muốn ổn thì bạn copy và dán lại tên giáo viên
bấm ngôi sao để chạy code

 

[befaint]

Do trường em đông (41 lớp, 67 GV) Nên ngồi làm TKB cho từng GV lâu quá mà căng hết cả mắt toét mắt luôn
Em gủi file lên các tiền bối giúp em lọc TKB từng GV với ạ, em chỉ cần lọc tên lớp thôi ạ
Ví dụ GV Phượng dạy lớp 1A tiết nào. Không cần tên môn học đâu ạ.
Em có tải mấy file các bác đã từng úp lên nhưng mà ít lớp ít GV nên em chả biết làm thế nào. Em xin cảm ơn ạ

Chào tho_ngoc_7,

Bạn xem file đính kèm nhé.
Chọn GV ở cell [N2] của sheet "TKBGV" để lọc.
Ngoài ra, có một số ý tôi viết trong File, bạn xem nhé.

 

[befaint]

@HieuCD,

Darr = .Range("A4:T"

Bác lấy tới cột T là "đứt" khối K4 và K5 rồi...

 

[HieuCD]

@HieuCD,

Bác lấy tới cột T là "đứt" khối K4 và K5 rồi...

đúng là mắt mờ thiệt rồi, nhìn bảng như đám rừng nên hoa mắt tưởng các khối như nhau, cám ơn bạn
sửa code lại một chút

Sub TKB_GV()
Dim Arr, Darr, dic As Object, dicTmp As Object, GV As String
Dim i As Integer, j As Integer, k As Integer, n As Integer, ir As Integer
Set dic = CreateObject("Scripting.Dictionary")
Set dicTmp = CreateObject("Scripting.Dictionary")
ReDim Arr(1 To 1500, 1 To 12)
Application.ScreenUpdating = False
For k = 1 To 5
    With Sheets("K" & k)
        Darr = .Range("A4:V" & .Range("B4").End(xlDown).Row)
        For i = 1 To UBound(Darr)
            If Darr(i, 1) <> "" Then
                Darr(i, 1) = Left(Darr(i, 1), 2)
            Else
                Darr(i, 1) = Darr(i - 1, 1)
            End If
            For j = 4 To 22 Step 2
                If Darr(i, j) <> "" Then
                GV = Trim(Darr(i, j))
                If Not dicTmp.Exists(GV) Then
                    dicTmp.Add GV, ""
                    For n = 1 To 5
                        ir = ir + 1
                        dic.Add GV & "!@#" & n, ir
                        Arr(ir, 1) = GV: Arr(ir, 2) = n
                    Next n
                End If
                Arr(dic.Item(GV & "!@#" & Darr(i, 2)), j / 2 + 1) = Darr(i, 1)
                End If
            Next j
        Next i
    End With
Next k
Set dic = Nothing: Set dicTmp = Nothing
Sheets("sheet1").Range("A5:L1500").ClearContents
Sheets("sheet1").Range("A5").Resize(ir, 12) = Arr
Application.ScreenUpdating = True
End Sub

 

[tho_ngoc_7]

Bạn vào trang http://thoikhoabieu.vn/ tải về phần mềm xếp thời khóa biểu cực kỳ tốt luôn, xếp nhanh, đúng theo nhu cầu của cá nhân luôn, xếp gọn, ít buổi cho giáo viên luôn... và đặc biệt là nó miễn phí trọn đời luôn.
Khi sử dụng phần mềm này thực hiện theo yêu cầu của bạn chỉ trong một cú nháy chuột.

Dạ em cảm ơn anh, nhưng đây là trường em xếp tkb xong rồi em chỉ muốn lọc thui ạ

 

[tho_ngoc_7]

không phải 1 giáo viên mà em gõ 2 kiểu đâu ạ, trường em nhìu giáo viên trùng tên nhau ạ
em cảm ơn bác nhóe

 

[tho_ngoc_7]

Chào tho_ngoc_7,

Bạn xem file đính kèm nhé.
Chọn GV ở cell [N2] của sheet "TKBGV" để lọc.
Ngoài ra, có một số ý tôi viết trong File, bạn xem nhé.

Hi em cảm ơn bác nhìu nhìu ạ

 

[giaiphap]

Dạ em cảm ơn anh, nhưng đây là trường em xếp tkb xong rồi em chỉ muốn lọc thui ạ

Nhưng bạn phải có chiến lược xa hơn chứ, VD nếu mai mốt có ai chuyển đi hay chuyển đến hoặc có GV nào nhờ tránh ngày nào để để đi khám chửa bệnh chẳng hạn, sửa lại TKB thì mất thời gian, trong khi dùng PM chỉ mất chưa đầy 30 phút sẽ có kết quả ngay.