在J3单元格中输入星期几 J4输入第几节，在J5单元格中显示所有该班该节没有课的老师

一指禅62

lushanliu219 发表于 2019-10-17 11:31
大侠：你这在J5中显示的是该班所有的教师，我需要显示所有该班该节没有课的老师（这个班老师可能在其它 ...

代码优化了一下，简洁明了些：

1. Sub 筛选空堂教师()
   
2.     On Error GoTo Err1
   
3.     Dim d As Object, Rng As Range, C%
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheet3
   
6.         Rem 获取本班教师
   
7.         For Each Rng In Sheet4.Range("A4:A13").Find(.[J2], lookat:=xlWhole).Offset(0, 1).Resize(1, 20)
   
8.             If Trim(Rng.Value) <> "" Then d(Trim(Rng.Value)) = ""
   
9.         Next
   
10.         Rem 查询当节课教师
    
11.         C = IIf(.[J4] = "早自习", 0, .[J4]) '                  ---------  '确定偏移行数
    
12.         For Each Rng In Sheet1.Range("A1").CurrentRegion.Find(.[J3], _
    
13.             lookat:=xlPart).Offset(2, 0).Offset(0, C).Resize(11, 1)       '遍历移除在上课的教师
    
14.             If d.Exists(Rng.Value) Then d.Remove (Rng.Value) ': Debug.Print Rng.Value
    
15.         Next
    
16.         .Range("J5:J300") = ""
    
17.         If d.Count = 0 Then
    
18.             MsgBox "本班这节课没有空堂教师！"
    
19.         Else
    
20.             .Range("J5").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)   '输出空堂教师
    
21.         End If
    
22.     End With
    
23.     Exit Sub
    
24. Err1:
    
25.     MsgBox "错误提示：" & Err.Description
    
26. End Sub

复制代码

一指禅62

lushanliu219 发表于 2019-10-17 11:34
大侠：我对VBA一点都不懂，能不能在附件中做好，我直接运用啊？？

附件：
教师任课查询系统.zip (37.64 KB, 下载次数: 4)

2019-10-17 13:57 上传

点击文件名下载附件

为减少出错几率，辅表可以不要。

lushanliu219

一指禅62 发表于 2019-10-17 13:55
代码优化了一下，简洁明了些：

谢谢，就是达到这个目的，如何给悬赏啊？