求大神！如何根据编号显示出总课表中那位教师的课时信息？

yijijie · 发表于 2024-3-27 15:18

输入教师的代码，在右边的列自动统计出这个老师本周全部的课程：

捕获.PNG

请假代课列表.rar (42.28 KB, 下载次数: 20)

miaojohn45 · 发表于 2024-3-27 15:44

本帖最后由 miaojohn45 于 2024-3-27 15:50 编辑

=TOCOL(IF($C$6:$AF$29=$AQ$4,$C$3:$AF$3&"班"&$C$4:$AF$4&{"晨读";0;"上午";0;"上午";0;"上午";0;"上午";0;0;"下午";0;"下午";0;"下午";0;"下午";0;"晚辅";0;"晚辅";0;"晚辅"}&"第"&$B$5:$B$28&"节",X),2,1)

复制代码

yijijie · 发表于 2024-3-27 19:54

miaojohn45 发表于 2024-3-27 15:44

我没有office365用不了TOCOL函数呀？

miaojohn45 · 发表于 2024-3-27 19:58

yijijie 发表于 2024-3-27 19:54
我没有office365用不了TOCOL函数呀？

WPS就有，或者装个365就行了。

高个子 · 发表于 2024-3-27 20:18

本帖最后由高个子于 2024-3-27 20:39 编辑

既然能写VBA代码，这种新的功能为何不去VBA版块求助一个自定义函数或者弄一个按钮呢，你的版本工作表函数比较复杂。。。

cnmlgb9998 · 发表于 2024-3-27 20:33

用PQ解决。设个自定义函数。

yijijie · 发表于 2024-3-27 21:17

cnmlgb9998 发表于 2024-3-27 20:33
用PQ解决。设个自定义函数。

哇，好高级，我从哪进去

miaojohn45 · 发表于 2024-3-27 21:21

yijijie 发表于 2024-3-27 21:17
哇，好高级，我从哪进去

3190496160 · 发表于 2024-3-28 11:06

Sub 代课统计()
With Sheets("代课")
ar = .Range("a3:af29")
zd = .[aq4]
ReDim br(1 To 100, 1 To 1)
For j = 3 To UBound(ar, 2)
      For i = 3 To UBound(ar)
         If ar(i, 1) = "" Then ar(i, 1) = ar(i - 1, 1)
         If ar(i, j) = zd Then
            n = n + 1
            br(n, 1) = ar(1, j) & ar(2, j) & ar(i, 1) & "第" & ar(i - 1, 2) & "节"
         End If
      Next i
Next j
.[ar5:ar100] = ""
.[ar5].Resize(n, 1) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-28 11:06

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

[求助] 求大神！如何根据编号显示出总课表中那位教师的课时信息？