共27 条记录, 每页显示 10 条, 页签: [1] [2][3]

[浏览完整版]

标题：VBA基础

1楼

黄金精算师 发表于：2016/4/15 13:43:01

请问一下VBA怎么写

现价=IF05最新价

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

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

2楼

yukizzc 发表于：2016/4/15 14:31:45

GetReportData 方法

看下这个方法

3楼

黄金精算师 发表于：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楼

黄金精算师 发表于：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楼

黄金精算师 发表于：2016/4/18 14:20:10

这行

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

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

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

6楼

yukizzc 发表于：2016/4/18 14:44:19

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

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

7楼

黄金精算师 发表于：2016/4/19 9:04:37

谢谢，可以了

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

bk_TextBox20.text= (bk_TextBox5 - bk_TextBox13) / bk_TextBox13

8楼

黄金精算师 发表于：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

9楼

yukizzc 发表于：2016/4/19 10:30:47

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

转换下文本框格式

10楼

黄金精算师 发表于：2016/4/19 14:00:23

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

price1 = CDbl(bk_TextBox2.text)

price2 = CDbl(bk_TextBox14.text)

bk_TextBox12.text= (price1-price2)/price2

共27 条记录, 每页显示 10 条, 页签: [1] [2][3]