欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → vba当中如何排序？

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2735人关注过本帖树形打印复制链接

主题：vba当中如何排序？
帅哥哟，离线，有人找我吗？
啊东西
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：63 积分：0 威望：0 精华：0 注册：2014/8/15 10:20:25 		vba当中如何排序？  发帖心情 Post By：2015/3/16 13:24:32 [只看该作者]

假如我现在在后台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")
就是这些，如果我现在想对这些数值进行排序排出大小，并且得到某一个值是排序。应该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：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

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
啊东西
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：63 积分：0 威望：0 精华：0 注册：2014/8/15 10:20:25 		  发帖心情 Post By：2015/3/16 22:14:40 [只看该作者]

您提供的这种方法应该是实现对数值的排序，最后返回的是数值，但是我现在是想通过这些 iffactor背后所代表的数值进行排列，但是最终想得到的结果是排序好的变量，而不是数值，这个应该怎么办？？我希望得到的结果是 FUfactor     iffactor  这些东西以及他们的顺序，这个应该怎么办？？

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2015/3/17 11:02:35 [只看该作者]

没有完全明白您的意思


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 5 次数据查询