Xin giúp lọc thời khóa biểu cho từng giáo viên (1 người xem)

[pns56]

Kính chào các anh chị GPE, tôi muốn viết chương trình Xếp thời khóa biểu bằng tay (chỉ trong 1 tuần) cho trường tôi (TCCN), hiện đang vấp phải khó khăn là việc chọn lọc để tạo ra Thời khóa biểu cho từng giáo viên. Xin cám ơn các tác giả của các chương trình Xếp TKB đã giới thiệu trên GPE giúp mình có ý tưởng này. Vậy rất mong các anh chị giúp mình giải quyết vấn đề này. Mong hồi âm. Cám ơn các bạn nhiều. Chúc gia đình GPE ngày càng lớn mạnh.

 

[SA_DQ]

Bạn xem cái ni đáp ứng iêu cầu của bạn chưa

Mình xài macro sự kiện tại 1 ô
Kết quả của ba giáo viên luôn, theo thứ tự tăng dần .

 

[huuthang_bd]

Kính chào các anh chị GPE, tôi muốn viết chương trình Xếp thời khóa biểu bằng tay (chỉ trong 1 tuần) cho trường tôi (TCCN), hiện đang vấp phải khó khăn là việc chọn lọc để tạo ra Thời khóa biểu cho từng giáo viên. Xin cám ơn các tác giả của các chương trình Xếp TKB đã giới thiệu trên GPE giúp mình có ý tưởng này. Vậy rất mong các anh chị giúp mình giải quyết vấn đề này. Mong hồi âm. Cám ơn các bạn nhiều. Chúc gia đình GPE ngày càng lớn mạnh.

Bạn xem trong file. Nếu muốn thêm bảng TKB thì cứ copy xuống dưới và sửa tên GV lại.

 

[pns56]

Xin cám ơn hai bạn đã giúp mình qua test thấy rất đúng ý của mình. Rất cám ơn. Chúc sức khỏe hai bạn và các bạn trong gia đình GPE. Thân,

 

[pns56]

xin nhờ lập TKB GV lần 2

Kính chào các anh chị GPE, lại một lần nữa làm phiền các anh chị, qua 2 ngày “ngâm cứu” về việc thực hiện lọc tạo ra Thời khóa biểu cho từng giáo viên. Với 2 bài mẫu anh chị trả lời, mình áp dụng vào chương trình đang viết không có kết quả. Vậy nay mình gửi file đang làm nhờ anh chị giúp tiếp cho trọn vẹn nhé. Mình lớn tuổi và trình độ tin học có hạn chế, cố nghĩ mãi mà vẫn không ra đáp án. Mong anh chị giúp đỡ và giải quyết tạo TKB cho cá nhân GV. Vùng tham chiếu vẫn ở sheet ‘XEP TKB’, từ cột AA đến CC; và sheet ‘TKBGV’, ở đây mình làm khoảng 26 lớp. Cũng nhờ các bạn giải thích thêm cách thay đổi công thức hay lệnh VBA khi cần tăng thêm số lớp sau này. Mong hồi âm. Thân ái!

 

[SA_DQ]

TRong khi chưa có, thì bạn xài đỡ cái rùa bò này đã nha

[thongbao]
Bài mẫu anh chị trả lời, mình áp dụng vào chương trình đang viết chưa có kết quả.
Vậy nay mình gửi file đang làm nhờ anh chị giúp tiếp cho trọn vẹn nhé.

(2) Mình lớn tuổi và trình độ tin học có hạn chế, cố nghĩ mãi mà vẫn không ra đáp án. Mong anh chị giúp đỡ và giải quyết tạo TKB cho cá nhân GV. Vùng tham chiếu vẫn ở sheet ‘XEP TKB’, từ cột AA đến CC; và sheet ‘TKBGV’, ở đây mình làm khoảng 26 lớp.

(1) Cũng nhờ các bạn giải thích thêm cách thay đổi công thức hay lệnh VBA khi cần tăng thêm số lớp sau này![/thongbao]

(1) Bạn đối chiếu 2 macro trong 2 bài xem sao & từ đó rút ra kết luận.
Từ kết luận, bạn đi tiếp cho 2 form của 2 giáo viên kế tiếp.

(2) Một điều chắc chắn rằng bạn nhỏ tuổi hơn mình!

 

[pns56]

