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