Nhờ hướng dẫn cách lọc thời khóa biểu từng Giáo viên (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

maịkhoa

Thành viên mới
Tham gia
3/12/08
Bài viết
15
Được thích
1
Chào các anh chị, em có một File Thời khóa biểu toàn trường, 2 buổi nằm ở 2 Sheet khác nhau, muốn nhờ các anh chị viết giúp hàm để lọc thời khóa biểu từng cá nhân giáo viên (giống như mẫu em để ở sheet Buoisang, cám ơn anh chị rất nhiều.
 

File đính kèm

Có lẽ phải dùng code + Validation, dùng hàm chắc là không được (nếu được thì lằng nhằng)
 
Vậy các anh chị có thể hướng dẫn giúp em được không ạ!, dùng code+ Validation như thế nào? Rất mong nhận được sự giúp đỡ, cám ơn rất nhiều
 
Chào các anh chị, em có một File Thời khóa biểu toàn trường, 2 buổi nằm ở 2 Sheet khác nhau, muốn nhờ các anh chị viết giúp hàm để lọc thời khóa biểu từng cá nhân giáo viên (giống như mẫu em để ở sheet Buoisang, cám ơn anh chị rất nhiều.
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.
Tôi gửi bạn file tôi làm bằng công thức. Nhưng để các công thức trong file cho kết quả đúng bạn cần sửa lại dữ liệu cho chuẩn (như tôi đã nói ở trên).
 

File đính kèm

& đây là file làm bằng VBA; Đúng là cần chỉnh CSDL lại đi bạn!

(|) Vấn đề cần chỉnh sửa như sau:
Cấu trúc 2 trang tính sáng & chiều nên như nhau; Hiện chúng lớn bé hơn nhau 1 dòng.
Bạn hãy bỏ hẵn cách viết trộn 2 ô như các ô [O16], [Q16], [K21], [M21],. . . hay từ bỏ kiểu trộn các ô của dòng 27 từ cột c...L, . . .
Mình mới chỉnh sửa 2ô để thử cho giáo viên tên Hiền mà thôi

Còn chuyện chính tả là chuyện của bạn hoàn toàn, vì đúng trong ngành.

(|) Vận hành & kiểm tra thử & tiến hành sửa chữa cần thiết
Tại [C3] bạn chọn thử lần lượt từng tên giáo viên đang có trong hộp Validation này & kiểm chứng kết quả;

( Danh sách giáo viên chưa đủ, bạn cần thêm cho đầy đủ)

Thân ái & chờ tin từ bạn
 

File đính kèm

Cám ơn bạn SA_DQ nhiều lắm, đúng là mình không kiểm tra kỹ dữ liệu bảng tính, hiện tại mình đã bỏ các ô được trộn, vấn đề trùng tiết sẽ điều chỉnh sau, điều mình cần là khi lọc TKB thì sẽ có kèm theo Môn - lớp (VD: Sử - 10A), danh sách GV chưa đủ thì mình bổ sung sau, mong bạn giúp đở, cảm ơn. Đây là file mình sửa lại các ô được trộn, các bạn giúp mình nhé.
 

File đính kèm

Bạn copy toàn bộ macro này & chép đè lên cái cũ nha

PHP:
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

Những mong là khỏi đưa file lên!
 
cám ơn bạn, mình đã thực hiện được rồi, cảm ơn nhiều lắm. Chúc bạn nhiều sức khỏe và thành công trong cuộc sống
 
Sao tui bấm alt-f11 chạy code không được....vì không thấy tên sub hiện ra.
Bạn chỉ dùm chạy sub bằng cách nào cho private sub nhé....thanks
 
Sao tui bấm alt-f11 chạy code không được....vì không thấy tên sub hiện ra.
Bạn chỉ dùm chạy sub bằng cách nào cho private sub nhé....thanks
Code của SA_DQ chỉ hoạt động khi có sự thay đổi ô C3 (Chọn tên GV)
 
Trích lọc thời khóa biểu cho từng giáo viên, từng lớp?

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-+*/!$@!! mình xếp tkb bằng tay huhu
 

File đính kèm

Lần chỉnh sửa cuối:
Lần chỉnh sửa cuối:
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-+*/!$@!! mình xếp tkb bằng tay huhu
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.
 

File đính kèm

bạn ơi do tính chất trường mình là tư thục nên thay đổi tkb thường xuyên, giáo viên cũng vậy ko ổn định , bạn còn cách nào hướng dẫn mình hok za? cảm ơn bạn nhiều nhiều%#^#$
 
lọc thời khóa biểu cho từng giáo viên

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é!! ;(-+*/, help me
 

File đính kèm

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é!! ;(-+*/, help me
Bạn đã xem file trong #13 của tôi chưa?
Ở đây, chí ít là bạn cũng đã phải bắt tay vào công việc này rồi, chứ không phải đưa file lên và mọi người làm giúp từ A-Z.
Tôi có ý giúp bạn, nhưng xem ra bạn muốn có người làm hộ chứ không phải giúp. Vậy thôi, chào bạn.
 
mình đã xem file của bạn rồi và mất nửa buổi để học pivot table, thử đi thử lại ko biết làm sao khi thay đổi tiết dạy của giáo viên thì tự động cập nhật
 
mình có thấy file #13 gì đâu ở đâu vậy bạn
 
Nếu bạn xếp bằng tay và không muốn sai sót cũng như nhầm lẫn thì thử file đính kèm (thay đổi tên lại cho phù hợp với trường bạn), bạn có thể xem hướng dẫn tại đây http://www.giaiphapexcel.com/forum/showthread.php?66720-Hướng-dẫn-xếp-TKB-bằng-Excel

Bạn có thể thay đổi thói quen xem TKB của giáo viên và học sinh, thay vì in cho từng lớp, từng giáo viên, hãy in TKB của tất cả giáo viên vào 1 bản, TKB học sinh của tất cả các lớp vào một bản như hình dưới để tiện quan sát và đỡ tốn kém

Thời khóa biểu cho toàn bộ giáo viên
9467570951_0d55bbf8b9_o.jpg


Thời khóa biểu học sinh cho toàn bộ các lớp
9470351076_524af6d5a5_z.jpg
 

File đính kèm

Lần chỉnh sửa cuối:
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é!! ;(-+*/, help me

Tôi làm cho bạn đây. Bạn xem trong file.

Đừng có post 1 câu hỏi ở nhiều chỗ, không có ích gì mà lại bị vi phạm nội qui.
http://www.giaiphapexcel.com/forum/...Trích-xuất-Thời-khóa-biểu&p=523556#post523556
 

File đính kèm

Trường có học sáng chiều tối nữa nên muốn gộp chung lại cho gọn nhưng mình sẽ xem của bạn thanks
 
lọc thời khóa biểu cho từng giáo viên

mình có cái này các bạn xem thử sao mình làm tùm lum hết rồi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$91" Or Target.Address = "$K$109" Then
Dim Vung, F, G, H, Lop, VungLop, Mg(1 To 5, 1 To 12), iCot
Set VungLop = [D3:AC3]
Set Vung = [D9:AC9]: H = 1
For G = 3 To Vung.Columns.Count Step 2
For F = 1 To Vung.Rows.Count
If F > 1 And I Mod 6 = 1 Then H = H + 2
If Vung(F, G) = [K91] Then
Lop = VungLop(G - 2)
Mg(Vung(F, 1), H) = Vung(F, G - 1): Mg(Vung(F, 1), K + 1) = Lop
End If
Next F
K = 1
Next G
[E95].Resize(5, 12) = Mg
On Error Resume Next
iCot = Application.WorksheetFunction.Match([K109], VungLop) + 1
For F = 1 To Vung.Rows.Count
If F > 1 And I Mod 6 = 1 Then H = H + 2
Mg(Vung(F, 1), H) = Vung(F, iCot): Mg(Vung(F, 1), K + 1) = Vung(I, iCot + 1)
Next F
[E114].Resize(5, 12) = Mg
End If
End Sub




mình vcó đoạn này cho tkb của mình nhưng hok chạy gì hết làm sao đây các bạn xem giúp mình với + file đính kèm
 

File đính kèm

sorry nhe tại mình gấp quá mà hok biết sao hết
 
Chu choa ơi mình thương bạn quá đi mất, cho mình hỏi nếu mình thay đổi tên giáo viên hoặc thứ tự tiết dạy của giáo viên ở sheet TKB thì có tự động cập nhật hok bạn?@$@!^%
 
hình như lộn rồi bạn ơi trường mình có tiết 0 nữa, bạn xem lại dùm mình đi, T.Hùng đó
 
hình như lộn rồi bạn ơi trường mình có tiết 0 nữa, bạn xem lại dùm mình đi, T.Hùng đó
Bạn nên trả lời bằng cách trích dẫn bài của thành viên mà bạn muốn trao đổi
Bài trả lời chưa đúng chỗ nào cũng cần chỉ chính xác chỗ đó, có như vậy các thành viên khác mới giúp bạn được
Ở phía bên trái cuối khung có chữ "Cám ơn" đấy
Thân
 
bạn ơi có giáo viên đúng có giáo viên bị sai rùi, bạn chỉnh giúp mình với huuthang_bd hình như bị nhầm cái gì đó
 
Chu choa ơi mình thương bạn quá đi mất, cho mình hỏi nếu mình thay đổi tên giáo viên hoặc thứ tự tiết dạy của giáo viên ở sheet TKB thì có tự động cập nhật hok bạn?@$@!^%
Bạn cứ thay đổi vô tư miễn sao giữ nguyên cấu trúc là được.
hình như lộn rồi bạn ơi trường mình có tiết 0 nữa, bạn xem lại dùm mình đi, T.Hùng đó
Nhầm là nhầm chỗ nào bạn nói cụ thể đi.
 
Khi mình gõ tên thầy hùng vào ra tkb của thầy hùng buổi tối đâu có dạy td,

Sai là do cấu trúc của bạn không đồng nhất. Ở cột Thứ trong sheet TKB (cột A), Thứ 5 phải bắt đầu từ dòng 48, dữ liệu đang bắt đầu thứ 5 từ dòng 49 nên kết quả không đúng. Bạn sửa lại như các thứ khác là được.
 
Sai là do cấu trúc của bạn không đồng nhất. Ở cột Thứ trong sheet TKB (cột A), Thứ 5 phải bắt đầu từ dòng 48, dữ liệu đang bắt đầu thứ 5 từ dòng 49 nên kết quả không đúng. Bạn sửa lại như các thứ khác là được.
bạn cho mình hỏi cái này nữa nhe, mình muốn copy thêm 1 cái tkb của gv cho tiết kiệm giấy đó mà, cmình copy ra nhưng giá trị ko chạy theo khi mình gõ tên giáo viên vào. Với lại mình muốn thống kê tiết dạy của giáo viên đó 1 tuần để cuối tháng tiện việc tính lương, bạn hướng dẫn giúp với, thanks
 
Mình có file như thế này các bạn hướng dẫn mình thống kê tiết dạy của từng giáo viên 1 tuần là có bao nhiêu tiết nhé Thanks!
 

File đính kèm

bạn cho mình hỏi cái này nữa nhe, mình muốn copy thêm 1 cái tkb của gv cho tiết kiệm giấy đó mà, cmình copy ra nhưng giá trị ko chạy theo khi mình gõ tên giáo viên vào. Với lại mình muốn thống kê tiết dạy của giáo viên đó 1 tuần để cuối tháng tiện việc tính lương, bạn hướng dẫn giúp với, thanks

Lỡ rồi thì làm tới luôn.
 

File đính kèm

bạn cho mình hỏi cái này nữa nhe, mình muốn copy thêm 1 cái tkb của gv cho tiết kiệm giấy đó mà, cmình copy ra nhưng giá trị ko chạy theo khi mình gõ tên giáo viên vào. Với lại mình muốn thống kê tiết dạy của giáo viên đó 1 tuần để cuối tháng tiện việc tính lương, bạn hướng dẫn giúp với, thanks
Đã lỡ viết code lọc TKB cho GV và Lớp.
Thay đổi số trong ô N1 sẽ lọc ra bảng TKB cho GV hoặc lớp, mỗi lần 4 bảng trong 1 trang.
- Không biết vô tình hay cố ý mà có GV dạy 1 tiết 2 lớp? Nếu là ghép chung để học TD hoặc GDQP thì trong TKB của tiết đó sẽ có 2 lớp trong 1 ô .
 

File đính kèm

Lần chỉnh sửa cuối:
Đã lỡ viết code lọc TKB cho GV và Lớp.
Thay đổi số trong ô N1 sẽ lọc ra bảng TKB cho GV hoặc lớp, mỗi lần 4 bảng trong 1 trang.
- Không biết vô tình hay cố ý mà có GV dạy 1 tiết 2 lớp? Nếu là ghép chung để học TD hoặc GDQP thì trong TKB của tiết đó sẽ có 2 lớp trong 1 ô .
Bác Ba tê, Huuthang_bd;ttmuahmuah;concogia;Sa;phantuhuong,... mần hay rứa, sao 2 Bác không mần luôn cho TKB xếp tự động luôn; tui thấy anh em cứ loay hoay việc lọc này nhiều quá, tập trung vào xếp tự động khi xếp được TKB rồi thì ôtô cho mỗi GV một tờ là ổn rồi, vì cầm TKB toàn trường là có hết thông tin trong đó, nhìn vào đó là biết sáng mai có em iu cùng dạy với mình không ..hihi...; mà sao các Bác cứ thích lọc riêng thế...Các bác xem trên GPE đã có ai làm việc này chưa, khó vì sao,...
----Đôi lời chia sẽ với TKB & GPE: Khẩu hiệu"Giải quyết tận gốc"
 
Chỉnh sửa lần cuối bởi điều hành viên:
Bác Ba tê, Huuthang_bd;ttmuahmuah;concogia;Sa;phantuhuong,... mần hay rứa, sao 2 Bác không mần luôn cho TKB xếp tự động luôn; tui thấy anh em cứ loay hoay việc lọc này nhiều quá, tập trung vào xếp tự động khi xếp được TKB rồi thì ôtô cho mỗi GV một tờ là ổn rồi, vì cầm TKB toàn trường là có hết thông tin trong đó, nhìn vào đó là biết sáng mai có em iu cùng dạy với mình không ..hihi...; mà sao các Bác cứ thích lọc riêng thế...Các bác xem trên GPE đã có ai làm việc này chưa, khó vì sao,...
----Đôi lời chia sẽ với TKB & GPE: Khẩu hiệu"Giải quyết tận gốc"

Bạn mới vào GPE?
GPE chỉ là nơi học hỏi, trao đổi về "Giải Pháp Excel", không là chỗ "làm phần mềm" hay "tự động" cho ai cả, vì chuyện đó đã có các công ty phần mềm làm rồi.
Người ta hỏi "giải pháp excel nào" để lọc ra như ý họ muốn, các thành viên sẽ có mối người 1 giải pháp khác nhau để tác giả tự chọn lựa cách mà họ hiểu.
mà sao các Bác cứ thích lọc riêng thế...Các bác xem trên GPE đã có ai làm việc này chưa, khó vì sao,...
Nếu bạn thích "lọc chung" thì bạn cứ làm cho mọi người học hỏi thêm.
 
Lần chỉnh sửa cuối:
Bác Ba tê, Huuthang_bd;ttmuahmuah;concogia;Sa;phantuhuong,... mần hay rứa, sao 2 Bác không mần luôn cho TKB xếp tự động luôn; tui thấy anh em cứ loay hoay việc lọc này nhiều quá, tập trung vào xếp tự động khi xếp được TKB rồi thì ôtô cho mỗi GV một tờ là ổn rồi, vì cầm TKB toàn trường là có hết thông tin trong đó, nhìn vào đó là biết sáng mai có em iu cùng dạy với mình không ..hihi...; mà sao các Bác cứ thích lọc riêng thế...Các bác xem trên GPE đã có ai làm việc này chưa, khó vì sao,...
----Đôi lời chia sẽ với TKB & GPE: Khẩu hiệu"Giải quyết tận gốc"
bạn thích auto hả, đây mời bạn http://www.giaiphapexcel.com/forum/showthread.php?66720-Hướng-dẫn-xếp-TKB-bằng-Excel
giải quyết tận gốc nhé
 
................................

Tôi chưa từng thấy một phần mêm nào xếp TKB cho GV mà hợp lý với mọi yêu cầu của mọi cá nhân cả.
Nếu đã là "tự động ban đầu" rồi điều chỉnh lai theo những cái phần mềm báo rằng "chưa xếp được" thì vẫn không phải là "tự động". Bản thân người xếp TKB vần "lòi con mắt" mà chỉnh lại thủ công cho từng trường hợp thôi.
Nếu các bạn có phần mềm miễn phí nào chuẩn nhất, đảm bảo tất cả cáC YÊU CẦU CỦA TỪNG GV thì có thể "quảng cáo" đúng chuyên muc trong GPE thử xem.

Híc!
 
Lần chỉnh sửa cuối:
Anh (Chị) làm ơn hướng dẫn Em cách lọc thời khóa biểu cho từng giáo viên. Em đang rất cần.
 
Rỗi việc, thử tách từ thời khóa biểu chung ra:

(+) Thời khóa biểu theo bộ môn (Toán, Lí hay Văn,. . . )

(+) Thời khóa biểu các lớp theo từng khối, như khối 12 hay khối 9
 

File đính kèm

các bác cho em hỏi, sao TKB của em nó cứ bị lỗi tiết thứ 5 chỗ tkb của lớp ah, với tiết 1 ngày thứ 2 nó ko hiện là chào cờ, em xin cám ơn và biết ơn các bác ah, dưới đây là file đính kèm ah
 

File đính kèm

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.
Tôi gửi bạn file tôi làm bằng công thức. Nhưng để các công thức trong file cho kết quả đúng bạn cần sửa lại dữ liệu cho chuẩn (như tôi đã nói ở trên).
Bạn giup minh, chi minh xem các hàm tự định nghĩa của bạn, như VTsang, Tietsang...Cảm ơin bạn
 
& đây là file làm bằng VBA; Đúng là cần chỉnh CSDL lại đi bạn!

(|) Vấn đề cần chỉnh sửa như sau:

Cấu trúc 2 trang tính sáng & chiều nên như nhau; Hiện chúng lớn bé hơn nhau 1 dòng.
Bạn hãy bỏ hẵn cách viết trộn 2 ô như các ô [O16], [Q16], [K21], [M21],. . . hay từ bỏ kiểu trộn các ô của dòng 27 từ cột c...L, . . .
Mình mới chỉnh sửa 2ô để thử cho giáo viên tên Hiền mà thôi

Còn chuyện chính tả là chuyện của bạn hoàn toàn, vì đúng trong ngành.

(|) Vận hành & kiểm tra thử & tiến hành sửa chữa cần thiết
Tại [C3] bạn chọn thử lần lượt từng tên giáo viên đang có trong hộp Validation này & kiểm chứng kết quả;

( Danh sách giáo viên chưa đủ, bạn cần thêm cho đầy đủ)

Thân ái & chờ tin từ bạn
Xin bạn code trong trường hợp này. Vì trường mình ghép sáng và chiều chung 1 sheet. Xin bạn chỉ cho code tách TKB theo giáo viên. Cảm ơn bạn nhiều!
 

File đính kèm

Lần chỉnh sửa cuối:
Xin bạn code trong trường hợp này. Vì trường mình ghép sáng và chiều chung 1 sheet. Xin cao nhân chỉ cho code tách TKB theo giáo viên. Cảm ơn cao nhân!
Bạn khẩn trương thay từ "cao nhân" đi nhé, không thì chẳng ai nhận là cao nhân để giúp bạn đâu. (góp ý nhỏ)
 
Lần chỉnh sửa cuối:

Bài viết mới nhất

Back
Top Bottom