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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 动态数组赋值

   

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


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

主题:动态数组赋值

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


加好友 发短信
等级:新手上路 帖子:15 积分:0 威望:0 精华:0 注册:2018/2/28 20:17:03
动态数组赋值  发帖心情 Post By:2018/3/18 23:52:15 [只看该作者]

想把变量赋值进数组,遍查资料无果,寻求帮助
Sub kdgdfuzhi()
vba_asx1=asx
vba_hlz1=hlz
if vba_asx1>0 then
vba_asx=vba_asx1
end if
if vba_hlz1>0 then
vba_hlz=vba_hlz1
end if
End Sub
上面的asx和hlz是自定义函数调过来的变量,想让它在大于0时也就是把vba_asx和vba_hlz往数组里添加。

sub kdgdshuzhu()
Dim kdgdsz()
ReDim kdgdsz(100000)
ReDim Preserve kdgdsz(100000)

写到这里就不知道该怎么写了,求助,感谢。

数组上界等我把值加进去在想法解决,现在关键是不知该怎样赋值。

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


加好友 发短信
等级:新手上路 帖子:15 积分:0 威望:0 精华:0 注册:2018/2/28 20:17:03
  发帖心情 Post By:2018/3/19 12:25:43 [只看该作者]

没人吗?等了一天一夜。
来人,谢谢!

 回到顶部