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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 关于VBA中的数组

   

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


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

主题:关于VBA中的数组

帅哥哟,离线,有人找我吗?
onlylovexue
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:475 威望:0 精华:0 注册:2012/2/29 14:13:13
请问,如果在股票合约列表里删除重复的自选股票  发帖心情 Post By:2012/10/15 15:05:01 [只看该作者]

请问下,

问题一:

dim  test = Array("");

中如何指定声明数组的大小,如使test 大小可以容纳 50个

 

 

问题二:

'创建一个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

 

在以上例子中  如何声明 数组存放的内容是字符串,现在只能存储 数字

 

 

感谢


 回到顶部
帅哥哟,离线,有人找我吗?
guotx2010
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:蜘蛛侠 帖子:1366 积分:5210 威望:0 精华:7 注册:2010/12/11 18:00:33
  发帖心情 Post By:2012/10/15 17:58:06 [只看该作者]

不要使用这个对象,直接使用数组就行了。

如:

dim aTest(10,20)就是定义一个10行20列的数组,这里的数据类型你可以随意存储,自己知道就行了。

 


 回到顶部
帅哥哟,离线,有人找我吗?
daishw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:46 积分:201 威望:0 精华:0 注册:2010/11/27 20:39:25
  发帖心情 Post By:2012/10/17 14:39:08 [只看该作者]

能否举一案例学习一下

 回到顶部
帅哥哟,离线,有人找我吗?
guotx2010
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:蜘蛛侠 帖子:1366 积分:5210 威望:0 精华:7 注册:2010/12/11 18:00:33
  发帖心情 Post By:2012/10/18 22:13:25 [只看该作者]

比如:

dim aTest(10,3)

for i=0 to 9

    aTest(i,0)=i                                 '存储数字型数据

    aTest(i,1)="AAA"                         '存储字符型数据

    aTest(i,2)=Cdate(time)                 '存储时间型数据

next

 

for i=0 to 9

    for j=0 to 2

        application.msgout aTest(i,j)        '显示输出数组的值

    next

next

 

 


 回到顶部