Trích xuất Thời khóa biểu (1 người xem)

[titanic20072007]

Ai đời chưa đống bộ đã trang điểm: Trôn hết các ô của mục chào cờ làm một thì chả có VBA ma nào (hay siêu công thức đi chăng nữa) lấy vào hay vơ vào đâu;

Mà bữa trước cũng vì cái này mà fải tìm cách tách riêng nó ở câu lệnh điều kiện riêng

Giờ thì bạn chọn cách nào sau đây:

(*) Bỏ trộn ô chào cờ & chỉnh lại macro

(*) Vẻ thêm tiết chào cờ i chang vậy vô các trang tính các thầy cô?

Nhưng nói trước cách sau thì hơi lâu à nha!

Cho mình gởi lời thăm ChiBi nha, cùng tỉnh fải không! /-)ã lâu không thấy bóng dáng thư sinh này trên diễn đàn; Hay bỏ nghề sang Du lịch rồi không chừng?!

Đây là TKB của trường mình mà văn phòng họ định dạng để in ra nên họ trộn như vậy thôi. Bậy giờ mình bỏ trộn đi và coi như một tiết học bình thường với gv dạy là HT. Bạn chỉnh lại macro hộ mình nhé. Mình gửi tệp dữ liệu chuẩn luôn dưới đây.
Biết là làm phiền các bạn nhiều quá nhưng mình không biết gì về VB chỉ biết mấy câu lệnh excel nhưng làm bằng excel thì không ra lên không còn cách nào mà làm bằng tay thì thôi rồi.
Mình không biết ChiBi đâu, cậu ấy ở Hà Nam à.

 

[SA_DQ]

Thôi bạn đừng bỏ trộn nữa & thêm 1 câu lệnh này

Trong macro có 2 dòng lệnh

   Set Rng = Nothing

Bạn chép cái ni đè lên dòng lệnh thứ 2 bên dưới là được:

   Set Rng = Nothing:               [c43].Value = [c5].Value

& chúc vui nha!

 

[titanic20072007]

Trong macro có 2 dòng lệnh

   Set Rng = Nothing

Bạn chép cái ni đè lên dòng lệnh thứ 2 bên dưới là được:

   Set Rng = Nothing:               [c43].Value = [c5].Value

& chúc vui nha!

Bạn ơi thay các lệnh trên rồi ở tkb của gv thì tiết 1 thứ hai đã có ghi chào cờ (CC) rồi nhưng ở tkb của từng lớp thì không ghi là chào cờ (CC) mà các tiết nó rồn lên. Bạn xem lại giúp mình với nhé. Mình gửi tệp mình đã sửa bạn xem có sai ở đâu không nhé.

 

[ChanhTQ@]

Cũng quên coi lại thêm bên dưới, để bạn tốn thời gian, thông cảm nha!

Bạn tìm chổ có câu lệnh

   [c51].Resize(5, 14).ClearContents

Bạn thêm dưới nó câu lệnh
[c51].Resize(5, 14).ClearContents

   [c51].Value = [c5].Value

& trong câu lệnh

      Cells( 51, Jj).Resize(5).Value =  Cells(Hg, sRng.Column).Resize(5).Value

thêm hàm IF() trong VBA, như sau:

      Cells(IIf(Jj = 3, 52, 51), Jj).Resize(5).Value =     Cells(Hg, sRng.Column).Resize(5).Value

Chúc thành công.

 

[ThuNghi]

Em theo dõi Bác Sa hướng dẫn bạn Titanic từ đầu thấy yêu cầu bạn này đưa ra có vài điều không vững lắm về cơ sở dữ liệu (CSDL) nói chung.
Cụ thể là nếu trong trường có 10 giáo viên cùng tên là Chiến thì giải quyết thế nào. Nên chăng là nên có 1 mã GV.
Vậy em đề xuất với Bác Sa như sau:
1/ 1 sh DMGV gồm MaGV, TenGV, Mon (field Mon chỉ tham khảo)
2/ Sh Thời khóa biểu (TKB) các môn học theo lớp.
3/ Sh Thời khóa biểu (TKB) các môn học theo lớp và theo MaGV (tên sẽ hiển thị theo MaGV)
Và kết quả sẽ như sau:
1/ Bao nhiêu MaGV sẽ hiện bao nhiêu sh theo MaGV-TenGV
2/ Bao nhiêu lớp sẽ hiện bao nhiêu sh theo lớp.
Khi kết xuất theo lớp thì delete toàn bộ sh theo MaGV và ngược lại.
Vài lời xin góp ý.

 

