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

lushanliu219 · 发表于 2019-10-12 16:07

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

lushanliu219 · 发表于 2019-10-15 11:39

大师们，帮帮忙啊

lushanliu219 · 发表于 2019-10-15 11:42

这种帖子如何悬赏啊？

一指禅62 · 发表于 2019-10-15 13:02

本帖最后由一指禅62 于 2019-10-15 14:11 编辑

VBA的

Sub 筛选空堂教师()
On Error GoTo Err1
Dim d As Object, Rng As Range, C%, R%, key$
Set d = CreateObject("Scripting.Dictionary")
With Sheet3
Rem 获取本班教师
For Each Rng In Sheet4.Range("A4:A13").Find(.[J2], lookat:=xlWhole).Offset(0, 1).Resize(1, 20)
If Trim(Rng.Value) <> "" Then d(Trim(Rng.Value)) = ""
Next
Rem 查询当节课教师
C = IIf(.[J4] = "早自习", 0, .[J4])
R = Sheet1.Range("A5:A14").Find(.[J2], lookat:=xlPart).Row - 2
key = Trim(Sheet1.Range("B2:BD2").Find(.[J3], lookat:=xlPart).Offset(R, 0).Offset(0, C)) '当堂教师
If d.Exists(key) Then d.Remove (key) '移除这名教师
.Range("J5:J300") = ""
.Range("J5").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) '输出空堂教师
End With
Exit Sub
Err1:
MsgBox "错误提示：" & Err.Description
End Sub

复制代码

一指禅62 · 发表于 2019-10-15 13:03

本帖最后由一指禅62 于 2019-10-15 16:48 编辑

如果是楼主想要的结果，真的有赏吗？

教师任课查询系统.zip (37.97 KB, 下载次数: 10)

一指禅62 · 发表于 2019-10-16 08:17

lushanliu219 · 发表于 2019-10-17 11:22

一指禅62 发表于 2019-10-15 13:03
如果是楼主想要的结果，真的有赏吗？

大侠：你这在J5中显示的是该班所有的教师，我需要显示所有该班该节没有课的老师

lushanliu219 · 发表于 2019-10-17 11:31

一指禅62 发表于 2019-10-15 13:03
如果是楼主想要的结果，真的有赏吗？

大侠：你这在J5中显示的是该班所有的教师，我需要显示所有该班该节没有课的老师（这个班老师可能在其它班级上课，这种不显示）

lushanliu219 · 发表于 2019-10-17 11:34

一指禅62 发表于 2019-10-15 13:02
VBA的

大侠：我对VBA一点都不懂，能不能在附件中做好，我直接运用啊？？

lushanliu219 · 发表于 2019-10-17 11:42

在J5单元格中显示所有该班该节没有课的老师（这些老师可能在其它班级上课，这种也不显示

		自动登录	找回密码
密码			免费注册

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