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函數根據股票代碼將自己的股票信息導入到查詢表中，並設置收益計算等項目。
這樣，每天打開查詢表，刷新，即可見到自己股票的最新信息和收益狀況了。