VBA 中可以使用Array.Sort()方法吗？

zj_rj05111 · 发表于 2010-5-6 15:21

lb_bn · 发表于 2010-5-6 15:37

不可以但可以调用javascript的sort方法

Sub bbb()
Dim ar1()
With Sheets("sheet1")
ar1 = .[a1].Resize(.[a65536].End(3).Row).Value
End With
Set js = CreateObject("scriptcontrol")
js.Language = "javascript"
js.addcode "function aa(bb){aa=bb.toArray();return aa.sort();}"
MsgBox js.codeobject.aa(ar1)
End Sub

复制代码

zj_rj05111 · 发表于 2010-5-6 16:59

你好，我的目的就是从一个路径下面找到所有的xls 文件的名字，并且这些名字的顺序，要和windows 里面放置的顺序一致。这样要去怎样实现呢？

alzeng · 发表于 2010-7-29 11:31

原帖由 jackyun 于 2010-7-29 11:13 发表

Recordset还可以这样用，第一次见到，很新颖，学习了。

GetRows 方法通常比一次读一笔记录的回圈要来得快些，方法好是好，但使用这方法时，必须确定Recordset未包含太多记录，这个总有点不爽，老是心惊胆战的 ...

RecordSet的容量有多大，不用多言；问题是Application.Transpose的能力有限，但通过其他方法可以避免这个应用上的缺陷。

jackyun · 发表于 2010-7-28 17:26

原帖由 lb_bn 于 2010-5-6 15:37 发表
不可以但可以调用javascript的sort方法Sub bbb()
Dim ar1()

With Sheets("sheet1")
ar1 = .[a1].Resize(.[a65536].End(3).Row).Value
End With

Set js = CreateObject("sc ...

请问javascript 支持不支持二维的排序。
如：
ar1 = .[a1].Resize(.[a65536].End(3).Row, 2).Value

可不可以进行以第二列为关键字的排序呢？

非常感谢

lb_bn · 发表于 2010-7-28 21:11

可以的。。。。
楼主可以上传些数据供测试一下。

lb_bn · 发表于 2010-7-29 01:05

睡不着，写个代码

Sub bbb()
Dim x&, y&, str1$, ar1()
ar1 = [a1].Resize([a65536].End(3).Row, 3).Value
x = UBound(ar1) - 1
y = UBound(ar1, 2) - 1
Set js = CreateObject("scriptcontrol")
js.Language = "javascript"
'按数字排序
'str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){return (x[1]==y[1])?(x[0]-y[0]):(x[1]-y[1])});}"
'按字符排序
str1 = "function aa(bb){var cc=new Array();aa=bb.toArray();for(i=0;i<=" & x & ";i++){cc[i]=new Array();for(j=0;j<=" & y & ";j++){cc[i][j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y){a=new String(x[0]);b=new String(x[1]);return (x[1]==y[1])?(a.localeCompare(y[0])):(b.localeCompare(y[1]))});}"
js.AddCode str1
MsgBox js.codeobject.aa(ar1)
End Sub

复制代码

jackyun · 发表于 2010-7-29 10:17

原帖由 lb_bn 于 2010-7-29 01:05 发表
睡不着，写个代码Sub bbb()
Dim x&, y&, str1$, ar1()

ar1 = [a1].Resize([a65536].End(3).Row, 3).Value

x = UBound(ar1) - 1
y = UBound(ar1, 2) - 1
Set js = CreateObj ...

非常厉害啊，非常佩服，运行代码确实得到以数组第二列为关键字的排序。

不过得出的结果只能是字符串吗，不能得到排序后的数组吗？

详见附件

alzeng · 发表于 2010-7-29 10:32

针对7楼的附件：

Sub ArrSort()
Dim Arr, k%, icl%
Dim Rs As Object
Arr = [A1].CurrentRegion
Set Rs = CreateObject("Adodb.Recordset")
For icl = 1 To UBound(Arr, 2)
Rs.Fields.append Arr(1, icl), 200, 32
Next
Rs.Open
For k = 1 To UBound(Arr)
Rs.addnew
For icl = 1 To UBound(Arr, 2)
Rs.Fields(Arr(1, icl)) = Arr(k, icl)
Next
Next
Rs.Sort = "年龄 Desc"
Arr = Application.Transpose(Rs.getrows)
Rs.Close: Set Rs = Nothing
End Sub

复制代码

jackyun · 发表于 2010-7-29 11:13

原帖由 alzeng 于 2010-7-29 10:32 发表
针对7楼的附件：
Sub ArrSort()
Dim Arr, k%, icl%
Dim Rs As Object

Arr = [A1].CurrentRegion
Set Rs = CreateObject("Adodb.Recordset")
For icl = 1 To UBound(Arr, 2)
Rs ...

Recordset还可以这样用，第一次见到，很新颖，学习了。

GetRows 方法通常比一次读一笔记录的回圈要来得快些，方法好是好，但使用这方法时，必须确定Recordset未包含太多记录，这个总有点不爽，老是心惊胆战的，不知它什么时候会爆掉...

现在主要是想研究JavaScript的sort功能，看能不能通过JavaScript来实现内存排序。

		自动登录	找回密码
密码			免费注册

[求助] VBA 中可以使用Array.Sort()方法吗？

回复 2楼 lb_bn 的帖子

回复 4楼 jackyun 的帖子