一个奇葩的监考安排

djk1020

准提部林 发表于 2024-5-5 12:09
這是配對檢查...放在[监考安排]表執行//
Sub Test_TTT()
Dim Arr, xD, i&, j%, T1$, T2$, X1$, X2$

字典功能好强大，总算搞明白了。
是不是应改为这个：
        If xD(X1) Then
           Union(Cells(xD(X1), xD(X1 & "j")).Resize(1, 2), Cells(i, j).Resize(1, 2)).Interior.ColorIndex = 8
        End If
        If xD(X2) Then
           Union(Cells(xD(X2), xD(X2 & "j")).Resize(1, 2), Cells(i, j).Resize(1, 2)).Interior.ColorIndex = 8
        End If

准提部林

djk1020 发表于 2024-5-5 22:18
字典功能好强大，总算搞明白了。
是不是应改为这个：
        If xD(X1) Then

是的,
有將Arr改變範圍, 卻忘了改這裡~~

longwin

感谢指正，程序中确实有错误，不过与男女老师数量无关，附件已修改。

amzxfgh9632

longwin 发表于 2024-5-6 19:53
感谢指正，程序中确实有错误，不过与男女老师数量无关，附件已修改。

老师您好，以前的条件不变，现要多加一个条件，监考教师是两个或几个学校抽来的教师，监考教师需要不同学校的教师组合（严禁同一个学校教师监考一个考场），麻烦您帮忙改一下，谢谢。

amzxfgh9632

准提部林 发表于 2024-5-6 14:13
是的,
有將Arr改變範圍, 卻忘了改這裡~~

老师，麻烦您也帮忙一下，谢谢，要多加一个条件。谢谢了！！！！！！！

longwin

amzxfgh9632 发表于 2024-5-7 09:45
老师您好，以前的条件不变，现要多加一个条件，监考教师是两个或几个学校抽来的教师，监考教师需要不同学 ...

[url=]监考安排 (version 1).zip[/url]

yjh_27

amzxfgh9632 发表于 2024-5-7 09:45
老师您好，以前的条件不变，现要多加一个条件，监考教师是两个或几个学校抽来的教师，监考教师需要不同学 ...

另开了帖子
监考均衡随机安排_自定义函数
https://club.excelhome.net/thread-1692281-1-1.html
(出处: ExcelHome技术论坛)

可测试一下，速度应该可接受。

amzxfgh9632

longwin 发表于 2024-5-7 13:08
监考安排 (version 1).zip

老师帮忙看下，多加几个学校又生成不了结果了，谢谢！！！！！！

yjh_27

amzxfgh9632 发表于 2024-6-19 14:00
老师帮忙看下，多加几个学校又生成不了结果了，谢谢！！！！！！

极限压力测试？
这是至少1女、至少1民中

amzxfgh9632

yjh_27 发表于 2024-6-20 22:26
极限压力测试？
这是至少1女、至少1民中

是的，老师，也可以这么理解。别一种情况是不同学校搭配。