[已解决]帮我看看这个VBA

excel白兔

帮我看看哪错了 我是老师做的 怎么我的就不可以呢   我想应该是符号的哪有问题 但是不知道 我是初学得 老师多帮助

最佳答案

月排行榜 / 总排行榜

macky591

2011-12-22 10:18

excel白兔 发表于 2011-12-22 10:03
一定是我哪错了 找了半天没发现

=xlPinYin, dataoption1:=xlSortNormal   (红色部分改成1）1234的1       你的是L（小写的）

跳转到最佳答案楼层

wayy

问题是你想达到什么样的效果

macky591

Header      XlYesNoGuess 类型，可选。指定第一行是否包含标题。对数据透视表进行排序时，不能使用本参数。

XlYesNoGuess 可为以下 XlYesNoGuess 常量之一。

xlGuess 由 Microsoft Excel 确定是否有标题，如果有，确定标题位于何处。

xlContinuous 默认值。（应对整个区域进行排序）。

xlYes （不应对整个区域进行排序）。

wayy

1. Sub asdsa()
   
2. ds = Range("c65536").End(xlUp).Row
   
3. Range("c1:l" & ds).Sort Key1:=Range("c1"), Order1:=xlAscending, Header:=xlYes
   
4. End Sub

复制代码

excel白兔

这个是对比请老师们帮我看看 是我哪错了 我和老师的我看了是一样的 呀

excel白兔

wayy 发表于 2011-12-22 09:30

老师帮我看看 我哪错了 谢谢 我把附件在6楼那又更新了下 麻烦了

yuhe0008

Sub asdsa()
With Sheets("Sheet1")
    ds = .Range("c65536").End(xlUp).Row
         .Range("c1:l" & ds).Select
    Selection.Sort key1:=Range("c1"), order1:=xlAscending, header:=xlNo
    End With
    End Sub

excel白兔

macky591 发表于 2011-12-22 09:28
Header      XlYesNoGuess 类型，可选。指定第一行是否包含标题。对数据透视表进行排序时，不能使用本参数 ...

老师帮我看看 我在6楼那 又更新下 附件麻烦了

excel白兔

yuhe0008 发表于 2011-12-22 09:54
Sub asdsa()
With Sheets("Sheet1")
    ds = .Range("c65536").End(xlUp).Row

老师 你这代码是可以的  我现在 是弄成功了 但是我想知道的是  我为什么和老师做的一样的 老师做的就可以 我做的为什么就不可以  我想在想问的是  我哪错了 以后好不在犯      麻烦老师了

excel白兔

一定是我哪错了 找了半天没发现