本文目录一览: 1、在EXCEL里用VBA编程,对选择的数据作股票图 2、...
EXCEL折线图根本就不可能有这么复杂,VBA画图取点与表格实际坐标之间对应又不确定和关系复杂,所以EXCEL不适合做这类工作。
一般网页上的数据都可以通过VBA进行抓取,应用得好,可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式:涨幅=(现价-上一个交易日收盘价)/上一个交易日收盘价*100%
例如:某只股票价格上一个交易日收盘价100,次日现价为110.01,就是股价涨幅为(110.01-100 )/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌,价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是:10%、-5%等 。
引用数据无效: 你使用那种方式引用的,用函数的话按F9就自动更新了。 如果是打开Excel,让数据实事更新,比较困难,只能基于vba的定时管理来刷新了。
我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。
sheet1里写:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
宏2
End Sub
模块1里写:
Sub 宏2()
'
' 宏2 宏
ActiveWorkbook.RefreshAll
If Sheet1.[G1] "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"
End Sub
亲测OK。
TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次,可以改成你想要的数值。
这个是我录制宏,再稍微修改下,几分钟完成的。
上一篇:益生股份股吧讨论(益生股份股吧)
发表评论