『壹』 在EXCEL里用VBA編程，對選擇的數據作股票圖
EXCEL折線圖根本就不可能有這么復雜，VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜，所以EXCEL不適合做這類工作。
『貳』 vba程序是什麼
用代碼實現自動化，界面就是一個按鈕，點一下就完成了工資表的計算，或者自動生成工資條等。
這就是操作界面。
Private Sub CommandButton3_Click() '檢查填充
Dim skUArr(1 To 1000, 1 To 3)
Dim skUGs As Integer
Dim hH As Integer
Dim zlHH As Integer
Cells.Find(What:="Weight of box", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
zlHH = ActiveCell.Row '重量所在行號
skmGs = 0
hH = 5
Do While Trim(Cells(hH, 1).Text) <> ""
skUGs = skUGs + 1
skUArr(skUGs, 1) = Trim(Cells(hH, 1).Text)
skUArr(skUGs, 2) = Trim(Cells(hH, 4).Text)
skUArr(skUGs, 3) = Cells(hH, 10).Value
hH = hH + 1
Loop
Dim fName As String
Dim SBook As Workbook
Call SelectFile(fName)
Set SBook = Workbooks.Open(fName)
Dim M_sku As String, M_fnSku As String, M_qty As Integer
With SBook.Sheets(1)
For I = 1 To skUGs
M_sku = Trim(.Cells(5 + I - 1, 1).Text)
M_fnSku = Trim(.Cells(5 + I - 1, 4).Text)
M_qty = .Cells(5 + I - 1, 9).Value
If skUArr(I, 1) <> M_sku Then
MsgBox ("第" & I & "條記錄的SKU不一致！")
Exit Sub
End If
If skUArr(I, 2) <> M_fnSku Then
MsgBox ("第" & I & "條記錄的FNSKU不一致！")
Exit Sub
End If
If skUArr(I, 3) <> M_qty Then
MsgBox ("第" & I & "條記錄的QTY不一致！")
Exit Sub
End If
Next I
End With
Dim qtyArr() As Integer
Dim boxGs As Integer
Dim boxArr()
With ThisWorkbook.Sheets(1)
boxGs = .Cells(4, 200).End(xlToLeft).Column
ReDim qtyArr(1 To skUGs, 1 To boxGs)
ReDim boxArr(1 To 4, 1 To boxGs)
'讀取數量
For I = 1 To skUGs
For J = 1 To boxGs
qtyArr(I, J) = .Cells(5 + I - 1, 12 + J - 1).Value
Next J
Next I
'讀取box
For I = 1 To 4
For J = 1 To boxGs
boxArr(I, J) = .Cells(zlHH + I - 1, 12 + J - 1).Value
Next J
Next I
End With
'填充
With SBook.Sheets(1)
'.Cells(5, 12).Resize(skUGs, boxGs) = qtyArr
'.Cells(zlHH, 12).Resize(4, boxGs) = boxArr
For I = 1 To skUGs
For J = 1 To boxGs
If qtyArr(I, J) > 0 Then
.Cells(5 + I - 1, 12 + J - 1) = qtyArr(I, J)
End If
Next J
Next I
For I = 1 To 4
For J = 1 To boxGs
.Cells(zlHH + I - 1, 12 + J - 1) = boxArr(I, J)
Next J
Next I
End With
SBook.Save
MsgBox ("檢查結果OK,填充完成！")
End Sub
這是其中一個按鈕的代碼，供參考。
『叄』 跪求高手幫我寫VBA程序，把所有股票（上證和深證等）當日和前5日收盤價、成交量和流通股列出來
這個功能在一般的股票軟體上自帶，不需要額外編寫程序或公式，我用的是通達信，操作步驟如下：打開軟體，進入板塊行情---點版面上方的「報表分析」---選擇「階段排行」---設置「起始日期」等---點「確定」---然後在板塊行情頁面，在上方任一顯示欄目上點右鍵，換成你想關注的基本欄目，如收盤價、成交量、流通盤、流通市值，即可。
股票公式專家團為你解答，希望能幫到你，祝投資順利。
『肆』 EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取，應用得好，可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式：漲幅=(現價-上一個交易日收盤價）/上一個交易日收盤價*100%
例如：某隻股票價格上一個交易日收盤價100，次日現價為110.01，就是股價漲幅為（110.01-100 ）/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌，價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是：10%、-5%等 。
『伍』 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秒刷新一次，可以改成你想要的數值。
這個是我錄制宏，再稍微修改下，幾分鍾完成的。
『陸』 Excel VBA代碼如何實現股票數據匯總
上截圖，說明你想要達到的效果，這樣才能弄。問題不描述清楚沒人能幫上你。
『柒』 求助VBA股票買賣決策編程
樓主這個有難度吧
關鍵是買賣決策
這個是根據什麼演算法能得出結論的
其他軟體有的，樓主了直接使用，考慮vba？
『捌』 如何用Excel VBA做股票量化交易系統標題文章
1 這個沒有現成的程序，有都是要收費的
2 可以在網上找一些資料自己研究，但估計回比較難找
3 excel獲取股票的交易信息這個網上有一些資料，但是控制交易好像是沒有的。
4 具體來看樓主是什麼需求
『玖』 怎麼利用vba獲取財經網上股票股價的實時數據
1 這種軟體一般都是花錢的，主要是涉及到xml文件的解析。
2 如果想自己研究那就網上搜集一些資料學習。
以下提供一些網路的資料供參考。具體自己的需求還要自己編寫程序。
https://..com/question/1834142973359770260.html
https://www.hu.com/question/49538066/answer/129694646
『拾』 求 EXCEL 自動獲取全部股票近幾天的收盤價的 VBA程序
我只會從安裝的本地文件下載的數據中獲得數據轉化成Excel的表格。