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

herenqing

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

zhangjimfu

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

我将各位高手的公式做了一个小结，替换不同人名后有些公式可用，有些不能用，出错，我是新手不知问题在哪？请大侠赐教！
查任课表（总结）.rar (7.56 KB, 下载次数: 65)

2010-7-31 11:33 上传

点击文件名下载附件

sanim

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

jxrbz

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

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

lhx120824

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

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

lhx120824

原帖由 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

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

lhx120824

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