Kinh gửi thầy SA_ DQ và các anh chị em GPE!
Cám ơn Thầy, tôi đã tìm ra đáp án và kết quả thật là mỹ mãn. Chỉ việc điền bổ sung 2 dòng vào khoảng trống thầy chừa sẵn. Qua đó tôi cũng học được lắm điều. Sẵn đây tôi cũng nhờ thầy và các anh chị em GPE giúp viết code cho việc lọc tên GV từ sheet1 sang sheet2 và loại bỏ những tên trùng và những dòng trống như file gửi kèm. Vì thật ra tôi không biết gì về lập trình cả. Mong thầy và các anh chị GPE giúp đỡ, cám ơn , chúc sức khỏe GPE.

 

[SA_DQ]

Ta mở bộ thu macro lên & hành động những gì bạn muốn; Kết quả có ở bên dưới:

Option Explicit
Sub Macro2()
' . . . .'
    Sheets("Sheet1").Select
    Range("B5:B34").Select
    Range("B5:B34").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "AA5"), Unique:=True
    Range("AA5:AA12").Select
    Selection.Sort Key1:=Range("AA6"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D5").Select
    ActiveSheet.Paste
End Sub

Sau đó mình chỉnh sửa macro này để thân thiện hơn, như sau

Sub GPE()
 Dim Rws As Long
 
 Sheets("Sheet1").Select
 Rws = [B65500].End(xlUp).Row
1 'Loc Duy Nhát:'
 Range("B5:B" & Rws).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
    "AA5"), Unique:=True
2 'Xép:'
 Range("AA5:AA" & Rws).Sort Key1:=Range("AA6"), Order1:=xlDescending, Header:=xlGuess _
    , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
3 'Chép:'
 Range("AA5:AA" & Rws).Copy Destination:=Sheets("Sheet2").Range("D5")
    
End Sub

Chúc thầy mạnh khỏe!

 

[pns56]

xin hỏi tiếp êề xếp TKB

Cám ơn các anh chị GPE đã giúp đỡ trong thời gian qua, tôi xin nhờ các anh chị giúp đỡ thêm về việc muốn đổi màu ô tên GV khi trùng tiết và có bảng thông báo xuất hiện, cũng như trường hợp phân 5 tiết trong 1 buổi cùng 1 lớp thì cũ thế. Xin xem file ví dụ gửi kèm. Mong các anh chị trả lời. Cám ơn.

 

[Ba Tê]

Cám ơn các anh chị GPE đã giúp đỡ trong thời gian qua, tôi xin nhờ các anh chị giúp đỡ thêm về việc muốn đổi màu ô tên GV khi trùng tiết và có bảng thông báo xuất hiện, cũng như trường hợp phân 5 tiết trong 1 buổi cùng 1 lớp thì cũ thế. Xin xem file ví dụ gửi kèm. Mong các anh chị trả lời. Cám ơn.

Nếu đã quy định đổi màu thì cần chi hiện thông báo, cứ thấy có màu thì biết lỗi gì rồi.
Dùng Conditional Formatting thử xem, nếu thấy nền vàng chữ đỏ là trùng dọc, nêú nền đỏ chữ vàng là trùng ngang, nhìn vào đó mà chỉnh sửa nếu thấy cần sửa.

 

[pns56]

Xin cám ơn thầy Ba Tê ý kiến thầy rất hay, không nên làm cho phức tạp vấn đề phải không thầy? Công thức thầy lập cho CF rất hay, tôi đã test lại thấy như ý. Xin cám ơn và chúc sức khỏe thầy và tất cả ACE GPE. Thân!

 

[pns56]

Lại phải làm phiền thầy Ba Tê và các anh chị em GPE một lần nữa, vì tôi có sử dụng list ở ô môn học và công thức vlookup ở ô tên giáo viên. Có lẽ vì thế nên khi sử dụng CF thì báo lỗi: "You’ve entered too few arguments for this function.
To get help with entering arguments for the function, click OK to close this message. Then, on the fomula bar, click the equal sign button (located to the left of the equal sign in your fomula)." Mình nghĩ thế không biết có đúng không các bạn? Nếu muốn sử dụng đặt điều kiện CF như thầy Ba Tê hướng dẫn thì phải làm sao? Hay phải viết code, cái này mình mù tịt, nhờ các bạn giúp cho. Mong hồi âm, chào thân ái.

 

[Ba Tê]

