vba股票交易策略源碼

Ⅰ 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求股票中一分鍾內的開、高、低、收

代碼如下,詳見附件

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