如何用Excel制作股票实时行情图
2个回答
推荐于2016-03-06
展开全部
制作实时股票行情图,应包含如下内容:1.股票数据表,2.股价图,3.实时从网上下载数据的功能
第一步:制作数据表,数据-导入外部数-新建WEB查询 写入该数据来源地址
第二步:制作股价图,先用公式按股价图要求的顺序引用到当前表,再插入图表-选股价图(第4种)调整图表
第三步:编写程序以实现实时刷新功能,可将以下程序按其要求的位置复制过去
'在模块中编写如下程序段用于刷新行情表,"00:00:10"表示刷新时间间隔,可根据需要进行调整
Dim 结束标记
Sub 刷新行情()
Sheets("日线数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
Sheets("分笔数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 结束标记
<> 1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub
'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上制作完成,保存后打开该表,可得到实用的股票行情图,并可得到实时数据用于数据分析
第一步:制作数据表,数据-导入外部数-新建WEB查询 写入该数据来源地址
第二步:制作股价图,先用公式按股价图要求的顺序引用到当前表,再插入图表-选股价图(第4种)调整图表
第三步:编写程序以实现实时刷新功能,可将以下程序按其要求的位置复制过去
'在模块中编写如下程序段用于刷新行情表,"00:00:10"表示刷新时间间隔,可根据需要进行调整
Dim 结束标记
Sub 刷新行情()
Sheets("日线数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
Sheets("分笔数据").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 结束标记
<> 1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 开始刷新()
结束标记 = 0
刷新行情
End Sub
Sub 结束刷新()
结束标记 = 1
End Sub
'在thisworkbook中编写如下代码用于打开该表时就启动行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上制作完成,保存后打开该表,可得到实用的股票行情图,并可得到实时数据用于数据分析
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询