Lại phải làm phiền thầy Ba Tê và các anh chị em GPE một lần nữa, vì tôi có sử dụng list ở ô môn học và công thức vlookup ở ô tên giáo viên. Có lẽ vì thế nên khi sử dụng CF thì báo lỗi: "You’ve entered too few arguments for this function.
To get help with entering arguments for the function, click OK to close this message. Then, on the fomula bar, click the equal sign button (located to the left of the equal sign in your fomula)." Mình nghĩ thế không biết có đúng không các bạn? Nếu muốn sử dụng đặt điều kiện CF như thầy Ba Tê hướng dẫn thì phải làm sao? Hay phải viết code, cái này mình mù tịt, nhờ các bạn giúp cho. Mong hồi âm, chào thân ái.

Tôi không nghĩ là CF liên quan đến List và Vlookup của bạn.
Có lẽ do công thức của bạn bị lỗi thôi.
Saoi không đưa file có công thức bị báo lỗi và có CF lên để mọi người xem?

 

[pns56]

Kính gửi thầy Ba Tê và ACE GPE!
Cám ơn thầy, tôi sẽ kiểm tra lại xem có lỗi gì khi nhập công thức CF không? Có gì tôi sẽ gửi file lên nhờ giúp dùm. Nhưng ý nghĩa của bảng thông báo trên là gì vậy thầy? Tôi không hiểu được, nhờ thầy và ACE giải thích. Cám ơn.

 

[pns56]

tÔI GIỬ THÊM FILE ĐANG LÀM BỊ LỖI, nhờ thầy và anh em xem dùm, cám ơn!

 

[Ba Tê]

tÔI GIỬ THÊM FILE ĐANG LÀM BỊ LỖI, nhờ thầy và anh em xem dùm, cám ơn!

Bạn quá "siêu" rồi, một đống Name, một đống sheet ẩn như: LichGday,DSGV,HKDT,DHSP...........
Trong khi Conditional Formatting của tôi làm ở bài trên có 3 điều kiện thì không có đủ làm sao biết bạn lỗi chỗ nào?
Tôi không "ở không" để mở hết các sheet ẩn của bạn và bạn cũng không nói rõ lỗi chỗ nào.
Tạm biệt.

 

[pns56]

Cám ơn thầy đã xem và trả lời, mấy ngày nay bận quá nên không kịp trả lời, thầy thông cảm. Đúng như thầy nói là không ảnh hưởng đến CF, tôi đã tìm ra lỗi khi đặt điều kiện cho CF nên mới có bảng thông báo trên. Một lần nữa xin cám ơn và chúc sức khỏe thầy và các bạn GPE. Thân ái!.

 

[thanhtam451]

Cảm ơn bạn rất nhiều nhưng mình muốn thêm một số thông tin nữa vào file của bạn nhưng không biết làm thế nào bạn có thể hướng dẫn làm giúp mình được không vậy?

1. Kiểm tra dữ liệu của các lớp nếu cùng một tiết trong một ngày thì không thể nhập cùng giáo viên dạy cho 2 lớp (có thông báo lỗi)
2. Mình thêm vào phòng học vì phòng học ở trường mình nó lưu động khác nhau, không phải lớp đó chỉ học ở phòng đó. Tùy theo môn mà có những phòng khác nhau và có thể thay đổi nên mình cần thêm phòng học nữa.
3. Sau khi lọc Giáo viên dạy mình cũng muốn có thêm phòng học bên sheet TKBGV như mẫu mình đính kèm.
4. Thay vì mình ghi lưu thì có thể thêm giờ dạy vào cho từng tiết giùm mình được không?
5. Do Khoa mình cũng có nhiều lớp khác nhau (khóa cũ - khóa mới) nên bạn hỗ trợ mình thêm khoảng 10 lớp nhé mà không bị ảnh hưởng gì đến công thức nhé.


Cảm ơn bạn rất nhiều vì sự giúp đỡ tận tình của bạn. Trân trọng,

Nguyễn Văn Luyến

 

[thanhtam451]

Dạ sử dụng file này cũng Ok lắm nhưng do đặc thù Trường em mỗi lớp trong tuần có thể học nhiều phòng khác nhau nên em có chỉnh sửa đôi chút nhưng không thể hiển thị phòng học được.

Anh chị chỉnh sửa công thức giúp em với. Với lại khoa của em cũng tương đối nhiều lớp khoảng 15 lớp thì em nên thêm vô như thế nào chỉnh sửa công thức luôn giúp em với nhé.

Cảm ơn anh chị nhiều!