[已解决]工作表名称依照最新日期作为排序

niko88819

日期最大最新往左开始排到右.......

日期一般格式为20151028,如果当天工作量多会变成这样20151028_1,20151028_2,20151028_3 ............

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-11 09:06

Sub SheetSort()
    Dim A(), i%
    ReDim A(1 To Sheets.Count)
    For i = 1 To UBound(A)
        A(i) = Sheets(i).Name
    Next i

    Call SelectionSort(A)
    For i = 1 To UBound(A)
         Sheets(A(i)).Move Sheets(i)
    Next i
    Sheets(i).Activate
End Sub

Sub SelectionSort(arr)
    Dim i&, j&, val, idx&
    For i = LBound(arr) To UBound(arr) - 1
        val = arr(i): idx = i
        For j = i + 1 To UBound(arr)
            If val > arr(j) Then val = arr(j): idx = j
        Next j
        If idx <> i Then arr(idx) = arr(i): arr(i) = val
    Next i
End Sub
1.rar (8.2 KB, 下载次数: 6)

2015-11-11 09:06 上传

点击文件名下载附件


最好上传Excel附件，以便测试。

跳转到最佳答案楼层

爱疯

Sub SheetSort()
    Dim A(), i%
    ReDim A(1 To Sheets.Count)
    For i = 1 To UBound(A)
        A(i) = Sheets(i).Name
    Next i

    Call SelectionSort(A)
    For i = 1 To UBound(A)
         Sheets(A(i)).Move Sheets(i)
    Next i
    Sheets(i).Activate
End Sub

Sub SelectionSort(arr)
    Dim i&, j&, val, idx&
    For i = LBound(arr) To UBound(arr) - 1
        val = arr(i): idx = i
        For j = i + 1 To UBound(arr)
            If val > arr(j) Then val = arr(j): idx = j
        Next j
        If idx <> i Then arr(idx) = arr(i): arr(i) = val
    Next i
End Sub
1.rar (8.2 KB, 下载次数: 6)

2015-11-11 09:06 上传

点击文件名下载附件


最好上传Excel附件，以便测试。

niko88819

超级版主真厉害,就是要这样,小妹小小要求,不要出现那错误提示,怎么改呢?

爱疯

Sheets(i).Activate
这句我怎么写成这样了，应该是选择第1个工作表，即如下
Sheets(1).Activate