VBA基础 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

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

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

共有4868人关注过本帖树形打印复制链接主题：VBA基础

黄金精算师

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

VBA基础

Post By：2016/4/15 13:43:01 [只看该作者]

请问一下VBA怎么写

现价=IF05最新价

BID１＝IF０５当时的买１行情价格　　　　　‘读取到IF０5合约的买１行情价到　BID１取买1价

ASK1＝IF０５当时的卖１行情价格　　　　　‘读取到IF０5合约的卖１行情价到　ASK1 取卖1价

yukizzc

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30

Post By：2016/4/15 14:31:45 [只看该作者]

GetReportData 方法

看下这个方法

黄金精算师

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/15 15:11:32 [只看该作者]

好新的新手，不会用这指令，老编译不过

代码是这样写的

LastOpen ' 昨开价

LastHigh ' 昨高价

LastLow ' 昨低价

Open ' 取开盘价

High ' 取最高价

Low ' 取最低价

NewPrice ' 取最新价

Volume ' 取成交量(手)

Amount ' 取成交额(元)

BuyPrice1 ' 取买1价格

BuyVolume1 ' 取买1量

SellPrice1 ' 取卖1价

SellVolume1 ' 取卖1量

Sub TestReportData()

set report1=marketdata.getreportdata("IF05","ZJ")

application.msgout Cdate(time) & ",IF05最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1

End

' BID=买1价

' ASK=卖1价

黄金精算师

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/15 15:33:40 [只看该作者]

编译过了，但不会把他调到BID与ASK里，帮改一下可以吗

Sub TestReportData()

set report1=marketdata.getreportdata("IF05","ZJ")

application.msgout Cdate(time) & ",IF05最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1

End Sub

BID=买1价这个调不了

ASK=卖1价

黄金精算师

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/18 14:20:10 [只看该作者]

这行

set report1=marketdata.getreportdata("IF05","ZJ")

因为有很多一样的，想统一修改，想定居民下面这样，下面的不行，怎么可以做到？
品种=IF05
市场=ZJ

set report1=marketdata.getreportdata("品种","市场")

yukizzc

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30

Post By：2016/4/18 14:44:19 [只看该作者]

品种="IF05"
市场="ZJ"

set report1=marketdata.getreportdata(品种,市场)

黄金精算师

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/19 9:04:37 [只看该作者]

谢谢，可以了

我做了一个这样的运算，得出的结果有很多位小数点，这个会影响程序速度吗，要影响我只取小数点后4位怎么取

bk_TextBox20.text= (bk_TextBox5 - bk_TextBox13) / bk_TextBox13

黄金精算师

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/19 9:53:19 [只看该作者]

这个很特别，昨天一直运行都是对的，现在盘中不对了

bk_TextBox12.text= (bk_TextBox2 - bk_TextBox14) / bk_TextBox14 ' 这个结显示： -5.5657

bk_TextBox2 - bk_TextBox14约等于180 bk_TextBox14约等3200 盘中IF09行情

昨天显示结果为

-.55657

为什么会出现小数点移位这么多

bk_TextBox12.text= -180/3200 这样是对的结果-.556

bk_TextBox12.text= -180/bk_TextBox14 这样就不对了结果-5.56

yukizzc

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30

Post By：2016/4/19 10:30:47 [只看该作者]

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=54353&skin=0

转换下文本框格式

黄金精算师

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/4/19 14:00:23 [只看该作者]

是这样子用吗，这个结果也是不行的

price1 = CDbl(bk_TextBox2.text)

price2 = CDbl(bk_TextBox14.text)

bk_TextBox12.text= (price1-price2)/price2

下一主题 >> << 上一主题

总数 27 1 2 3 下一页

RSS2.0 | Xhtml无图版 | Xslt无图版 Powered By weistock 2012
页面执行时间 0.16797 秒, 5 次数据查询

主题：VBA基础