任课教师与对应课表进行匹配

adud

任课教师与对应课表进行匹配

本文件基本能实现想要的部分功能,还存在一点想法没有达到,在此求助各位.先谢谢了.
1.文件运行效率较低,数据较多时明显时间较长.
2.不知道怎么保留文件中的数据验证内容(课表科目选择)
3.想要实现调整每节课后,下面的对应教师能够实时更新.

如图,选择课程后,在下面一行的单元格显示对应的教师姓名,最后达到下面表格的样子.

z865593849

单元格事件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.19
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Arr = Sheets("任职").[a2:o8]
   
5.     For i = 2 To UBound(Arr)
   
6.         For j = 3 To UBound(Arr, 2)
   
7.             s = Arr(i, 2) & "|" & Arr(1, j)
   
8.             d(s) = Arr(i, j)
   
9.         Next
   
10.     Next
    
11.     On Error Resume Next
    
12.     With Sheets("排正课表")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         c = .UsedRange.Columns.Count
    
15.         Arr = .[a1].Resize(r, c)
    
16.         For i = 5 To UBound(Arr) Step 2
    
17.             For j = 2 To UBound(Arr, 2)
    
18.                 s = Arr(i, 1) & "|" & Arr(i, j)
    
19.                 If d.exists(s) Then
    
20.                     Arr(i + 1, j) = d(s)
    
21.                 Else
    
22.                     Arr(i + 1, j) = ""
    
23.                 End If
    
24.             Next
    
25.         Next
    
26.         .[a1].Resize(r, c) = Arr
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    

复制代码

adud

z865593849 发表于 2024-12-19 11:58
单元格事件

非常好,正是我想要的结果.有个小问题:就那上面你发的那个截图来说:选择了d11格,在d12中出现了yy002,但d13中的内容被清空了.这个现象要是改过来就好了.我来改改试试,最近在研究字典用法,但很多功能还是理解的模棱两可.

lkqsmxw

adud 发表于 2024-12-19 12:56
非常好,正是我想要的结果.有个小问题:就那上面你发的那个截图来说:选择了d11格,在d12中出现了yy002,但d13 ...

改了一下，KKKKKK

adud

lkqsmxw 发表于 2024-12-19 15:00
改了一下，KKKKKK

谢谢啊,虽然还有问题,但基本能用

chxw68

参与一下。

z865593849

重新修改了，用数组，禁用事件

yellowhawk

写了一个公式：
=IF(B$5="","",CONCAT(IF((任职!$B$3:$B$8=$A5)*(B$5=任职!$C$2:$O$2),任职!$C$3:$O$8,"")))
每一行需要复制一下这个公式，如果数据不多的话，也是可行的。