1. 怎么利用vba获取财经网上股票股价的实时数据
你愿意出钱吗，愿意出钱的话我可以帮你写
2. 请教VBA自动刷新问题！
SubWorksheet_Change(ByValTargetAsRange)
羡中DimcellAsRange,iAsByte
ForEachcellIn兄旅山Target
Withcell
If.Column<>3ThenExitSub
i=Len(.Value)
Ifi<>0Andi<>0Andi<>11Then
.Interior.ColorIndex=3
Else
.Interior.Pattern=xlNone
EndIf
EndWith
Nextcell
EndSub
亲，请参见镇如以上代码，在你的基础上稍加修改的哦。
3. 求 EXCEL 自动获取全部股票近几天的收盘价的 VBA程序
我只会从安装的本地文件下载的数据中获得数据转化成Excel的表格。
4. Excel VBA 自动刷新问题！请高手指教！
①、在工具－选项－重新计算里，有自动重算选项，点选它，就能自动刷新。
②、有些函数公式在设定为自动重算的状态下仍然不能自动刷新，因裂信为这些公式中包含非易失性函数的跨工作表、工作薄的引用。这时，需要根据公式得到的结果添加易失性函数来强制其自动刷新。通常，对于得到的结果为文本的公式，就在其后添加：&T(NOW())，而对结果为数值的公式，添加：+ISTEXT(NOW())
③、悉信VBA中有控制自动重算的功能。你在手动修改自动重算的设置的同时录制宏，就能看到它的代码：
Application.Calculation = xlAutomatic'设置为自动重算睁源轮
Application.Calculation = xlManual'设置为手动重算
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秒刷新一次，可以改成你想要的数值。
这个是我录制宏，再稍微修改下，几分钟完成的。
6. EXCEL如何用VBA自动获取每个股票近几天的涨幅
一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是：10%、-5%等 。
7. excel调用股票实时价格
1、你想要哪只股？
2、直接给你公式你会修改吗？
3、想做到适合你自己，就只能教你怎么调用！
4、你以为是EXECL本身的数据处理啊！！！
以下内容是教你怎么调用，爱用不用拉倒，问个问题还限定这个限定哪个的，别人教你怎么去弄还弄不出来，也不去思考思考：
1、打开EXECL软件，找到“数据---来自网站”；
2、点击后会弹出一个对话窗口，在地址旁边的输入框处输入网站的地址；
3、查找网站的地址，你打开网易或搜狐，里面有股票财经，进入后输入你想要查询的股票代码，会得到该股票查询的网站地址；（将该地址复制到上面那点）；
4、在对话窗口里面，你会看到整个网页的信息，并且在网页每个内容框前面都会有个箭头；
5、在你需要的信息那个框，点击那个箭头，会变成一个勾，说明你已经选择该项；
6、至于对话窗口里面选项的每个设定，有什么功能，自行单个去理解；
7、点击导入，就可以得到来自网站上的数据；
8、每个数据的来源都是有端口的，不是你想用公式就用公式，有时需要引用；
9、如果你需要用到统计，现在你可以在EXECL里面用函数进行操作了；
10、不知道是否所有的EXECL版本都支持；
8. vba中怎么能定时刷新
LS的，好像sleep不能用的吧，sleep是停止所有操作进入休眠！
可以做腔孙镇一个循环,0.5秒取系凯蚂统时间time也是不行的，用API函数
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Sub Macro1()
Dim oldtime, nowtime As Long
Dim sys As SYSTEMTIME
Dim strline As String
GetLocalTime sys
oldtime = CLng(CStr(sys.wSecond) & CStr(sys.wMilliseconds))
i = 1
While 1 = 1
GetLocalTime sys
nowtime = CLng(CStr(sys.wSecond) & CStr(sys.wMilliseconds))
If (oldtime - nowtime >= 500) Or (nowtime - oldtime) > 5000 Then
oldtime = nowtime
过程语伍粗句
i = i + 1
End If
DoEvents
Wend
End Sub
9. Excel vba股价数据怎么自动更新
可以试试腾讯文档「股票动态函数」，我现在看股票实时信息就是用的这个，非常好用！简单无需学习、数据实时念则自动更新；看看我日常看的股票表：
10. 如何将新浪网上的股票行情导入到excel中并实时更新
1、首先查找股票价格表的地址。
2、打开EXCEL表将光标置于A1,选“数据/导入外部数据/新建veb查询”，在地址栏输入股票价格表地址，“转到”，单击价格表旁黄色向右箭头，单击“导入”，即可将价格表导入EXCEL表。
3、将EXCEL表起名，保存。
4、光标放在新导入表格中，在“数据/导入外部数据/数据区域属性/数据控件”中，勾选“打开工作簿时自动刷新/确定”。
4、再在目录打开保存过的EXCEL表，点击“启用自动刷新”按钮，即可根据网上最新的股票数据予以刷新。
5、你还应进一步建立自己股票查询表，用VLOOKUP函数根据股票代码将自己的股票信息导入到查询表中，并设置收益计算等项目。
这样，每天打开查询表，刷新，即可见到自己股票的最新信息和收益状况了。