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考勤计算系统
查看: 292|回复: 23

[求助] 请教:有没有办法可以按照本班性别人数均衡分组?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:06 | 显示全部楼层 |阅读模式
求教各位大师:怎样实现本班同一性别均衡分组?(具体见附件)
要求:对于本班的男生、女生各自总人数
1、如果刚好可以分成8-10人一组,则按照以上数分组1,2,3……,且男女生组号相继(如男生只有1组,那么女生第一组编号就是2组,反之亦然);
2、如果不能被8-10任何整数整除,则按照余数最小的方案分组,本班本性别最后一组人数为 除数+余数。
谢谢各位,新年快乐,万事如意,辛苦大家了!

按照性别分组的最优方案.rar

3.67 KB, 下载次数: 7

均衡分组

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 22:34 | 显示全部楼层
换句话说,就是能用8、或9、或10人一组任一方案(或三者结合)刚好分完这一性别的学生,就采用这一方案;如果都不行,采用8,9,10人一组任意方案中余数最少的方案,然后本班本性别剩余人员与上一组本性别人员合并为一组即可

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 22:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 23:22 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 23:23 来自手机 | 显示全部楼层
本性别剩余人员与本班同一性别上一组(最后一组)合并为一组

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 23:25 来自手机 | 显示全部楼层
比如,男生21人按照10人一组,第二组就是11人,因为剩一人

TA的精华主题

TA的得分主题

发表于 2019-2-12 07:16 | 显示全部楼层
'人数<8直接输出为一组,否则按8-10余数最小分组,,,

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, a, b, m, n, p, cnt
  arr = [a1].CurrentRegion.Offset(1)
  ReDim brr(1 To UBound(arr, 1), 20)
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 1) <> arr(j + 1, 1) Then
        For a = i To j
          For b = a To j
            If arr(b, 1) <> arr(b + 1, 1) Or arr(b, 2) <> arr(b + 1, 2) Then
              If b - a + 1 >= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10
                  If (b - a + 1) Mod k < n Then p = k: n = (b - a + 1) Mod k
                Next
              Else
                n = 0: p = (b - a + 1)
              End If
              For k = a To b - n Step p
                m = m + 2: cnt = cnt + 1: brr(m - 1, 0) = "组别:" & cnt
                For kk = k To k + p - 1
                  brr(m - 1, kk - k + 1) = arr(kk, 1)
                  brr(m, kk - k + 1) = arr(kk, 2)
              Next kk, k
              If n > 0 Then
                For k = b - n + 1 To b
                  brr(m - 1, k - (b - n + 1) + 1 + p) = arr(k, 1)
                  brr(m, k - (b - n + 1) + 1 + p) = arr(k, 2)
                Next
              End If
              a = b: Exit For
            End If
        Next b, a
        i = j: cnt = 0: Exit For
      End If
  Next j, i
  [d1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

评分

参与人数 1鲜花 +2 收起 理由
wtqzhjb + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 08:43 | 显示全部楼层
一把小刀闯天下 发表于 2019-2-12 07:16
'人数= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10

谢谢大师兄!厉害了

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 09:53 | 显示全部楼层
一把小刀闯天下 发表于 2019-2-12 07:16
'人数= 8 Then
                n = (b - a + 1) Mod 8: p = 8
                For k = 9 To 10

师兄,能不能这样改一下,直接把各班男生女生的组序号,填写在指定的列即可?(位置变了)谢谢你,麻烦你了哦

按照性别分组的最优方案.rar

12.7 KB, 下载次数: 2

直接填序号

TA的精华主题

TA的得分主题

发表于 2019-2-12 10:07 | 显示全部楼层
wtqzhjb 发表于 2019-2-11 22:34
换句话说,就是能用8、或9、或10人一组任一方案(或三者结合)刚好分完这一性别的学生,就采用这一方案;如 ...

15人是1组15人。还是2组8、7人?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-2-19 23:00 , Processed in 0.097787 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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