VBA中实现数组排序的多种方法
来源:互联网 发布:mac需要键盘膜吗 编辑:程序博客网 时间:2024/05/19 13:43
VBA里面没有现成的Sort方法可以使用,VBA里面要对数组进行排序,现有的通常做法:
1,通过单元格赋值以后利用工作表里的Sort方法进行排序,
2,通过SQL实现,也需要调用单元格区域存放数据,
3,直接写循环语句通过算法来实现。
除了上述方法以外,借助一些其他语言工具与VBA相结合,也能利用现成的排序功能来实现数组排序,而不需要借助表格。
例如JavaScript:
JavaScript里面也有Sort方法,可以拿来现成使用,示例代码如下:
Sub 文本升序()
Set js = CreateObject(“msscriptcontrol.scriptcontrol”)
js.Language = “javascript”
arr = Application.Transpose(Range(“A1:A10”))
temp = Join(arr, “,”)
js.addcode “function aa(bb){js=bb.split(‘,’);js.sort();return js;}”
sortarr = js.eval(“aa(‘” & temp & “’)”)
Debug.Print sortarr
End Sub
复制代码
Sub 文本降序()
Set js = CreateObject(“msscriptcontrol.scriptcontrol”)
js.Language = “javascript”
arr = Application.Transpose(Range(“A1:A10”))
temp = Join(arr, “,”)
js.addcode “function aa(bb){js=bb.split(‘,’);js.sort();js.reverse();return js;}”
sortarr = js.eval(“aa(‘” & temp & “’)”)
Debug.Print sortarr
End Sub
复制代码
Sub 数值升序()
Set js = CreateObject(“msscriptcontrol.scriptcontrol”)
js.Language = “javascript”
arr = Application.Transpose(Range(“A1:A10”))
temp = Join(arr, “,”)
js.addcode “function aa(bb){js=bb.split(‘,’);js.sort(function(a,b){return a-b;});return js;}”
sortarr = js.eval(“aa(‘” & temp & “’)”)
Debug.Print sortarr
End Sub
复制代码
Sub 数值降序()
Set js = CreateObject(“msscriptcontrol.scriptcontrol”)
js.Language = “javascript”
arr = Application.Transpose(Range(“A1:A10”))
temp = Join(arr, “,”)
js.addcode “function aa(bb){js=bb.split(‘,’);js.sort(function(a,b){return a-b;});js.reverse();return js;}”
sortarr = js.eval(“aa(‘” & temp & “’)”)
Debug.Print sortarr
End Sub
复制代码
.NET里面有SortedList类也可以用来实现排序,但需要系统支持Framework
示例代码如下:
Sub Sortlist()
Set objSortedlist = CreateObject(“System.Collections.Sortedlist”)
For i = 1 To 10
objSortedlist.Add Range(“A” & i).Value, Range(“A” & i).Value
Next i
For i = 0 To objSortedlist.Count - 1
Debug.Print objSortedlist.GetKey(i)
Next
End Sub
复制代码
除了SortedList类,还有ArrayList也可以用
示例代码如下:
Sub Arraylist()
Set objArrayList = CreateObject(“System.Collections.ArrayList”)
For i = 1 To 10
objArrayList.Add Range(“A” & i).Value
Next i
objArrayList.Sort
For i = 0 To objArrayList.Count - 1
Debug.Print objArrayList(i)
Next
End Sub
复制代码
还有其他什么好方法,欢迎大家支招。
- VBA中实现数组排序的多种方法
- awk 数组排序多种实现方法
- awk 数组排序多种实现方法
- awk 数组排序多种实现方法
- awk 数组排序多种实现方法
- 运用Python实现多种排序的方法
- 关于数组中排序方法的实现
- C# 的扩展方法在 LINQ 中实现数组排序
- 冒泡排序的多种方法
- CORBA中典型的的一个问题多种实现方法
- Visual C++中Tab View的多种实现方法
- android开发中单击事件的多种实现方法
- Sqrt的多种实现方法
- 数组中排序的一些方法,选择排序,冒泡排序,和数组中自己的方法
- 一种高效率的排序方法-归并排序的实现(主要解决matlab中多维数组排序的问题)
- PHP中二维数组的排序方法
- PHP中二维数组的排序方法
- PHP中二维数组的排序方法
- swift常用控件
- 各种排序算法的分析及java实现
- struts OgnlRunTimeException
- android-studio 快捷键
- 探索中国软件的智造之路
- VBA中实现数组排序的多种方法
- request
- 【JS】JavaScript引擎的内部运行机制
- 在线填写--关于时间的内容
- CDH 维护日志,集群查看
- Android-Sax解析与生成xml数据
- QWaitCondition解决打印日志卡的问题
- block回调的一点个人理解
- 给中国学生的第三封信:成功、自信、快乐