以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  动态数组赋值  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=162154)
--  作者：wsuong
--  发布时间：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
--  发布时间：2018/3/19 12:25:43
--  
没人吗？等了一天一夜。
来人，谢谢!