[已解决]修改锁定下的排序代码

c888

修改锁定下的排序代码.rar (10.71 KB, 下载次数: 74)

2011-1-30 09:45 上传

点击文件名下载附件
修改锁定下的排序代码!谢谢。

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-30 09:55

1. Sub 打乱排序()
   
2.     Sheet2.Unprotect
   
3.     Columns("aa:bc").Select
   
4.     Range("bc1").Activate
   
5.     Selection.Sort Key1:=Range("bc1"), Order1:=xlAscending, Header:=xlGuess, _
   
6.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   
7.         :=xlPinYin, DataOption1:=xlSortNormal
   
8.     Selection.Sort Key1:=Range("bc1"), Order1:=xlDescending, Header:=xlGuess, _
   
9.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   
10.         :=xlPinYin, DataOption1:=xlSortNormal
    
11.         Columns("Aa:bC").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp '如何修改这行代码使工作表在锁定状态下也能运行。
    
12.     Sheet2.Protect
    
13. End Sub

复制代码

跳转到最佳答案楼层

amulee

1. Sub 打乱排序()
   
2.     Sheet2.Unprotect
   
3.     Columns("aa:bc").Select
   
4.     Range("bc1").Activate
   
5.     Selection.Sort Key1:=Range("bc1"), Order1:=xlAscending, Header:=xlGuess, _
   
6.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   
7.         :=xlPinYin, DataOption1:=xlSortNormal
   
8.     Selection.Sort Key1:=Range("bc1"), Order1:=xlDescending, Header:=xlGuess, _
   
9.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   
10.         :=xlPinYin, DataOption1:=xlSortNormal
    
11.         Columns("Aa:bC").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp '如何修改这行代码使工作表在锁定状态下也能运行。
    
12.     Sheet2.Protect
    
13. End Sub

复制代码

老糊涂

学习老师代码