ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 156|回复: 12

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-10-12 16:07 | 显示全部楼层 |阅读模式
大师:在J3单元格中输入星期几 J4输入第几节,在J5单元格中显示所有该班该节没有课的老师

教师任课查询系统.rar

23.04 KB, 下载次数: 10

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-15 11:39 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-15 11:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-10-15 13:02 | 显示全部楼层
本帖最后由 一指禅62 于 2019-10-15 14:11 编辑

VBA的
  1. Sub 筛选空堂教师()
  2.     On Error GoTo Err1
  3.     Dim d As Object, Rng As Range, C%, R%, key$
  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.         R = Sheet1.Range("A5:A14").Find(.[J2], lookat:=xlPart).Row - 2
  13.         key = Trim(Sheet1.Range("B2:BD2").Find(.[J3], lookat:=xlPart).Offset(R, 0).Offset(0, C)) '当堂教师
  14.         If d.Exists(key) Then d.Remove (key)    '移除这名教师
  15.         .Range("J5:J300") = ""
  16.         .Range("J5").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)   '输出空堂教师
  17.     End With
  18.     Exit Sub
  19. Err1:
  20.     MsgBox "错误提示:" & Err.Description
  21. End Sub
复制代码


TA的精华主题

TA的得分主题

发表于 2019-10-15 13:03 | 显示全部楼层
本帖最后由 一指禅62 于 2019-10-15 16:48 编辑

如果是楼主想要的结果,真的有赏吗?
教师任课查询系统.zip (37.97 KB, 下载次数: 8)

TA的精华主题

TA的得分主题

发表于 2019-10-16 08:17 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-17 11:22 | 显示全部楼层
一指禅62 发表于 2019-10-15 13:03
如果是楼主想要的结果,真的有赏吗?

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-17 11:31 | 显示全部楼层
一指禅62 发表于 2019-10-15 13:03
如果是楼主想要的结果,真的有赏吗?


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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-17 11:34 | 显示全部楼层

大侠:我对VBA一点都不懂,能不能在附件中做好,我直接运用啊??

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-17 11:42 | 显示全部楼层
在J5单元格中显示所有该班该节没有课的老师(这些老师可能在其它班级上课,这种也不显示
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-20 01:22 , Processed in 0.076485 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表