ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
楼主: 779846526

[求助] 求个按计划筛选安排人员的代码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-1-14 08:55 | 显示全部楼层
  1. Sub 按钮9_Click()
  2.     Set d = CreateObject("scripting.dictionary")
  3.     arr = Sheets("总课表").[c7:bp32]
  4.     brr = Sheets("安排").[a1].CurrentRegion
  5.     For j = 3 To UBound(arr, 2)
  6.         For i = 3 To UBound(arr) Step 3
  7.             If arr(i + 1, j) And Len(arr(i, j)) > 0 Then
  8.                 If d.exists(arr(i, j)) Then
  9.                     r = d(arr(i, j))
  10.                 Else
  11.                     r = 1
  12.                 End If
  13.                 y = 0
  14.                 For x = r + 1 To UBound(brr)
  15.                     
  16.                     If arr(i, j) = brr(x, 4) Then
  17.                         y = y + 1
  18.                         brr(x, 7) = arr(i, 1)
  19.                         brr(x, 5) = arr(1, j)
  20.                         brr(x, 6) = arr(i + 2, j)
  21.                         If y = arr(i + 1, j) Then
  22.                             d(arr(i, j)) = x
  23.                             Exit For
  24.                         End If
  25.                     End If
  26.                 Next x
  27.             End If
  28.         Next i
  29.     Next j
  30.     Sheets("安排").[a1].CurrentRegion = brr
  31. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2019-1-14 08:55 | 显示全部楼层
附件内容供参考。。。。。。

求助2.zip

162.86 KB, 下载次数: 4

评分

参与人数 2鲜花 +5 收起 理由
YZC51 + 3
779846526 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 09:14 | 显示全部楼层
本帖最后由 779846526 于 2019-1-14 09:45 编辑
求助2(重做了人工安排说明).zip (107.01 KB, 下载次数: 0)

谢谢版主的回贴,结果不对啊,同一位学生不同的课程不能安排到相同的节次,如果安排到同一节次就重课了,那么这一节课他没法同时到2个班 1.png 上课程啊,估计 我没说清楚的原因吧,我重新做了下人工安排说明

TA的精华主题

TA的得分主题

发表于 2019-1-14 11:33 | 显示全部楼层
楼主的几个帖子,模拟数据及描述都不清晰
是否可行供参考吧

求助2.zip

30.84 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 12:29 | 显示全部楼层
liulang0808 发表于 2019-1-14 11:33
楼主的几个帖子,模拟数据及描述都不清晰
是否可行供参考吧

是这个效果的,测试时发现还有部分学生的安排信息没有填全啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 15:42 | 显示全部楼层
liulang0808 发表于 2019-1-14 11:33
楼主的几个帖子,模拟数据及描述都不清晰
是否可行供参考吧

版主大大您好,我又重新做了下数据说明,不和这样表达清楚了吗 求助2(重新更改附件数据与说明,).zip (119.78 KB, 下载次数: 1)

求助2(重新更改附件数据与说明,).zip

119.78 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 19:18 | 显示全部楼层
liulang0808 发表于 2019-1-14 11:33
楼主的几个帖子,模拟数据及描述都不清晰
是否可行供参考吧

版主好,我在18楼重新做的附件说明,不知道意思是不是说清楚了,如没说清楚麻烦您回复下吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 20:16 | 显示全部楼层
liulang0808 发表于 2019-1-14 11:33
楼主的几个帖子,模拟数据及描述都不清晰
是否可行供参考吧

重新做了下填写说明,不知有没有表达清楚 求助2(再次做 了说明,).zip (119.71 KB, 下载次数: 4)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 20:20 | 显示全部楼层
一楼重新做了附件,不知有没有表达清楚,请各位帮忙了

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-14 22:51 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

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

GMT+8, 2019-1-20 11:06 , Processed in 0.107898 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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