急求:用Eexcel VBA进行小学一年级分班程序

要班级人数和男女平衡。
分班前可以先手工指定部分学生入班,在分班时不影响这些学生的排班。
如有不清楚可加342347969

这事我承担了。
请把初始登记表的格式贴出来,主要是想了解从第几行开始是名单,性别在哪列?还有班名放在哪列。
另外想问一下,分班后是每个班另起一张表还是在一张表上标出班名?是想随机分班还是顺序分班。追问

列标:报名号,姓名,出生日期,性别,分班
数据行从第2行开始,分班后,每班一张表,要列出班名。分班要求如上:一要能有指定到班的功能,二要各班人数、性别均衡。请给我你的QQ,我加你

温馨提示:内容为网友见解,仅供参考
无其他回答

急求:用Eexcel VBA进行小学一年级分班程序
这事我承担了。请把初始登记表的格式贴出来,主要是想了解从第几行开始是名单,性别在哪列?还有班名放在哪列。另外想问一下,分班后是每个班另起一张表还是在一张表上标出班名?是想随机分班还是顺序分班。

急需:一年级新生均衡分班excel VBA代码。
1.增加一个模块,命名为“我的模块”ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块"系统常量vbext_ct_StdModule=1 2.增加一个类模块,命名为“我的类”ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类"vbext_ct_ClassModule=2 ...

小学Excel分班,家长要挑班,领导让我解决。 我想按出生日期蛇形排列123...
要掩人耳目就不能用函数、公式和辅助列,只能用vba宏,辅助列和公式函数都是可以看见的,只能按照宏里的代码执行,用抽取随机数的方式确定,从中就可以做手脚了,反正vba代码人家是看不见的,当然了懂行的人也能进入代码查到哦(除非你把代码加密了),你想不想冒这个险?

怎么利用excel表格进行学生摇号分班?
在Excel中进行学生摇号分班的方法如下:1. 创建学生名单:在Excel中创建一个表格,每一行代表一个学生,每一列代表一个信息字段,例如学生姓名、学号、性别等。2. 添加随机数列:在表格中新增一列,用于生成随机数。可以使用Excel的随机函数,例如RAND()函数,在每个单元格中生成一个随机数。3. 排序数...

excel表格班级顺序混乱怎么分班excel表格班级顺序混乱怎么分班排序
首先需要对表格中的班级进行分类,例如按照年级和科目进行分类。然后,可以使用Excel中的筛选功能,将同一班级的学生筛选出来,并将其移动到新的工作表中。在移动学生的过程中,需要注意确保每个班级中的学生数量相对均衡。如果班级数量较多,可以考虑使用Excel中的宏或VBA程序来自动化分班过程。最后,需要检查...

excel中怎么样按某一列的数据自动分成几张表格(要在不同的工作簿中vba...
1 下载附件,点击按钮 2 按要求根据C列在本工作簿路径下创建N个工作簿并导入有关数据,新创建的工作簿按班级名称命名 3 不明白hi我

求excel 高手 用VBA\/宏 实现将sheet1筛选后的内容粘贴至sheet2_百度...
程序如下,希望你喜欢:Sub Run_Sort_Copy()On Error GoTo ErrExit Dim strSheetName_1 As String, strSheetName_2 As String Dim iClass As Long, iMaxRow As Long, iRow As Long, iNewRow As Long Application.ScreenUpdating = False strSheetName_1 = "Sheet1" '此处可修改表1名称 str...

用vb或者vba在excel里编一个排列组合的小程序
加上第二组B4个数,加上第三组C4个数,由三组中去除的数组成一个新的6个数字的组合,最后把所有取得的组合罗列出。是什么意思?第4,并判断组合中的数相加是否大于D4小于E4格子的值,D4,E4最大值才为6 你将组合中的数字相加,明显是大于E4的。没看懂你的问题 ...

EXCEL中,我想用VBA代码实现 E列\/ F列\/ G列\/H列I列数据有条件输入,我...
修改了程序,是不是这样?试一下。Private Sub Worksheet_Change(ByVal Target As Range)H = Target.Row: L = Target.Column Hs = 3: He = Cells(60000, 3).End(xlUp).Row If He < Hs Then He = Hs Else He = He + 1 End If Lb = 11 Columns("D:D").NumberFormatLocal = ...

EXCEL中如何用VBA实现
方法\/步骤如下:1、双击打开桌面的EXCEL;2、单击右上角的OFFICE图标,找到EXCEL选项,单击打开;3、勾选在功能区显示“开发工具”选项卡,单击确定按钮完成修改。4、单击菜单栏的开发工具,然后找到Visual Basic单击打开便可以进行相关的VBA编程。

相似回答