Xin giúp đỡ về một phần mềm phân công giám thị

Liên hệ QC

diemdiem

Thành viên hoạt động
Tham gia
23/11/10
Bài viết
148
Được thích
7
Xin phép ad và mod nhé. Nhưng thật sự nếu có được 1 chương trình viết về bốc thăm phân công giám thị coi thi để hỗ trợ cho hàng triệu triệu người mỗi mùa thi thì tuyệt vời quá
Hiện giờ Bộ giáo dục buộc phải bốc thăm phòng coi thi từng buổi chứ k được phân công tự động. Vừa bốc thăm, vừa ngồi rà xem có thỏa mãn 3 không trùng nhau.
ACE nào đã viết được phần mềm hoặc có phần mềm hay thì xin chia sẻ lên ah. Bản miễn phí càng tốt, hoặc nếu có phí thì cũng được ah.
 
Xin phép ad và mod nhé. Nhưng thật sự nếu có được 1 chương trình viết về bốc thăm phân công giám thị coi thi để hỗ trợ cho hàng triệu triệu người mỗi mùa thi thì tuyệt vời quá
Hiện giờ Bộ giáo dục buộc phải bốc thăm phòng coi thi từng buổi chứ k được phân công tự động. Vừa bốc thăm, vừa ngồi rà xem có thỏa mãn 3 không trùng nhau.
ACE nào đã viết được phần mềm hoặc có phần mềm hay thì xin chia sẻ lên ah. Bản miễn phí càng tốt, hoặc nếu có phí thì cũng được ah.
Cho cái file đó lên đây và mô tả công việc cần làm.
 
Cho cái file đó lên đây và mô tả công việc cần làm.
Vâng ah, em tìm được file này, nhưng chươn trình bảo đăng ký, em đã gửi mail và gọi điện thoại theo sđt nhưng k thấy phản hồi.
Nhờ mn có cách gì sửa lại code giúp em, tức là bỏ phần đăng ký đi ấy ah.
Cảm ơn mn
 

File đính kèm

  • Boc tham CBCT - .xlsm
    30.2 KB · Đọc: 94
Xóa đoạn này rồi nhập thử dữ liệu xem. Tôi chưa hiểu cách phân công này nên không biết thử thế nào
'Chi dung duoc khi da dang ky chuong trinh phan cong giam thi thoi
If Cells(dongHienTai, cotHienTai) <> "" And dongHienTai > 13 Then 'And (Not DK())
MsgBox "Tien ich nay chua duoc dang ky su dung nen chi kiem soat duoc cho 10 nguoi dau tien trong danh sach! Vui long lien he theo so 0947622348 hoac qua email xuanhoa7604 de duoc ho tro!", vbInformation, "Thông báo"
Cells(dongHienTai, cotHienTai) = ""
Cells(dongHienTai, cotHienTai).Select
Exit Sub
End If
 
Người ta đã ghi rõ là liên hệ số điện thoại rồi, không được chỉnh code vậy đâu.

Tác giả ở đây.

 
Xóa đoạn này rồi nhập thử dữ liệu xem. Tôi chưa hiểu cách phân công này nên không biết thử thế nào
'Chi dung duoc khi da dang ky chuong trinh phan cong giam thi thoi
If Cells(dongHienTai, cotHienTai) <> "" And dongHienTai > 13 Then 'And (Not DK())
MsgBox "Tien ich nay chua duoc dang ky su dung nen chi kiem soat duoc cho 10 nguoi dau tien trong danh sach! Vui long lien he theo so 0947622348 hoac qua email xuanhoa7604 de duoc ho tro!", vbInformation, "Thông báo"
Cells(dongHienTai, cotHienTai) = ""
Cells(dongHienTai, cotHienTai).Select
Exit Sub
End If
NÀY KO PHẢI PHÂN CÔNG ĐÂU AH, MÀ LÀ GIÁM THỊ COI THI TỰ BỐC THĂM PHÒNG THI, TRÚNG PHÒNG NÀO THÌ COI PHÒNG ĐÓ, NHƯNG PHẢI ĐẢM BẢO 3 ĐIỀU KIỆN: Không coi lại phòng thi đã coi môn trước, 2 giám thị cùng 1 trường k coi thi chung 1 phòng, 2 giám thị đã cùng nhau coi thi 1 phòng môn trước thì k được gặp nhau nữa.
- SỐ 1 HOẶC 2 ĐẦU TIÊN (11 LÀ GIÁM THỊ 1 PHÒNG 1, 12 LÀ GIÁM THỊ 2 PHÒNG 2, 21 LÀ GIÁM THỊ 2 PHÒNG 1...)
- ANH CÓ CÁCH NÀO LẤY KẾT QUẢ BỐC THĂM ĐƯỢC Ở SHEET 1 TỰ ĐỘNG ĐƯA QUA SHEET 2 KO AH. THEO THỨ TỰ TỪNG MÔN, TỪNG PHÒNG THI ẤY Ạ?
 