[titanic20072007]

Em theo dõi Bác Sa hướng dẫn bạn Titanic từ đầu thấy yêu cầu bạn này đưa ra có vài điều không vững lắm về cơ sở dữ liệu (CSDL) nói chung.
Cụ thể là nếu trong trường có 10 giáo viên cùng tên là Chiến thì giải quyết thế nào. Nên chăng là nên có 1 mã GV.
Vậy em đề xuất với Bác Sa như sau:
1/ 1 sh DMGV gồm MaGV, TenGV, Mon (field Mon chỉ tham khảo)
2/ Sh Thời khóa biểu (TKB) các môn học theo lớp.
3/ Sh Thời khóa biểu (TKB) các môn học theo lớp và theo MaGV (tên sẽ hiển thị theo MaGV)
Và kết quả sẽ như sau:
1/ Bao nhiêu MaGV sẽ hiện bao nhiêu sh theo MaGV-TenGV
2/ Bao nhiêu lớp sẽ hiện bao nhiêu sh theo lớp.
Khi kết xuất theo lớp thì delete toàn bộ sh theo MaGV và ngược lại.
Vài lời xin góp ý.

Cảm ơn bạn đã quan tâm góp ý. Vì tkb trường mình xếp bằng tay rồi nhập vào excel để in vì vậy dữ liệu nhiều khi cũng chưa chuẩn như bạn đã góp ý. Nếu trường có nhiều gv trùng tên nhau (thực tế đã có tới 3 tên trùng nhau với 6 gv) thì mình xử lý bằng cách đặt thêm một chữ cài theo tên môn chính vg đó dạy hoặc biệt danh vào sau tên đó thì cũng đảm bảo các gv đề có 1 tên duy nhất. Có điều trước khi trích xuất mình phải kiểm tra và làm việc này. Đúng nếu làm như bạn góp ý là thuận tiện và khoa học có lẽ trong tương lai mình sẽ nhờ các bạn giúp một tay. Cảm ơn.

 

[titanic20072007]

Bạn tìm chổ có câu lệnh

   [c51].Resize(5, 14).ClearContents

Bạn thêm dưới nó câu lệnh
[c51].Resize(5, 14).ClearContents

   [c51].Value = [c5].Value

& trong câu lệnh

      Cells( 51, Jj).Resize(5).Value =  Cells(Hg, sRng.Column).Resize(5).Value

thêm hàm IF() trong VBA, như sau:

      Cells(IIf(Jj = 3, 52, 51), Jj).Resize(5).Value =     Cells(Hg, sRng.Column).Resize(5).Value

Chúc thành công.

Với những lệnh trên mình test thấy đã đúng được như yêu cầu của trường mình rồi. Cảm ơn các bạn đã nhiệt tình giúp mình. Qua đây mình thấy tinh thần giúp đỡ trong diễn đàn giaiphapexcel rất trách nhiệm và tuyệt vời. Mong diễn đàn ngày càng phát triển và giúp ích nhiều hơn nữa cho cộng đồng. Cảm ơn các bạn rất nhiều.

 

[tintam7251]

Theo dõi loạt bài này, mình thấy hình như bạn muốn tách từ TKB gốc thành 2 tệp TKB giáo viên và học sinh. Đã làm theo yêu cầu đó. Tệp tạo mới nằm cùng thư mục với tệp chương trình. Số lớp và giáo viên có thể thêm tùy thích. Bạn coi thử xài được thì cứ xài.

 

[phicuongntn.nt]

các bạn có thể làm bằng công thức excel không?

 

[titanic20072007]

Theo dõi loạt bài này, mình thấy hình như bạn muốn tách từ TKB gốc thành 2 tệp TKB giáo viên và học sinh. Đã làm theo yêu cầu đó. Tệp tạo mới nằm cùng thư mục với tệp chương trình. Số lớp và giáo viên có thể thêm tùy thích. Bạn coi thử xài được thì cứ xài.

