A. 跪求高手幫我寫VBA程序,把所有股票(上證和深證等)當日和前5日收盤價、成交量和流通股列出來
這個功能在一般的股票軟體上自帶,不需要額外編寫程序或公式,我用的是通達信,操作步驟如下:打開軟體,進入板塊行情---點版面上方的「報表分析」---選擇「階段排行」---設置「起始日期」等---點「確定」---然後在板塊行情頁面,在上方任一顯示欄目上點右鍵,換成你想關注的基本欄目,如收盤價、成交量、流通盤、流通市值,即可。
股票公式專家團為你解答,希望能幫到你,祝投資順利。
B. 在EXCEL里用VBA編程,對選擇的數據作股票圖
EXCEL折線圖根本就不可能有這么復雜,VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜,所以EXCEL不適合做這類工作。
C. 用vba求股票中一分鍾內的開、高、低、收
代碼如下,詳見附件
Private Sub CommandButton1_Click()
Dim Max!, Min!, Ro%, Rom%, T1 As Date, Tim As Date
Ro = 1: Rom = [A65536].End(3).Row + 1
Range("d2:h1441").ClearContents
For i = 2 To Rom
仿櫻 T1 = TimeSerial(Hour(Cells(i, 1)), Minute(Cells(i, 1)), 0)
If T1 <> Tim Then
Tim = T1
If Ro > 1 Then
備攜叢 Cells(Ro, 6) = Max
Cells(Ro, 7) = Min
Cells(Ro, 8) = Cells(i - 1, 2)
隱昌 End If
Ro = Ro + 1
If i < Rom Then Cells(Ro, 4) = Tim
Cells(Ro, 5) = Cells(i, 2)
Max = Cells(i, 2)
Min = Max
Else
If Cells(i, 2) > Max Then Max = Cells(i, 2)
If Cells(i, 2) < Min Then Min = Cells(i, 2)
End If
Next
End Sub
D. 怎麼利用vba獲取財經網上股票股價的實時數據
你願意出錢嗎,願意出錢的話我可以幫你寫
E. Excel vba股價數據怎麼自動更新
可以試試騰訊文檔「股票動態函數」,我現在看股票實時信息就是用的這個,非常好用!簡單無需學習、數據實時自動更新;看看我日常看的股票表:
F. EXCELVBA程序計算股票交易成功和失敗次數有的成功有的失敗,怎麼解決
編制vba,最好啟用嚴格檢測制度,所有使用的變數必須預先定義才可使用.
你的代碼錯誤在於變數定義和使用時的不是同一個, 仔細檢查
jiesuanjinemairu
Jisuanjinemairu
有沒有發現
建議在第一行加入:
Option Explicit '強制聲明變數
G. EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取,應用得好,可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式:漲幅=(現價-上一個交易日收盤價)/上一個交易日收盤價*100%
例如:某隻股票價格上一個交易日收盤價100,次日現價為110.01,就是股價漲幅為(110.01-100 )/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌,價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是:10%、-5%等 。
H. 怎樣用EXCEL 實時讀取 股票日線數據
定量分析的第一步,是獲取數據。
獲取股票歷史行情數據最方便的途徑,就是直接讀取股票行情軟體留在你電腦中的日線數據文件。
但如果不是程序員,電腦里一般不會有VB、VC之類的編程語言。
其實,大家的電腦中一般都有OFFICE。OFFICE中的EXCEL自帶了一個VBA語言的編程環境。功能也很強大。
我用EXCEL里的VBA編寫了一段代碼,讀取通達信股票行情軟體的日線文件。已經測試通過。
代碼如下。與愛好定量分析的朋友分享。
TypeMyType
a1AsLong'標示碼
a2AsLong'日期
a3AsSingle'開盤價
a4AsSingle'最高價
a5AsSingle'最低價
a6AsSingle'收盤價
a7AsSingle'成交金額
a8AsLong'成交量
EndType
Sub按鈕1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)
Get#File1,,b
Cells(i,1)=b.a1
Cells(i,2)=b.a2
Cells(i,3)=b.a3
Cells(i,4)=b.a4
Cells(i,5)=b.a5
Cells(i,6)=b.a6