这种调课要求不知道VBA能不能实现，求帮忙

jx928867128

512008404

注意，双击左键会进入编辑模式，此时无法操作窗体。要操作窗体需退出编辑模式。


这是用listbox控件做的，不会设置网格线，换行显示也未能实现，还请高手指教！

jx928867128

非常感谢好心人的帮忙，我测试了下，发现课程与班级不分行显示没什么关系，但如果没有网格线，很难一眼看出课程所在的节次，期待群里的好心人继续帮忙想想办法，另外发现了个错误，就是第二个备注中说明的问题没有实现，当前的程序得出的结果是不对的（会把下一行的心理/心理当成教师名了，事实上是表示双周上心理课，任课老师的名字叫心理），正确的结果是点了这种单元格后要同时显示2位老师的课表出来（曹天宇和心理）

jx928867128

本贴继续求帮忙

3190496160

Private Sub UserForm_Initialize()
Dim ar As Variant
Dim br()
rr = Array("节次", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")
With Sheets("汇总")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(4, Columns.Count).End(xlToLeft).Column
    ar = .Range(.Cells(1, 1), .Cells(r, y))
    For j = 0 To UBound(rr)
        ListView1.ColumnHeaders.Add , , rr(j), 90 'Sheets("物料库存数据").Cells(3, j).Width
    Next
    ListView1.View = lvwReport
    ListView1.FullRowSelect = True
    ListView1.Gridlines = True
    ReDim br(1 To 14, 1 To 8)
    br(1, 1) = "节次"
    For j = 2 To 14
        br(j, 1) = ar(4, j)
    Next j
    zd = ActiveCell.Value
    xm = Split(zd, Chr(10))(1)
    y = 1
    For j = 2 To UBound(ar, 2) Step 13
        y = y + 1
        For s = j To j + 12
            If IsNumeric(ar(4, s)) Then
                xh = ar(4, s) + 2
            ElseIf ar(4, s) = "早读" Then
                xh = 2
            ElseIf InStr(ar(4, s), "晚") > 0 Then
                xh = Right(ar(4, s), 1) + 11
            End If
            For i = 5 To UBound(ar)
                If ar(i, s) <> "" Then
                    If InStr(ar(i, s), Chr(10)) > 0 Then
                        If InStr(ar(i, s), xm) > 0 Then
                            br(xh, y) = Split(ar(i, s), Chr(10))(0) & ar(i, 1)
                        End If
                    End If
                End If
            Next i
        Next s
    Next j
    For i = 2 To UBound(br)
        Set Itm = ListView1.ListItems.Add
        Itm.text = br(i, 1)
        For j = 2 To UBound(br, 2)
            Itm.SubItems(j - 1) = br(i, j)
        Next j
   Next i
End With
End Sub

3190496160

调课模式.rar (240.36 KB, 下载次数: 25)

2024-4-5 10:57 上传

点击文件名下载附件

3190496160

单双周课程的问题，没有考虑，
我在单位也是搞教务工作的，单双周课程像目前这样的模式，是不可取的的，当然，这是指个人的拙见而已

jx928867128

3190496160 发表于 2024-4-5 10:57

谢谢老师的多次帮忙，我测试发现如果每天的课节数增加或减少后程序报错

3190496160

jx928867128 发表于 2024-4-5 12:10
谢谢老师的多次帮忙，我测试发现如果每天的课节数增加或减少后程序报错

论坛是做义务的，所以，任何人写代码，都只能是针对你上传的附件来写的，不可能会考虑通用性，
再说了，你也没实现说清楚每天的课程节数会增加或者减少的，
再者，一个学校每天的课程节数应该是不会改变的吧

jx928867128

3190496160 发表于 2024-4-5 12:32
论坛是做义务的，所以，任何人写代码，都只能是针对你上传的附件来写的，不可能会考虑通用性，
再说了， ...

感谢朱老师的无私帮忙，万分感谢，我再次下载了附件看了下，这个需求我表达清楚了，我学校每年会排四次课，前半个学期每天的节次和后半个学期的节次不同，还有高三补课表每天的节次与正常上课的节次也不同。