Xin chào cả nhà.
Mình tưởng với TKB này thế là đã ổn với mình nhưng hiện giờ trường lại nảy sinh một yêu cầu đó là từ TKB gốc muốn tách ra TKB theo mỗi môn học tức là ra thêm một tệp TKBmon, trong tệp này mỗi sheet là một môn học. Các bạn có thể thêm chức năng đó vào tệp trên giúp mình được không. Mình không thạo VB nên chịu chết. Cảm ơn các bạn.
Đây là tệp bạn tintam7251 đã làm rất hay các bạn có thể xem và thêm vào tệp này giúp mình

 

[Ba Tê]

Xin chào cả nhà.
Mình tưởng với TKB này thế là đã ổn với mình nhưng hiện giờ trường lại nảy sinh một yêu cầu đó là từ TKB gốc muốn tách ra TKB theo mỗi môn học tức là ra thêm một tệp TKBmon, trong tệp này mỗi sheet là một môn học. Các bạn có thể thêm chức năng đó vào tệp trên giúp mình được không. Mình không thạo VB nên chịu chết. Cảm ơn các bạn.
Đây là tệp bạn tintam7251 đã làm rất hay các bạn có thể xem và thêm vào tệp này giúp mình

Bạn phải đưa cái file bạn đang sử dụng lên đây mọi người mới biết phát triển nó từ đâu.
Híc! post bài xong mới thấy bài có file mới đính kèm....

 

[titanic20072007]

Xin lỗi do sơ xuất mình đã up rồi. Cảm ơn bạn đã quan tâm

 

[Ba Tê]

Xin lỗi do sơ xuất mình đã up rồi. Cảm ơn bạn đã quan tâm

Chọn môn trong ô B2 sẽ có TKB từng môn.
Nếu các sheet GV cũng dùng 1 sheet và có ô chọn tên GV thì gọn hơn.
----------
Nếu lọc thiếu thì xem lại TKB nhập môn có đúng không, ví dụ Tin lớp 6B là "Tin ", có 1 dấu cách dư phía sau, sẽ không lọc được.

 

[titanic20072007]

Ôi nhanh quá. Cảm ơn bạn đã giúp đỡ. Mình test thử thấy chạy lọc rất chính xác

Nếu các sheet GV cũng dùng 1 sheet và có ô chọn tên GV thì gọn hơn.
.

Nếu để TKB mỗi GV và lớp trên một sheet thì nhiều sheet quá và trường mình định đưa TKB của từng lớp và GV lên web của trường sẽ không tiện nên mình nhờ tách thành tệp riêng (đây là do đặc thù của trường mình).
Bạn có thể chỉnh lại code để khi nhấn núy tách TKB ở trang TKB chính thì phần TKB tách theo môn cũng được tách ra một tệp riêng như của GV và lớp được không để mình khi up nên web của trường thuận tiện hơn không. Cảm ơn bạn.

 

[Good-Luck]

Ôi nhanh quá. Cảm ơn bạn đã giúp đỡ. Mình test thử thấy chạy lọc rất chính xác

Nếu để TKB mỗi GV và lớp trên một sheet thì nhiều sheet quá và trường mình định đưa TKB của từng lớp và GV lên web của trường sẽ không tiện nên mình nhờ tách thành tệp riêng (đây là do đặc thù của trường mình).
Bạn có thể chỉnh lại code để khi nhấn núy tách TKB ở trang TKB chính thì phần TKB tách theo môn cũng được tách ra một tệp riêng như của GV và lớp được không để mình khi up nên web của trường thuận tiện hơn không. Cảm ơn bạn.

Anh Ba Tê chưa trả lời, Tạm gửi trước cho vậy
rảnh quá làm chút chút cho vui , không biết ý phải vậy ko
tham khảo file đính kem:

 

[titanic20072007]

Cảm ơn bạn. Cách của bạn làm rất gọn nhưng với cách Môn học thì mình thấy không ổn khi bạn để cùng vào mẫu tách Giáo viên đó vì trên thực thế môn học này cùng một tiết có thể có nhiều gv dạy ở những lớp khác nhau thì sẽ bị trùng nên khi hiển thị trên mẫu này thì bị thiếu. Ví dụ môn Toán mỗi lớp 4 tiết trên tuần thì khi chạy ở chế dộ Môn học thì hiện thiếu. Vậy bạn có thể trích theo nguyên mẫu của TKB toàn trường thì hiện đầy đủ được.
Trường mình muốn tách TKB theo môn học để tiện khi đoàn KT về họ muốn dự giừ toán chẳng hạn thì biết được hiện Toán đang được dạy ở những tiết nào cho nhanh và mình muốn đưa TKB mỗi môn ra một sheet ở một tệp khác để tiện up lên web của trường cho mọi người tiện tra.

 

