内指定节次都有课就填色提示问题（问题已解决，正解在25楼））

shiruiqiang

再回头看，你的意思应该是根据《同一天指定节次有课》这两天去看周一的相同排课是否同时满足数量？其余排课不用管？如杨彤上5和下1这两节课是否对应，数量和课程都相对应才标色，周一还有其他的3节课不用？管？

jx928867128

shiruiqiang 发表于 2024-3-26 08:21
再回头看，你的意思应该是根据《同一天指定节次有课》这两天去看周一的相同排课是否同时满足数量？其余排课 ...

再次谢谢老师的关注，是您说的那个意思

jx928867128

本贴继续求帮忙

jx928867128

本贴一楼重做附件，请各位好心人帮忙看看

Tree.IM

jx928867128 发表于 2024-3-23 10:40
再次谢谢老师的多次帮忙，谢谢

看看是不是你想要的效果

jx928867128

Tree.IM 发表于 2024-3-30 18:17
看看是不是你想要的效果

谢谢好心人的帮忙，是我要的效果，我测试时发现如果每天安排的课节数增加或减少后程序不能正确标注（附件中是每天安排14节课，实际排课时有时一天安排的课节数会有变动（补课时节数会减少，高三复习时每天的节数会增加））

Tree.IM

程序逻辑是先标记1天中所有节次（14节）的，再循环14天，这里边14节、14天都可以按需求改。需要确定每天最大节次，以及需要排课的最大天数。

jx928867128

Tree.IM 发表于 2024-3-31 09:48
程序逻辑是先标记1天中所有节次（14节）的，再循环14天，这里边14节、14天都可以按需求改。需要确定每天最 ...

谢谢老师的再次回贴，实际排课时每天最多18节，最少是每天6节，排课的最大天数是30天（寒暑假期排课），最少是5天

jx928867128

Tree.IM 发表于 2024-3-31 09:48
程序逻辑是先标记1天中所有节次（14节）的，再循环14天，这里边14节、14天都可以按需求改。需要确定每天最 ...

Sub 标记()  '2024.3.30
Dim arr1
Dim s As Range
arr1 = Sheets("指定节次不能同时有课").UsedRange  'x,y
arr2 = Sheets("汇总").Range("a4:Go25")  'i,j
Sheets("汇总").Range("a4:Go25").Interior.Pattern = xlNone
MsgBox "原标记已清除，即将重新标记"
B = 2  '这个2是指星期一第一节课所在的列号
F = 8  '这个8是指星期一最后一节课后在的列号，如果节数有变动就修改这个列号。
For C = 0 To 27  ' 14天，如需30天的，用30*2-1
    For x = 2 To UBound(arr1)   ' 循环指定有课 姓名
    老师 = arr1(x, 1)
    Set s = Nothing
        For y = 2 To UBound(arr1, 2)    '节次
            If arr1(x, y) <> "" Then
            节次 = arr1(1, y)
                'For Z = 2 To UBound(arr2, 2) '找节次相同
                For Z = B To F '找节次相同
                    If arr2(1, Z) = 节次 Then   '取汇总表节次相同的列号
                        For V = 2 To UBound(arr2)   '标记汇总表老师相同的单元格
                            If InStr(arr2(V, Z), 老师) Then
                                If s Is Nothing Then
                                    Set s = Cells(V + 3, Z)
                                    Exit For
                                Else
                                    Set s = Union(s, Cells(V + 3, Z))
                                    Exit For
                                End If
                                
                            End If
                        Next
                    End If
                    If Not s Is Nothing Then
                        If s.Count = arr1(x, 16) Then '这个16是指辅助列所在的列号，如果辅助列列号有改动，就修改这个值。
                            s.Interior.Color = RGB(255, 0, 255)
                        End If
                    End If
                Next
            End If
        Next
    Next
B = B + 7 '这个7是指一天几节课，如果每天的课节数有变化就修改这个值。
F = F + 7 '这个7是指一天几节课，如果每天的课节数有变化就修改这个值.
C = C + 1
Next
MsgBox "DONE"
End Sub

老师好，我这样理解代码是对吗，如果对的话，以后我用时直接修改参数就行了

Tree.IM

是的，需要注意的是“指定节次不能同时有课”和“汇总表”中 节次的表结构要一致