[已解决]新手VBA求助

zhongyong6899

运行时错误“9”   下标越界应该如何处理？

327718098

zhongyong6899 发表于 2017-4-17 16:35
运行时错误“9”   下标越界应该如何处理？

引用了不存在的数组元素，请上传附件

zhongyong6899

请教高手：谢谢您前面的指导。
1.程序执行后时间列应该按照升序排列（是整行排，非单独排）。例如：全部工作表中的（019---四班----语文---赵老师----2017年4月19日），执行程序分配后的四班（019---语文---赵老师----2017年5月5日）；还有九班的040和041时间都不对？
万分感谢..........................您的耐心指导


2.为什么九班执行程序后时间列升序排序有错误（将2017年5月9日放在了最前面？）

327718098

zhongyong6899 发表于 2017-4-17 22:48
请教高手：谢谢您前面的指导。
1.程序执行后时间列应该按照升序排列（是整行排，非单独排）。例如：全部工 ...

应该没问题了

zhongyong6899

Sub test1()
Dim bj As Range, hh As Long, sht As Worksheet, wb As String
For Each sht In Worksheets
        If sht.Name <> "全部" Then
            Worksheets("全部").[a1:e1].Copy sht.[a1]
            sht.[a1].CurrentRegion.Offset(1).Clear
            Worksheets("全部").[a2:e2].Copy sht.[a2]
        End If
        Next
hh = 3
wb = Sheet1.Cells(hh, "B")
Do While wb <> ""
Set bj = Worksheets(wb).Cells(Rows.Count, 1).End(3).Offset(1, 0)
Sheet1.Cells(hh, "A").Resize(1, 5).Copy bj
hh = hh + 1
wb = Sheet1.Cells(hh, "B")
Loop
b = 0
For Each sht In Worksheets

        With sht
            If .Name <> "全部" Then
                .Columns(2).Delete   '删除第2列
                .Columns(2).ColumnWidth = 20      '设置第二列的宽度
                .Range("A:A,C:C,D:D").ColumnWidth = 15     '设置第一列、第三列的宽度
                x = Array("编辑1", "编辑2", "编辑3", "编辑4", "编辑5", "编辑6", "编辑7", "编辑8", "编辑9")  '表头内容自己编辑
                .[a1].Resize(1, 4) = x(b)
                .Range("A1:D1").Font.Size = 11   '第1行设置11号字体
                .Rows(1).RowHeight = 50       '第1行的行高
               
                With .[a1].CurrentRegion.Offset(1)   '设置下面各行
                    .Font.Size = 10   '10号字体
                    .RowHeight = 30       '行高
                    .WrapText = True        '自动换行
                End With
                 b = b + 1
            End If
        End With
    Next
    For Each sht In Worksheets
    If sht.Name <> "全部" Then
    sht.Range(sht.Cells(3, 1), sht.Cells(sht.Cells(Rows.Count, 1).End(3).Row, 4)).Sort key1:=sht.Cells(3, 4), Order1:=xlAscending, Header:=xlNo
    End If
    Next
End Sub

zhongyong6899

高手327718098  如何修改上面的语句可以冻结上面附件的一班-----------------------九班  九个工作表的前两行。谢谢

327718098

zhongyong6899 发表于 2017-4-18 11:18
高手327718098  如何修改上面的语句可以冻结上面附件的一班-----------------------九班  九个工作表的前两 ...

您的冻结是指？