File đính kèm

  • Boc tham CBCT - .xlsm
    32.2 KB · Đọc: 55
NÀY KO PHẢI PHÂN CÔNG ĐÂU AH, MÀ LÀ GIÁM THỊ COI THI TỰ BỐC THĂM PHÒNG THI, TRÚNG PHÒNG NÀO THÌ COI PHÒNG ĐÓ, NHƯNG PHẢI ĐẢM BẢO 3 ĐIỀU KIỆN: Không coi lại phòng thi đã coi môn trước, 2 giám thị cùng 1 trường k coi thi chung 1 phòng, 2 giám thị đã cùng nhau coi thi 1 phòng môn trước thì k được gặp nhau nữa.
- SỐ 1 HOẶC 2 ĐẦU TIÊN (11 LÀ GIÁM THỊ 1 PHÒNG 1, 12 LÀ GIÁM THỊ 2 PHÒNG 2, 21 LÀ GIÁM THỊ 2 PHÒNG 1...)
- ANH CÓ CÁCH NÀO LẤY KẾT QUẢ BỐC THĂM ĐƯỢC Ở SHEET 1 TỰ ĐỘNG ĐƯA QUA SHEET 2 KO AH. THEO THỨ TỰ TỪNG MÔN, TỪNG PHÒNG THI ẤY Ạ?

Mình làm trong môi trường giáo dục mà viết chữ nghĩa thế này thì chán quá.
 
- ANH CÓ CÁCH NÀO LẤY KẾT QUẢ BỐC THĂM ĐƯỢC Ở SHEET 1 TỰ ĐỘNG ĐƯA QUA SHEET 2 KO AH. THEO THỨ TỰ TỪNG MÔN, TỪNG PHÒNG THI ẤY Ạ?
Đừng có viết chữ hoa hết như thế bạn nhé!
Vấn đề ở chỗ làm sao cho có kết quả, chứ việc chép kết quả qua chỗ nào đó thì quá dễ.
 
Mình làm trong môi trường giáo dục mà viết chữ nghĩa thế này thì chán quá.
Không phải chỉ "môi trường" đâu.
Đây là cán bộ cao cấp. Phân công đến hàng "hỗ trợ cho hàng triệu triệu người mỗi mùa thi" lận. Có ngân sách trả phí đàng hoàng.
 
Vâng ah, em tìm được file này, nhưng chươn trình bảo đăng ký, em đã gửi mail và gọi điện thoại theo sđt nhưng k thấy phản hồi.
Nhờ mn có cách gì sửa lại code giúp em, tức là bỏ phần đăng ký đi ấy ah.
Cảm ơn mn
file này hay nhưng không đăng ký được. tiết thật
 
Xin phép ad và mod nhé. Nhưng thật sự nếu có được 1 chương trình viết về bốc thăm phân công giám thị coi thi để hỗ trợ cho hàng triệu triệu người mỗi mùa thi thì tuyệt vời quá
Hiện giờ Bộ giáo dục buộc phải bốc thăm phòng coi thi từng buổi chứ k được phân công tự động. Vừa bốc thăm, vừa ngồi rà xem có thỏa mãn 3 không trùng nhau.
ACE nào đã viết được phần mềm hoặc có phần mềm hay thì xin chia sẻ lên ah. Bản miễn phí càng tốt, hoặc nếu có phí thì cũng được ah.
Xem coi có giúp gì cho bạn được không
 

File đính kèm

  • 8. Phân công CBCT THPT 2020.xlsm
    367.8 KB · Đọc: 87
Giúp mình với ! Mình có một bảng phân công gồm 3 cột 1 STT cột 2 Họ và tên Cột 3 Phân công...ở cột phân công người nào được phân công thì đánh dấu x....và mình muốn lấy họ và tên những người được đánh dấu x qua sheet 2 tự động và họ và tên phải liên tục nhau không có dòng trống
 

File đính kèm

  • phancong.xlsx
    12.7 KB · Đọc: 10
Giúp mình với ! Mình có một bảng phân công gồm 3 cột 1 STT cột 2 Họ và tên Cột 3 Phân công...ở cột phân công người nào được phân công thì đánh dấu x....và mình muốn lấy họ và tên những người được đánh dấu x qua sheet 2 tự động và họ và tên phải liên tục nhau không có dòng trống
Mượn công thức của một tác giả nào đó trên diễn đàn:
Mã:
=SORT(FILTER(Sheet1!G8:G75;(Sheet1!H8:H75="x")*(COUNTIF(Sheet1!$H$8:$H$75;Sheet1!$H$8:$H$75)>1);"");2;1;TRUE)
 
Web KT
Back
Top Bottom