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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 请教高手,这个vba怎么写?

   

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


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

主题:请教高手,这个vba怎么写?

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


加好友 发短信
等级:论坛游民 帖子:452 积分:2342 威望:0 精华:0 注册:2012/8/3 15:30:55
请教高手,这个vba怎么写?  发帖心情 Post By:2013/7/16 13:52:48 [只看该作者]

我希望满足条件a(但不满足条件b)的情况下数组bk之后的每个bk【i】都赋值为1,直到满足条件b为止才赋值0.请问这个怎么写?

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


加好友 发短信
等级:论坛游民 帖子:452 积分:2342 威望:0 精华:0 注册:2012/8/3 15:30:55
  发帖心情 Post By:2013/7/16 14:58:55 [只看该作者]

高手在不在啊?

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


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2013/7/19 11:04:18 [只看该作者]

赋值直接用=就行了啊

先定义下你需要的变量


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


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

for i = 0 to ubound(bk)
    if a and not(b) then
 bk(i)=1
    else
         bk(i)=0
    end if
next

 回到顶部