马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
做一个实验,只看深圳指数的五周线与20周线进行操作的可行性。
入选的范围所有的深圳股票不包括停牌,ST,创业板。
运行代码随机选5只深圳股票
002309
中利科技
000710
天兴仪表
002030
达安基因
002265
西仪股份
000936
华 西 村
7月2日如果深圳指数收红则以市价买入
因为只是实验所以用同化顺的模拟盘,20万平均每股4万元。
卖出条件,击穿20周线3%。
随机选股的Excel VBA代码:
Sub test()
Dim i As Integer, h As Integer
Dim iRow As Integer
Dim dic As New Scripting.Dictionary
Dim arr
Dim s As String
dic.RemoveAll
iRow = Sheet1.Range("a1").End(xlDown).Row - 1 '取工作表1 股票数量
arr = Sheet1.Range("a2").Resize(iRow, 2)
h= 0
Do While h <= 5 '取5个随机数
Randomize
' 随机数生成器初始化。
i = Int((iRow * Rnd) + 1)
' 生成的随机数值。
s = arr(i, 1) '取股票代码
If Not dic.Exists(s) Then
dic.Add arr(i, 1), arr(i, 2) '存放在字典,确保不重复
End If
h = h + 1
Loop
'选择的5只股票放在工作表2
Sheet2.Range("a2").Resize(5, 1) =WorksheetFunction.Transpose(dic.Keys) '股票代码
Sheet2.Range("b2").Resize(5, 1) =WorksheetFunction.Transpose(dic.Items) '股票名称
End Sub |