[已解决]降序

642070295

麻烦各位大侠帮看一下附件中的代码，运行后为什么没有实现降序？ 附件.rar (21.13 KB, 下载次数: 7)

2014-3-31 20:50 上传

点击文件名下载附件    先谢了！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-31 20:56

1. With Sheets("图表")
   
2.     .Range("a1").CurrentRegion.Sort Key1:=.Range("b1"), Order1:=xlDescending, Header:=xlNo
   
3. End With
   

复制代码

跳转到最佳答案楼层

dsmch

1. With Sheets("图表")
   
2.     .Range("a1").CurrentRegion.Sort Key1:=.Range("b1"), Order1:=xlDescending, Header:=xlNo
   
3. End With
   

复制代码

qh8600

Private Sub CommandButton1_Click()
    With Sheets("图表")
        .Columns("A:B").Sort Key1:=.Range("b1"), Order1:=xlDescending, Header:=xlNo
    End With
End Sub

642070295

qh8600 发表于 2014-3-31 21:01
Private Sub CommandButton1_Click()
    With Sheets("图表")
        .Columns("A:B").Sort Key1:=.Ran ...

请教一下，为什么用range不行呢？