分班

wzsy2_mrf

有人挖苦我无能，我没有说你啊，感谢你帮助我哦
——————————————————————————————————————————————
我只不过指出一些人不是抱着交流与学习的态度，而是怀着强乞代码的动机这一事实而已！于是引来为人师表者的讨伐。“与你何关”？
与我无关就不能说了吗？是这么样教书育人的？红卫兵的那一代真是风范如昔。

达州张先生

wzsy2_mrf 发表于 2014-7-6 20:27
有人挖苦我无能，我没有说你啊，感谢你帮助我哦
——————————————————————————— ...

你无聊！你要是在那个年代，也许差不多！！！！！！！

达州张先生

wj2368 发表于 2014-7-6 17:47
..........................

你好，还需麻烦你一下，想在分班后面加两句行列调整
'行列距设置，未起作用 加的
        lk = Split("4.25,6.38,2.75,8.38,4.63,4.63,4.63,5.5,4.13,15.5,7.63,7.63,15.25,17.5,12.13,7.88,4.88", ",") '列距格式设置
        hg = Split("30.25,18,,13.50", ",") '行距格式设置
试着加进去，没有反应，不知还应如何连接才有效，请指教（添加语句请给我在帖中加红说明，便于我转到正式表中）。请见附件，谢谢！

wj2368

达州张先生 发表于 2014-7-7 10:47
你好，还需麻烦你一下，想在分班后面加两句行列调整
'行列距设置，未起作用 加的
        lk = Split(" ...

没有明白你的意思

达州张先生

wj2368 发表于 2014-7-7 11:10
没有明白你的意思

我将这段行列设置（想设置自动生成分班名册的固定格式）加入分班表按钮中，不能进行行列设置，也就是没有执行，可能是还要加执行语句，请帮忙看一下。谢谢！

达州张先生

hlly888 发表于 2014-7-6 19:24

谢谢你，看了你的分班方法是：12345,54321，一个顺序，一个倒叙，很好的。我想一个循环分发，如：3各班为：123,231,321。4个班为：1234,2341,3421,4321。5各班为：12345,23451,34521,45123,51234,。...
如21楼wj2368 的分发，能抽空改一下吗？谢谢1

hlly888

达州张先生 发表于 2014-7-7 16:06
谢谢你，看了你的分班方法是：12345,54321，一个顺序，一个倒叙，很好的。我想一个循环分发，如：3各班为 ...

S型方法主要是使总分尽量均匀，123,231,321方法，各班总分相差很多。
达不到：“男女人数均匀同时各班总分均匀”的目的。

达州张先生

hlly888 发表于 2014-7-7 17:04
S型方法主要是使总分尽量均匀，123,231,321方法，各班总分相差很多。
达不到：“男女人数均匀同时各班总 ...

现排名次，再在名次基础上将分男女分开，最后按此方法分配就可以解决了，只是麻烦一些，由于本人不懂程序，有这样的想法也无用，只有求助朋友们了，谢谢你！

达州张先生

hlly888 发表于 2014-7-7 17:04
S型方法主要是使总分尽量均匀，123,231,321方法，各班总分相差很多。
达不到：“男女人数均匀同时各班总 ...

录制了一段按名次、性别排序的宏：仿照编辑一下宏语言。谢谢！
Sub 排序分班()
    Sheets("报名信息").Select
    Rows("3:2003").Select '名次排序
    Selection.Sort Key1:=Range("R3"), Order1:=xlAscending, Key2:=Range("D3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
    '性别排序
    Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
    ActiveWindow.SmallScroll Down:=87
    Sheets("分班").Select
    Range("I15").Select
End Sub

hlly888

达州张先生 发表于 2014-7-7 17:24
录制了一段按名次、性别排序的宏：仿照编辑一下宏语言。谢谢！
Sub 排序分班()
    Sheets("报名信息") ...

你先手工（少量30个）计算一下，5  7   9 个班。
主要是在 S 转折处出现上下重复。
另外，男女分开后，男排列和女排列原顺序打乱，重新排列后又出现重复。