一个奇葩的监考安排

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]