Monday, February 4, 2013

Giúp kiểm tra hàm xếp loại học lực theo thông tư 58

Giúp kiểm tra hàm xếp loại học lực theo thông tư 58


Giúp kiểm tra hàm xếp loại học lực theo thông tư 58

Posted: 28 Jan 2013 07:50 AM PST

Các thầy cô kiểm tra giúp hàm xếp loại học lực trong file đính kèm (nhớ Enable Macro) xem đã đúng theo thông tư 58 chưa (phần điều chỉnh học lực ấy). Cảm ơn các thầy cô nhiều!


6. Nếu ĐTBhk hoặc ĐTBcn đạt mức của từng loại quy định tại các Khoản 1, 2 điều này nhưng do kết quả của một môn học nào đó thấp hơn mức quy định cho loại đó nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Tb thì được điều chỉnh xếp loại K.
b) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
c) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
d) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Kém thì được điều chỉnh xếp loại Y.
Tập tin đính kèm

Xin nhờ trợ giúp về Maco Copy dữ liệu

Posted: 25 Jan 2013 06:19 AM PST

Tại File Tổng hợp HSG, tôi có 1 Macro để Copy dữ liệu từ nhiều File khác; nhưng mỗi lần lấy dữ liệu lại phải mở tất cả các File kia lên. (Nếu không mở thì có Macro báo lỗi)
Vậy nhờ các bạn viết giúp đoạn code để mở nhanh tất cả các File kia lên được không? Hoặc có thể chỉnh sửa Code cũ để không cần mở các File kia mà vẫn copy được dữ liệu không?
Đậy là đoạn Code cũ!
Code:

Sub CapnhatHSG()
Application.ScreenUpdating = False
    Windows("DIEM 6A.xls").Activate
    Sheets("K.Thuong").Select
    Range("B6:E48").Select
    Selection.Copy
    Windows("HSG").Activate
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("DIEM 6B.xls").Activate
    Sheets("K.Thuong").Select
    Range("B6:E48").Select
    Selection.Copy
    Windows("HSG").Activate
    Range("B50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = Truse
End sub

Cảm ơn các bạn trước!

Tổng hợp nhiều file con vào 1 file (mỗi file con thành 1 sheet)

Posted: 24 Jan 2013 12:26 AM PST

Chào các bác.
Trường em quản lý điểm bằng phần mềm có tình huống này em không làm được mong các bác GPE giúp đỡ. Phần mềm xuất tệp điểm cho mỗi lớp một tệp (mỗi sheet là một môn) để vậy nhập điểm phải chờ đợi nhau mất thời gian quá, mình đã tách được mỗi sheet thành một tệp để của GV nào thì mang về nhập điểm rồi nộp lại để copy vào tệp chung của lớp tương ứng. Nhưng việc copy này mất thời gian quá mà có thể sai xót. Mình có ý tưởng là ghép các tệp điểm đó lại với nhau thành tệp như ban đầu (cách ghép tệp thì mình chưa biết) hoặc cập nhật từ các tệp bộ môn vào tệp của lớp (nếu cập nhật nối dữ liệu lại với nhau vào cùng một sheet thì mình tham khảo trên GPE đã làm được) nhưng cập nhật nội dung của một tệp vào một sheet và lại phải đúng sheet môn tương ứng (theo mẫu tệp điểm máy đã xuất) thì quá khó với mình. Vậy mình nhờ các bác trong GPE giúp với.
Mình đã chuẩn bị dữ liệu đầy đủ rồi: Có 12 tệp điểm của 12 lớp (phầm mềm xuất ra) mình đã tách mỗi tệp các sheet thành một tệp đặt trong một thư mục với tên của lớp đó (12 thư mục). Ở ngoài có tệp Ghep tep diem.xls. mình muốn khi chạy tệp này thì tiến hành ghép hoặc cập nhật điểm. Các bác giúp với. Cảm ơn.
Tập tin đính kèm

Sử dụng vba làm sổ báo giảng rất hay.

Posted: 19 Jan 2013 04:52 PM PST

Mình đọc trên mạng thấy có phần mềm lập sổ báo giảng tác giả viết rất hay nhưng lại không chia sẻ. Mình gửi mẫu tác giả đã làm cho các bạn xem. Ai biết làm giúp mình với. Mình thấy rất tiện. Mặc dù có nhiều SBG điện tử nhưng mình thích của tác giả này vì mẫu sổ rất giống của trường mình. Các xếp ở trường quy định phải giống mẫu mới được. Các bạn có thì share cho mình với hoặc có thể thì hướng dẫn cách làm luôn.
http://kyniem.easyvn.com/_easyweb/id...mem.php&pass=0
Tập tin đính kèm

Anh em giúp em cái tính tiết với

Posted: 18 Jan 2013 11:25 PM PST

Mình có 1 sheet là thời khóa biểu và sheet tiếp theo là theo dõi số tiết giảng trong tuần.AE giúp dùm với
Tập tin đính kèm

Nhờ giúp đỡ công thức xếp loại học lực theo Thông tư 58

Posted: 18 Jan 2013 10:33 PM PST

Ae pro giúp mình vấn đề về bảng điểm xếp loại theo thông tư 58 với! mình gà quá!!!
Ai có công thức hay thì cho mình xin tham khảo với nha, mình còn mờ mịt quá }}}}}}}}}}

Cái này mình chả biết viết như thế nào nữa
6. Nếu ĐTBhk hoặc ĐTBcn đạt mức của từng loại quy định tại các Khoản 1, 2 điều này nhưng do kết quả của một môn học nào đó thấp hơn mức quy định cho loại đó nên học lực bị xếp thấp xuống thì được điều chỉnh như sau:
a) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Tb thì được điều chỉnh xếp loại K.
b) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại G nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
c) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Y thì được điều chỉnh xếp loại Tb.
d) Nếu ĐTBhk hoặc ĐTBcn đạt mức loại K nhưng do kết quả của một môn học nào đó mà phải xuống loại Kém thì được điều chỉnh xếp loại Y.

Nhờ các anh chị viết code VBA thay cho hàm IF và Vlookup trong lịch báo giảng cá nhân

Posted: 14 Jan 2013 08:34 AM PST

Nhờ các anh chị viết code VBA thay cho hàm IF và Vlookup trong lịch báo giảng cá nhân. Anh chị xem trong file đính kèm thì với công thức sẵn có em vẫn đủ dùng nhưng dẫn đến dữ liệu nặng quá mở trên điện thoại sẽ khó khăn. Cảm ơn các anh chị nhiều.
File đây ạ: http://www.mediafire.com/view/?8b2g5n4ug78549u

Xin Code để in danh sách lớp trong file chọn lớp

Posted: 05 Jan 2013 04:19 AM PST

Xin GPE chỉ giúp cách tạo nhãn để khi nhấn vào sẽ cho in danh sách lớp trong file chọn lớp đính kèm
Xin cám ơn
Tập tin đính kèm

No comments:

Post a Comment

Dịch vụ quản trị website|Chăm sóc website Thiết kế web giá rẻ Dịch vụ SEO giá rẻ|SEO chuyên nghiệp Công ty thiết kế web chuyên nghiệp Dịch vụ nâng cấp website|Sửa chữa website