maịkhoa
Thành viên mới

- Tham gia
- 3/12/08
- Bài viết
- 15
- Được thích
- 1
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.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.
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)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
Hoặ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ạnmình xếp tkb bằng tay huhu
Bạ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é!! ;(, help me
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
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 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 đổihì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 cứ thay đổi vô tư miễn sao giữ nguyên cấu trúc là được.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?![]()
Nhầm là nhầm chỗ nào bạn nói cụ thể đi.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 đó
có giáo viên đúng co giáo viên sai, bạn chỉnh giúp mình với, thanksTô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
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,Bạn cứ thay đổi vô tư miễn sao giữ nguyên cấu trúc là được.
Nhầm là nhầm chỗ nào bạn nói cụ thể đi.
có giáo viên đúng co giáo viên sai, bạn chỉnh giúp mình với, thanks
Thầy pa lê đâu có dạy tiết 5 lớp 8a1 ngày thứ 5Khi 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,
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,
a tìm ra rồi lỗi của mình sorry nhé, thanks bạn huuthan_bd nhiều lắmThầy pa lê đâu có dạy tiết 5 lớp 8a1 ngày thứ 5
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, thanksSai 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
Đã lỡ viết code lọc TKB cho GV và Lớp.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
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,...Đã 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"
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.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,...
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-ExcelBá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 giup minh, chi minh xem các hàm tự định nghĩa của bạn, như VTsang, Tietsang...Cảm ơin bạnDữ 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).
Ctrl + F3Bạ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
cảm ơn bạn nhiềuCtrl + F3
..........
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!& đâ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
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ỏ)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!