Ⅰ Excel VBA代碼如何實現股票數據匯總
上截圖，說明你想要達到的效果，這樣才能弄。問題不描述清楚沒人能幫上你。
Ⅱ 怎樣用Excel看股票如何看股票
首先打開一個Excel表格，輸入標題，比如我輸入的是「股票查詢」，
選中「股票查詢」下部的空格准備插入數據。首先選擇「數據」，然後選擇「來自網站」，
將自己經常看股票的網站網址輸入進彈出的對話框，並點擊轉到，
在出現的頁面中選擇要插入的數據區域，點擊「→」，然後點擊導入，
選擇當前單元格插入，如圖所示插入後的數據列：
選中數據區域，滑鼠右鍵點擊，在彈出的菜單中單擊「數據區域屬性」，
在彈出的對話框中選擇好刷新頻率，以及用新的數據覆蓋現有單元格等，
如果等不及自動刷新的話，可以右鍵單擊後選擇「刷新」，手動刷新查看數據，
Ⅲ Excel vba股價數據怎麼自動更新
引用數據無效： 你使用那種方式引用的，用函數的話按F9就自動更新了。 如果是打開Excel，讓數據實事更新，比較困難，只能基於vba的定時管理來刷新了。
Ⅳ 如何用VBA從WIND里取股票數據
首先 你需要有個萬德的帳號，因為取得股票也是需要excel登錄萬德插件的
Ⅳ 用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
Ⅵ 跪求高手幫我寫VBA程序，把所有股票（上證和深證等）當日和前5日收盤價、成交量和流通股列出來
這個功能在一般的股票軟體上自帶，不需要額外編寫程序或公式，我用的是通達信，操作步驟如下：打開軟體，進入板塊行情---點版面上方的「報表分析」---選擇「階段排行」---設置「起始日期」等---點「確定」---然後在板塊行情頁面，在上方任一顯示欄目上點右鍵，換成你想關注的基本欄目，如收盤價、成交量、流通盤、流通市值，即可。
股票公式專家團為你解答，希望能幫到你，祝投資順利。
Ⅶ VBA編程問題
親，試試這個：假設數據在Sheet1，公式在Sheet2；假設數據都是從Sheet1的A2開始，一共100行。
=SUM(SUMPRODUCT((Sheet1!A2:A100=A2)*(YEAR(Sheet1!B2:B100)=B2)*(Sheet1!C2:C100)))/SUMPRODUCT((Sheet1!A2:A100=A2)*(YEAR(Sheet1!B2:B100)=B2))
Ⅷ 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秒刷新一次，可以改成你想要的數值。
這個是我錄制宏，再稍微修改下，幾分鍾完成的。
Ⅸ 求VBA代碼運算得到行業指數數據
Ⅹ 求VBA代碼大全
1：打開所有隱藏工作表
2：循環宏
3：錄制宏時調用「停止錄制」工具欄
4：高級篩選5列不重復數據至指定表
5：雙擊單元執行宏(工作表代碼)
6：雙擊指定區域單元執行宏(工作表代碼)
7：進入單元執行宏(工作表代碼)
8：進入指定區域單元執行宏(工作表代碼)
9：在多個宏中依次循環執行一個（控制項按鈕代碼）
10：在兩個宏中依次循環執行一個並相應修改按鈕名稱（控制項按鈕代碼）
11：在三個宏中依次循環執行一個並相應修改按鈕名稱（控制項按鈕代碼）
12：根據A1單元文本隱藏/顯示按鈕（控制項按鈕代碼）
13：當前單元返回按鈕名稱（控制項按鈕代碼）
14：當前單元內容返回到按鈕名稱（控制項按鈕代碼）
15：奇偶頁分別列印
16：自動列印多工作表第一頁
17：查找A列文本循環插入分頁符
18：將A列最後數據行以上的所有B列圖片大小調整為所在單元大小
19：返回遊標所在行數20：在A1返回當前選中單元格數量
21：返回當前工作簿中工作表數量
22：返回遊標選擇區域的行數和列數
23：工作表中包含數據的最大行數
24：返回A列數據的最大行數
25：將所選區域文本插入新建文本框
26：批量插入地址批註
27：批量插入統一批註
28：以A1單元內容批量插入批註
29：不連續區域插入當前文件名和表名及地址
30：不連續區域錄入當前單元地址
31：連續區域錄入當前單元地址
32：返回當前單元地址
33：不連續區域錄入當前日期
34：不連續區域錄入當前數字日期
35：不連續區域錄入當前日期和時間
36：不連續區域錄入對勾
37：不連續區域錄入當前文件名
38：不連續區域添加文本
39：不連續區域插入文本
40：從指定位置向下同時錄入多單元指定內容
41：按aa工作表A列的內容排列工作表標簽順序
42：以A1單元文本作表名插入工作表
43：刪除所有未選定工作表
44：工作表標簽排序
45：定義指定工作表標簽顏色
46：在目錄表建立本工作簿中各表鏈接目錄
47：建立工作表文本目錄
48：查另一文件的所有表名
49：當前單元錄入計算機名
50：當前單元錄入計算機用戶名
51：解除所有工作表保護
52：為指定工作表加指定密碼保護表
53：在有密碼的工作表執行代碼
54：執行前需要驗證密碼的宏(控制項按鈕代碼)
55：執行前需要驗證密碼的宏()
56：拷貝A1公式和格式到A2
57：復制單元數值
58：插入數值條件格式
59：插入透明批註
60：添加文本
61：游標定位到指定工作表A列最後數據行下一單元
62：定位選定單元格式相同的所有單元格
63：按當前單元文本定位
64：按固定文本定位
65：刪除包含固定文本單元的行或列
66：定位數據及區域以上的空值
67：右側單元自動加5(工作表代碼)
68：當前單元加2
69：A列等於A列減B列
70：用於游標選定多區域跳轉指定單元(工作表代碼)
71：將A1單元錄入的數據累加到B1單元（工作表代碼）
72：在指定顏色區域選擇單元時添加/取消"√"（工作表代碼）
73：在指定區域選擇單元時添加/取消"√"（工作表代碼）
74：雙擊指定單元，循環錄入文本（工作表代碼）
75：雙擊指定單元，循環錄入文本（工作表代碼）
76：單元區域引用（工作表代碼）
77：在指定區域選擇單元時數值加1（工作表代碼）
78：混合文本的編號
79：指定區域單元雙擊數據累加（工作表代碼）
80：選擇單元區域觸發事件（工作表代碼）
81：當修改指定單元內容時自動執行宏（工作表代碼）
82：被指定單元內容限制執行宏
83：雙擊單元隱藏該行（工作表代碼）
84：高亮顯示行（工作表代碼）
85：高亮顯示行和列（工作表代碼）
86：為指定工作表設置滾動范圍（工作簿代碼）
87：在指定單元記錄列印和預覽次數（工作簿代碼）
88：自動數字金額轉大寫（工作表代碼）
89：將所有工作表的A1單元作為單擊按鈕（工作簿代碼）
90：鬧鍾——到指定時間執行宏（工作簿代碼）
91：改變Excel界面標題的宏（工作簿代碼）
92：在指定工作表的指定單元返回遊標當前多選區地址（工作簿代碼）
93：B列錄入數據時在A列返回記錄時間（工作表代碼）
94：當指定區域修改時在其右側的2個單元返回當前日期和時間（工作表代碼）
95：指定單元顯示游標位置內容（工作表代碼）
96：每編輯一個單元保存文件
97：指定允許編輯區域
98：解除允許編輯區域限制
99：刪除指定行
100：刪除A列為指定內容的行
1：打開所有隱藏工作表
Sub打開所有隱藏工作表()
DimiAsInteger
Fori=1ToSheets.Count
Sheets(i).Visible=True
Nexti
EndSub
2：循環宏
Sub循環()
AAA=Range("C2")
DimiAsLong
DimtimesAsLong
times=AAA
'times代表循環次數，執行前把times賦值即可(不可小於1，不可大於2147483647)
Fori=1Totimes
Call過濾一行
IfRange("完成標志")="完成"Then
ExitFor
'假如名為'完成標志'的命名單元的值等於'完成',則退出循環,假如一開始就等於'完成',則只執行一次循環就退出
'IfSheets("傳送參數").Range("A"&i).Text="完成"Then
ExitFor
'假如某列出現"完成"內容則退出循環
Nexti
EndSub
3：錄制宏時調用「停止錄制」工具欄
Sub錄制宏時調用停止錄制工具欄()
Application.CommandBars("StopRecording").Visible=True
EndSub
4：高級篩選5列不重復數據至指定表
Sub高級篩選5列不重復數據至Sheet2()
Sheets("Sheet2").Range("A1:E65536")=""'清除Sheet2的A:D列
Range("A1:E65536").AdvancedFilterAction:=xlFilterCopy,CopyToRange:=Sheet2.Range(_
"A1"),Unique:=True
Sheet2.Columns("A:E").SortKey1:=Sheet2.Range("A2"),Order1:=xlAscending,Header:=xlGuess,_
OrderCustom:=1,MatchCase:=False,Orientation:=xlTopToBottom,SortMethod_
:=xlPinYin
EndSub
5：雙擊單元執行宏(工作表代碼)
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
IfRange("$A$1")="關閉"Then
ExitSub
SelectCaseTarget.Address
Case"$A$4"
Call宏1
Cancel=True
Case"$B$4"
Call宏2
Cancel=True
Case"$C$4"
Call宏3
Cancel=True
Case"$E$4"
Call宏4
Cancel=True
EndSelect
EndSub
6：雙擊指定區域單元執行宏(工作表代碼)
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
IfRange("$A$1")="關閉"ThenExitSub
IfNotApplication.Intersect(Target,Range("A4:A9","C4:C9"))IsNothingThenCall打開隱藏表
EndSub
7：進入單元執行宏(工作表代碼)
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'以單元格進入代替按鈕對象調用宏
IfRange("$A$1")="關閉"ThenExitSub
SelectCaseTarget.Address
Case"$A$5"'單元地址(Target.Address),或命名單元名字(Target.Name)
Call宏1
Case"$B$5"
Call宏2
Case"$C$5"
Call宏3
EndSelect
EndSub
8：進入指定區域單元執行宏(工作表代碼)
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
IfRange("$A$1")="關閉"ThenExitSub
IfNotApplication.Intersect(Target,Range("A4:A9","C4:C9"))IsNothingThenCall打開隱藏表
EndSub
9：在多個宏中依次循環執行一個（控制項按鈕代碼）
PrivateSubCommandButton1_Click()
StaticRunMacroAsInteger
SelectCaseRunMacro
Case0
宏1
RunMacro=1
Case1
宏2
RunMacro=2
Case2
宏3
RunMacro=0
EndSelect
EndSub
10：在兩個宏中依次循環執行一個並相應修改按鈕名稱（控制項按鈕代碼）
PrivateSubCommandButton1_Click()
WithCommandButton1
If.Caption="保護工作表"Then
Call保護工作表
.Caption="取消工作表保護"
ExitSub
EndIf
If.Caption="取消工作表保護"Then
Call取消工作表保護
.Caption="保護工作表"
ExitSub
EndIf
EndWith
EndSub
11：在三個宏中依次循環執行一個並相應修改按鈕名稱（控制項按鈕代碼）
_Click()
WithCommandButton1
If.Caption="宏1"Then
Call宏1
.Caption="宏2"
ExitSub
EndIf
If.Caption="宏2"Then
Call宏2
.Caption="宏3"
ExitSub
EndIf
If.Caption="宏3"Then
Call宏3
.Caption="宏1"
ExitSub
EndIf
EndWith
EndSub
12：根據A1單元文本隱藏/顯示按鈕（控制項按鈕代碼）
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
IfRange("A1")>2Then
CommandButton1.Visible=1
Else
CommandButton1.Visible=0
EndIf
EndSub
PrivateSubCommandButton1_Click()
重排窗口
EndSub
13：當前單元返回按鈕名稱（控制項按鈕代碼）
PrivateSubCommandButton1_Click()
ActiveCell=CommandButton1.Caption
EndSub
14：當前單元內容返回到按鈕名稱（控制項按鈕代碼）
PrivateSubCommandButton1_Click()
CommandButton1.Caption=ActiveCell
EndSub
15：奇偶頁分別列印
Sub奇偶頁分別列印()
Dimi%,Ps%
Ps=ExecuteExcel4Macro("GET.DOCUMENT(50)")'總頁數
MsgBox"現在列印奇數頁,按確定開始."
Fori=1ToPsStep2
ActiveSheet.PrintOutfrom:=i,To:=i
Nexti
MsgBox"現在列印偶數頁,按確定開始."
Fori=2ToPsStep2
ActiveSheet.PrintOutfrom:=i,To:=i
Nexti
EndSub
16：自動列印多工作表第一頁
Sub自動列印多工作表第一頁()
DimshAsInteger
Dimx
Dimy
Dimsy
Dimsyz
x=InputBox("請輸入起始工作表名字:")
sy=InputBox("請輸入結束工作表名字:")
y=Sheets(x).Index
syz=Sheets(sy).Index
Forsh=yTosyz
Sheets(sh).Select
Sheets(sh).PrintOutfrom:=1,To:=1
Nextsh
EndSub
17：查找A列文本循環插入分頁符
Sub循環插入分頁符()
'Selection=Workbooks("臨時表").Sheets("表2").Range("A1")調用指定地址內容
DimiAsLong
DimtimesAsLong
times=Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"),"分頁")'times代表循環次數，執行前把times賦值即可(不可小於1，不可大於2147483647)
Fori=1Totimes
Call插入分頁符
Nexti
EndSub
Sub插入分頁符()
Cells.Find(What:="分頁",After:=ActiveCell,LookIn:=xlValues,LookAt:=_
xlPart,SearchOrder:=xlByRows,SearchDirection:=xlNext,MatchCase:=False)_
.Activate
ActiveWindow.SelectedSheets.HPageBreaks.AddBefore:=ActiveCell
EndSub
Sub取消原分頁()
Cells.Select
ActiveSheet.ResetAllPageBreaks
EndSub
18：將A列最後數據行以上的所有B列圖片大小調整為所在單元大小
Sub將A列最後數據行以上的所有B列圖片大小調整為所在單元大小()
DimPicAsPicture,i&
i=[A65536].End(xlUp).Row
ForEachPicInSheet1.Pictures
IfNotApplication.Intersect(Pic.TopLeftCell,Range("B1:B"&i))IsNothingThen
Pic.Top=Pic.TopLeftCell.Top
Pic.Left=Pic.TopLeftCell.Left
Pic.Height=Pic.TopLeftCell.Height
Pic.Width=Pic.TopLeftCell.Width
EndIf
Next
EndSub
19：返回遊標所在行數
Sub返回遊標所在行數()
x=ActiveCell.Row
Range("A1")=x
EndSub
20：在A1返回當前選中單元格數量
Sub在A1返回當前選中單元格數量()
[A1]=Selection.Count
EndSub
21：返回當前工作簿中工作表數量
Sub返回當前工作簿中工作表數量()
t=Application.Sheets.Count
MsgBoxt
EndSub93：B列錄入數據時在A列返回記錄時間（工作表代碼）
PublicSubWorksheet_Change(ByValTargetAsRange)
IfTarget.Column=2Then
Target.Offset(,-1)=Now
EndIf
EndSub
94：當指定區域修改時在其右側的2個單元返回當前日期和時間（工作表代碼）
PublicSubWorksheet_Change(ByValTargetAsRange)
IfNotApplication.Intersect(Target,[A1:A1000])IsNothingThen
IfTarget.Column=1Then
Target.Offset(,1)=Date
Target.Offset(,2)=Time
EndIf
EndIf
EndSub
PublicSubWorksheet_Change(ByValTargetAsRange)
IfNotApplication.Intersect(Target,[A1:A1000])IsNothingThen
IfTarget.Column=1Then
Target.Offset(,1)=Format(Now(),"yyyy-mm-dd")
Target.Offset(,2)=Format(Now(),"h:mm:ss")
EndIf
EndIf
EndSub
95：指定單元顯示游標位置內容（工作表代碼）
PrivateSubWorksheet_SelectionChange(ByValTAsRange)
Sheets(1).Range("A1")=Selection
EndSub
96：每編輯一個單元保存文件
PrivateSubWorksheet_Change(ByValTargetAsRange)
ThisWorkbook.Save
EndSub
97：指定允許編輯區域
Sub指定允許編輯區域()
ActiveSheet.ScrollArea="B8:G15"
EndSub
98：解除允許編輯區域限制
Sub解除允許編輯區域限制()
ActiveSheet.ScrollArea=""
EndSub
99：刪除指定行
Sub刪除指定行()
Workbooks("臨時表").Sheets("表2").Range("5:5").Delete
EndSub
100：刪除A列為指定內容的行
Sub刪除A列為指定內容的行()
Dima,bAsInteger
a=Sheet1.[a65536].End(xlUp).Row
Forb=aTo2Step-1
IfCells(b,1).Value="刪除"Then
Rows(b).Delete
EndIf
Next
EndSub