[Good-Luck]

Cảm ơn bạn. Cách của bạn làm rất gọn nhưng với cách Môn học thì mình thấy không ổn khi bạn để cùng vào mẫu tách Giáo viên đó vì trên thực thế môn học này cùng một tiết có thể có nhiều gv dạy ở những lớp khác nhau thì sẽ bị trùng nên khi hiển thị trên mẫu này thì bị thiếu. Ví dụ môn Toán mỗi lớp 4 tiết trên tuần thì khi chạy ở chế dộ Môn học thì hiện thiếu. Vậy bạn có thể trích theo nguyên mẫu của TKB toàn trường thì hiện đầy đủ được.
Trường mình muốn tách TKB theo môn học để tiện khi đoàn KT về họ muốn dự giừ toán chẳng hạn thì biết được hiện Toán đang được dạy ở những tiết nào cho nhanh và mình muốn đưa TKB mỗi môn ra một sheet ở một tệp khác để tiện up lên web của trường cho mọi người tiện tra.

đang đinh bổ xung , bạn tải lại file mình đã chỉnh sửa lại (file TKB TRUONG-1 )


bạn tạo một môn 1 sheet thì quá nhiều sheet và khó kiểm tra, bạn tham khảo lại file mình mới tải, xem có vừa ý bạn chưa???? lúc nãy do mình thiếu xót không kiểm tra môn học, chỉ kiểm tra giáo viên

 

[titanic20072007]

Cảm ơn bạn mình thấy chương trình chạy lọc chính xác rồi.
Bạn có thể chỉnh một chút xíu code để có thể xử lý phần tên gv và môn học không có ký tự trắng đằng sau cũng như có ký tự trắng đằng sau là như nhau được không vì trong qua trình nhập TKB có thể quen tay gõ phím cách ở cuối. VD "Tin" với "Tin " thì chương trình lại cho là hai môn học. Khi mình chạy thử thấy trong danh sách có nhiều môn trùng tên nhau quá. Cảm ơn bạn.

 

[Good-Luck]

Cảm ơn bạn. Cách của bạn làm rất gọn nhưng với cách Môn học thì mình thấy không ổn khi bạn để cùng vào mẫu tách Giáo viên đó vì trên thực thế môn học này cùng một tiết có thể có nhiều gv dạy ở những lớp khác nhau thì sẽ bị trùng nên khi hiển thị trên mẫu này thì bị thiếu. Ví dụ môn Toán mỗi lớp 4 tiết trên tuần thì khi chạy ở chế dộ Môn học thì hiện thiếu. Vậy bạn có thể trích theo nguyên mẫu của TKB toàn trường thì hiện đầy đủ được.
Trường mình muốn tách TKB theo môn học để tiện khi đoàn KT về họ muốn dự giừ toán chẳng hạn thì biết được hiện Toán đang được dạy ở những tiết nào cho nhanh và mình muốn đưa TKB mỗi môn ra một sheet ở một tệp khác để tiện up lên web của trường cho mọi người tiện tra.

to chủ thớt
Chú Ý :dự liệu bạn bạn nhập có vấn đề nghen
1 ) trong môn học có chữ Hoa và chữ Thường (ví dụ : "văn" và "Văn" )
2 ) trong chuỗi thường có thêm khoảng trắng phí sau : ví dụ "CN" và "CN "
do 2 vấn đề trên dẫn đến có 1 số môn xuất hiện thiếu số lớp học và giáo viên

để tiện lợi cho việc nhập liệu, file đã khắc phục 2 trình trạng trên

 

[titanic20072007]

Cảm ơn bạn đã chỉnh giúp mình chạy thấy ok rồi. còn về vấn đề dữ liệu thì do nhập tay chứ không phải dùng phần mềm để xếp nên nó không được chuẩn nắm để sau này mình sẽ chỉnh lại dữ liệu. Một lần nữa cảm ơn các bạn và anh em trong GPE. Có gì bạn giúp mình tiếp nhé.