Tạo khối lượng công việc của một giáo viên cụ thể trong excel

Cần trợ giúp

Vấn đề của tôi là tôi muốn bỏ qua ô hoàn chỉnh từ "trang 1" của một giáo viên cụ thể với (chủ đề, tên của giáo viên đó & Lớp) trong ROW tiếp nhận của "Trang 2", nó sẽ giúp tôi tạo khối lượng công việc và biết môn học & giáo viên nào và giáo viên cụ thể đó đang dạy lớp nào.

Trong "Trang 1" tôi có tô sáng các ô có màu sắc khác nhau của các Giáo viên cụ thể đang dạy ở các lớp khác nhau trong các tiết học khác nhau, chẳng hạn như Màu vàng thể hiện "Sir William" đang dạy Toán ở lớp 10 - Miền Đông, v.v.

Trong Bảng 2, nếu tôi nhập Tên của bất kỳ Giáo viên cụ thể nào (Thủ công/Danh sách thả xuống), nó sẽ sao chép (chủ đề, tên của giáo viên đó & Lớp) vào HÀNG tiếp nhận. Tôi đã đính kèm liên kết sao chép mẫu để tôi có thể giải thích rõ ràng vấn đề của mình Bạn

http://www.tiikoni.com/tis/view/?id=8c5553e

Xin lỗi, quên đề cập đến điều này nếu có một ô xung đột trong cùng một cột "Trang 1" hơn một số thông báo cảnh báo hoặc bất kỳ thứ gì (dấu hiệu) khác sẽ xuất hiện để loại bỏ các ô xung đột có cùng tên hoặc thay đổi như bạn có thể thấy Trong ( Trang 1) "Cột H9 & H13"

-----------------

dây điện

Ngài James

Ngày 10 (- Miền Tây)

EW

Ngài James

Thứ 9 - Tây"

-------------------------

"Sir James" dạy hai lớp cùng một lúc VẬY Bây giờ nếu hiệu trưởng không muốn thay đổi hoặc loại bỏ ô xung đột và muốn "Sir James" dạy hai lớp cùng một lúc/tiết thì nên điều chỉnh lại Cell Row có khả thi không và tôi hy vọng tôi có thể hiểu được

Chờ đợi để nhận được giải pháp sớm.

Trả lời:

Để giải quyết các ô trống, hãy sử dụng

=IF( $A7= "","", IF(COUNTIF('Trang 1'!B:B,"*"&$A7&"*")>1,"Mục nhập xung đột",IFERROR(INDEX('Trang 1 '!B:B,MATCH("*"&$A7&"*",'Trang 1'!B:B,FALSE)),"Tắt")))

Để xử lý thông báo nhập trùng lặp trong một cột, cần có VBA... tạo danh sách tất cả tên giáo viên và tên trong phạm vi "Giáo viên", sau đó sao chép mã này, nhấp chuột phải vào tab trang tính của Bảng nhập, chọn " Xem mã" và dán mã vào cửa sổ xuất hiện. Sau đó lưu sổ làm việc dưới dạng .xlsm hỗ trợ macro.

Bảng tính phụ riêng tư_Change (Mục tiêu ByVal dưới dạng phạm vi)
Dim rngT As Range

Đối với mỗi rngT Trong Phạm vi("Giáo viên")
Nếu UCase(Target.Value) Thích "*" & UCase(rngT.Value) & "*" Thì
Nếu Application.CountIf(Intersect(Me.UsedRange, Target.EntireColumn), "*" & rngT.Value & "*") = 1 thì
Thoát phụ
Khác
Application.EnableEvents = Sai
Ứng dụng.Hoàn tác
Application.EnableEvents = Đúng
MsgBox "Giáo viên đó đã được chỉ định."
Thoát phụ
Kết thúc nếu
Kết thúc nếu
rngT tiếp theo

Kết thúc phụ