『壹』 在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的表格。