用什么公式实现由任课教师姓名从任课表中查找出此教师所教的班级和对应的学科？

herenqing · 发表于 2010-7-31 08:17

一个问题引来这些答案，太牛了，
加强学习。

zhangjimfu · 发表于 2010-7-31 08:56

Sub lookupstu()
   Dim columns As Integer
   Dim rows As Integer
   Dim b As Integer
   b = 3

   For columns = 1 To 5 Step 1
      rows = 2
      Do While Cells(rows + 1, columns + 1) <> ""
            If Cells(rows + 1, columns + 1) = Cells(3, "h") Then
               Cells(b, "i") = Cells(rows + 1, 1)
               Cells(b, "j") = Cells(rows + 1, columns + 1)
               b = b + 1
            End If
      rows = rows + 1
      Loop
   Next columns
End Sub

学习了！！！

herenqing · 发表于 2010-7-31 11:33

我将各位高手的公式做了一个小结，替换不同人名后有些公式可用，有些不能用，出错，我是新手不知问题在哪？请大侠赐教！

查任课表（总结）.rar (7.56 KB, 下载次数: 64)

sanim · 发表于 2010-7-31 13:03

函数的学问太多了，一个题引出这么多的答案，真是高手云集！！！！

jxrbz · 发表于 2010-7-31 13:36

I3=SMALL(IF(H$3=B$3:F$10,A$3:A$10,99),ROW(1:1))
j3=OFFSET(A$2,,MAX({1,2,3,4,5}*(OFFSET(A$2,I3,1,,5)=H$3)))

凑热闹

[ 本帖最后由 jxrbz 于 2010-7-31 14:26 编辑 ]

335081548 · 发表于 2010-7-31 13:39

思路很广，方法很多，函数多重组合能解决很多问题

lhx120824 · 发表于 2010-7-31 15:35

原帖由 herenqing 于 2010-7-31 11:33 发表
我将各位高手的公式做了一个小结，替换不同人名后有些公式可用，有些不能用，出错，我是新手不知问题在哪？请大侠赐教！
762788

你的总结很好，楼下还有，继续做下去，通过比较才有长进，谢谢努力

lhx120824 · 发表于 2010-7-31 16:20

原帖由 jxrbz 于 2010-7-31 13:36 发表
I3=SMALL(IF(H$3=B$3:F$10,A$3:A$10,99),ROW(1:1))
j3=OFFSET(A$2,,MAX({1,2,3,4,5}*(OFFSET(A$2,I3,1,,5)=H$3)))

凑热闹

公式新鲜，谢谢提供。
不过第二个公式不能解决同一班的问题。

[ 本帖最后由 lhx120824 于 2010-8-1 11:25 编辑 ]

jxrbz · 发表于 2010-8-1 07:48

引用:
原帖由 lhwhc 于 2010-7-30 11:05 发表
各位高手，再加上节次不就是完整的老师课表吗？能不能做？期待！！！你说得很对，这正是做课程表的一个元素，研究好后我会把完整的课程表查询呈现给大家。
=================================
把完整的课程表发上来试试

lhx120824 · 发表于 2010-8-1 10:30

正在完善，做好后我会共享给大家的。

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

[已解决] 用什么公式实现由任课教师姓名从任课表中查找出此教师所教的班级和对应的学科？

回复 6楼 xiezijian 的帖子

回复 59楼 jxrbz 的帖子