Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。 VBA里面没有现成的Sort方法可以使用,在ExcelVBA里面要对数组进行排序,现有的通常做法: 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_r("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_r("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_r("aa(‘" & temp & "’)") Debug.Print sortarr End Sub
Excel整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。 |