以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  vba当中如何排序?  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=76501)

--  作者:啊东西
--  发布时间:2015/3/16 13:24:32
--  vba当中如何排序?
假如我现在在后台vba中通过全局变量取得了很多的值,如下
iffactor=Document.Getextdata("iffactor")
tffactor=Document.Getextdata("tffactor")
agfactor=Document.Getextdata("AGfactor")
alfactor=Document.Getextdata("ALfactor")
aufactor=Document.Getextdata("AUfactor")
buxfactor=Document.Getextdata("BUXfactor")
CUfactor=Document.Getextdata("CUfactor")
FUfactor=Document.Getextdata("FUfactor")
HCfactor=Document.Getextdata("HCfactor")
RBfactor=Document.Getextdata("RBfactor")
RUfactor=Document.Getextdata("RUfactor")
WRfactor=Document.Getextdata("WRfactor")
ZNfactor=Document.Getextdata("ZNfactor")
AXfactor=Document.Getextdata("AXfactor")
Bfactor=Document.Getextdata("Bfactor")
BBfactor=Document.Getextdata("BBfactor")
Cfactor=Document.Getextdata("Cfactor")               
CSfactor=Document.Getextdata("CSfactor")
FBfactor=Document.Getextdata("FBfactor")
Ifactor=Document.Getextdata("Ifactor")
Jfactor=Document.Getextdata("Jfactor")
JDfactor=Document.Getextdata("JDfactor")
JMfactor=Document.Getextdata("JMfactor")
Lfactor=Document.Getextdata("Lfactor")
Mfactor=Document.Getextdata("Mfactor")
Pfactor=Document.Getextdata("Pfactor")
PPfactor=Document.Getextdata("PPfactor")
Vfactor=Document.Getextdata("Vfactor")
Yfactor=Document.Getextdata("Yfactor")
CFfactor=Document.Getextdata("CFfactor")
FGfactor=Document.Getextdata("FGfactor")
GNfactor=Document.Getextdata("GNfactor")
LRfactor=Document.Getextdata("LRfactor")
NAfactor=Document.Getextdata("NAfactor")
MEfactor=Document.Getextdata("MEfactor")
OIfactor=Document.Getextdata("OIfactor")
PMfactor=Document.Getextdata("PMfactor")
RIfactor=Document.Getextdata("RIfactor")
RMfactor=Document.Getextdata("RMfactor")
ROfactor=Document.Getextdata("ROfactor")
RSfactor=Document.Getextdata("RSfactor")
SRXfactor=Document.Getextdata("SRXfactor")
TAfactor=Document.Getextdata("TAfactor")
就是这些,如果我现在想对这些数值进行排序排出大小,并且得到某一个值是排序。应该怎么写?


--  作者:王锋
--  发布时间:2015/3/16 13:48:36
--  

使用我们的外部对象接口来实现排序

 

示例
\'创建一个Array数组对象并排序
Dim d \'创建一个变量
\'创建Array外部对象,将对象实例置变量d中
Set d = CreateObject("Stock.Array")
\'创建完Array对象后往其内部插入两个数据
d.AddBack(3.25)
d.AddBack(4.33)
d.AddBack(2.02)
\'按正序排列数组数据
d.Sort(0)
\'依次显示数组对象数据
For i = 0 To 2
MsgBox d.GetAt(i)
Next
set d = nothing


--  作者:啊东西
--  发布时间:2015/3/16 22:14:40
--  
您提供的这种方法应该是实现对数值的排序,最后返回的是数值,但是我现在是想通过这些 iffactor背后所代表的数值进行排列,但是最终想得到的结果是排序好的变量,而不是数值,这个应该怎么办??我希望得到的结果是 FUfactor     iffactor  这些东西以及他们的顺序,这个应该怎么办??
--  作者:王锋
--  发布时间:2015/3/17 11:02:35
--  
没有完全明白您的意思