« テスト中に | トップページ | 岩井コスモス用発注スクリプト9 »

2012年7月21日 (土)

岩井コスモス用発注スクリプト8

7/17 5銘柄に上手くサインとメッセージBOXが出るかテストしてみた

各銘柄2回ほど繰り返し売り買いのメッセージBOXを出してくれた

VBA の速度はそれ程、気にならなかった

あと、時間のストップや実際のポジションとの整合性なんかを考えて見なければ・・・・・

        *********

これなら使える!!

 ヤフーファイナンス が リアルタイムで配信してくれさえすれば・・・・

 メリットは

      無料!!

      証券会社を選ばない

      Office2000 でも 使える (おかさんは2003以降

         ********

 

 VBAの中身はその人のエクセルの作り方によってセルの位置などが変わってくるので記事にはし難い

具体的な作り方は過去記事 を読んでください

 カテゴリーは PM2:45の自動発注計画

 2007年の10月 ごろの記事です

 ただ、今回はクエリが簡単でVBAでクエリを操作していません転記だけです

 ExcelVBA時間の管理は 1分毎にするといかのようになります

////////////////////////////////////

Private Sub Workbook_Open()

  Dim range As Date, my_time As Date, i As Integer

   range = TimeValue("0:01:00")

   For i = 1 To 150

        my_time = TimeValue("9:20:10") + range * i
        Application.OnTime my_time, "時間が来れば"
       
       
    Next

   For i = 1 To 150

        my_time = TimeValue("12:50:10") + range * i
         Application.OnTime my_time, "時間が来れば"
       
       
    Next

End Sub

////////////////////////////////////

 ヤフー が20分遅れなので TimeValue("9:20:10") で、前場と後場に分けています

1分毎に"時間が来れば"という Sub が実行されます

"時間が来れば"の内に入っているSubの内容は

・ クエリされたデータを各シートに転記

・ サインをシート2に転記

・ シート2でのちょっとした処理

・ 注文のメッセージBOX (4通り)

です。

 次はいよいよUWSCの発注用スクリプトを書こう・・・

|

« テスト中に | トップページ | 岩井コスモス用発注スクリプト9 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/218459/46359311

この記事へのトラックバック一覧です: 岩井コスモス用発注スクリプト8:

« テスト中に | トップページ | 岩井コスモス用発注スクリプト9 »