如何用Excel制作股票實時行情圖

制作實時股票行情圖，應包含如下內容：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

以上制作完成，保存後打開該表，可得到實用的股票行情圖，並可得到實時數據用於數據分析