[求助]如何做限制? 禁止移动,添加,删除SHEET?

taller

Sub SortShtByName()
    Dim nSht()
    n = Sheets.Count
    ReDim nSht(1 To n)
    For i = 1 To n
        nSht(i) = Sheets(i).Name
    Next
    Set sht = Sheets.Add
    With sht.Range("A1:A" & n)
        .Value = Application.WorksheetFunction.Transpose(nSht())
        .Sort Key1:=sht.Range("A1"), Order1:=xlAscending
        nSht() = Application.WorksheetFunction.Transpose(.Value)
    End With
    For i = 1 To n
        Sheets(nSht(i)).Move Before:=Sheets(i)
    Next
    Application.DisplayAlerts = False
    sht.Delete
    Application.DisplayAlerts = True
End Sub

LangQueS

按照taller版主在11楼的代码，排列工作表标签顺序出现问题，请taller版主继续解决。谢谢！

9rvl6VR1.zip (11.29 KB, 下载次数: 39)

2007-7-16 14:49 上传

点击文件名下载附件
[求助]如何做限制? 禁止移动,添加,删除SHEET?

taller

对于001之类的名称，工作表认为是数字，所以出错，试试

    With sht.Range("A1:A" & n)
        .NumberFormat = "@"
        .Value = Application.WorksheetFunction.Transpose(nSht())
        .Sort Key1:=sht.Range("A1"), Order1:=xlAscending
        nSht() = Application.WorksheetFunction.Transpose(.Value)
    End With

LangQueS

13楼的代码很好用，谢谢taller版主！！！

 

[em17]  [em24]  [em27]  [em28]

╰⊙∧⊙╯

QUOTE:

以下是引用taller在2007-7-16 17:38:19的发言：

对于001之类的名称，工作表认为是数字，所以出错，试试

    With sht.Range("A1:A" & n)
        .NumberFormat = "@"
        .Value = Application.WorksheetFunction.Transpose(nSht())
        .Sort Key1:=sht.Range("A1"), Order1:=xlAscending
        nSht() = Application.WorksheetFunction.Transpose(.Value)
    End With

对于这类数据位数不同的，如：表21，表9或sheet8,sheet12,sheet19来说还是出错，？？？请给出解决办法。谢谢！

fyd_excel

学习了。。

zjwypdshhd

谢谢,这个很有用

peter-chen

13楼的代码很好用，谢谢taller版主！！！

05050818

有用.但是好象并没起到禁止的作业

yzxfelix

什么情况，排序失败了吗