⑴ 用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
⑵ 用excel vba 抓取網頁中 股票的財務數據 然後做分析 做好了可以加分哈
網抓已經OK。
原網頁源代碼寫的不太規范，幾處語法寫錯的地方解析時要特殊處理，花了點時間。
⑶ 跪求高手幫我寫VBA程序，把所有股票（上證和深證等）當日和前5日收盤價、成交量和流通股列出來
這個功能在一般的股票軟體上自帶，不需要額外編寫程序或公式，我用的是通達信，操作步驟如下：打開軟體，進入板塊行情---點版面上方的「報表分析」---選擇「階段排行」---設置「起始日期」等---點「確定」---然後在板塊行情頁面，在上方任一顯示欄目上點右鍵，換成你想關注的基本欄目，如收盤價、成交量、流通盤、流通市值，即可。
股票公式專家團為你解答，希望能幫到你，祝投資順利。
⑷ 在EXCEL里用VBA編程，對選擇的數據作股票圖
EXCEL折線圖根本就不可能有這么復雜，VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜，所以EXCEL不適合做這類工作。
⑸ Excel VBA代碼如何實現股票數據匯總
上截圖，說明你想要達到的效果，這樣才能弄。問題不描述清楚沒人能幫上你。
⑹ EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取，應用得好，可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式：漲幅=(現價-上一個交易日收盤價）/上一個交易日收盤價*100%
例如：某隻股票價格上一個交易日收盤價100，次日現價為110.01，就是股價漲幅為（110.01-100 ）/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌，價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是：10%、-5%等 。
⑺ vba能編股票聯動交易軟體嗎
早點死了這條心吧。。。不可能，就算做出來也只是山寨中的山寨，不會有人來用的。。
⑻ 如何用Excel VBA做股票量化交易系統（原創
先學會VBA和股票交易規則，再寫代碼來實現
⑼ 求助VBA股票買賣決策編程
樓主這個有難度吧
關鍵是買賣決策
這個是根據什麼演算法能得出結論的
其他軟體有的，樓主了直接使用，考慮vba？
⑽ VBA編程讀入數據
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'假設股票數據在1，2行，用戶輸入股票名稱的單元格為「A4」
Set objRange = Range("A4")
'判斷用戶是否在A4中進行輸入
If Not Intersect(Target, objRange) Is Nothing Then
strInput = objRange.Value
'調用HLookUp對數據進行檢索
With Application.WorksheetFunction
strOutput = .HLookup(strInput, Range("1:2"), 2, 0)
End With
'檢索失敗進行提示
If strOutput = "" Then
MsgBox "無效輸入"
'檢索成功,新建Excel文檔，將用戶輸入數據和查詢結果賦值給指定單元格
Else
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objWorkBook = objExcelApp.Workbooks.Add
Set objSheet = objWorkBook.Sheets.Item(1)
objSheet.Cells(1, 1).Value = strInput
objSheet.Cells(2, 1).Value = strOutput
objWorkBook.SaveAs "D:\test\Result.xls"
objWorkBook.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End If
End If
End Sub
不知道這樣是否是你想要的~