～みんな株ってる？～

～目指せ！あと5年でセミリタイヤ～　　　※ブラウザのフォントを等幅にすると快適に参照ができます。

ついに・・・

2007年06月25日 23時56分54秒 | 雑談
6/22にT&Gを売ったのを最後に、保有株が無くなりました。

基本的に逆張りスタンスのため、ここ最近の上昇基調相場では
シグナル発生がなく、ゼロになりました。。。

裁量では、いくつか仕掛けてはいるのですが、
なかなか網に引っかからずの状態で、資産も停滞状況です。

ここ15回のトレードでは13勝2敗の好成績で、
流れに乗っていただけに、ここで流れが止まってしまうのではないかと
心配しております。


6/4に買って6/18に売ったオーエイチティーは、4日後の6/22には30万6千円を
付けており、6/18の決断を早まったと、ちと後悔しております。

一方、6/22に売ったT&Gは、前日に仏系ファンドの大量保有を受け、一時4万8700円を
付け翌日持ち越しを狙ったのですが午後に急落し、結局翌日寄付に決済しました。

プラスで終わっているのですが、欲が出て上を狙いすぎている傾向が判断を
鈍らせているようです。(/ _ ＼)



２００７年５月の実績

2007年06月20日 00時44分26秒 | シストレ-運用編
だいぶ遅くなってしまいましたが、
５月の実績を集計してみました。。。。。



＜５月実績＞
利益額：　１３２，４３４円　　　勝ちトレード数：　　　７回　
損失額：　－７３，０２９円　　　負けトレード数：　　　５回
合計損益：　５９，４０５円　　　勝率　　　　　：５８．３％

２００７年実績に比べトレード数も勝率も下がっております。



タイマー機能

2007年06月14日 22時54分50秒 | シストレ-開発編
分足データ取得や株価監視、定期メール送信などに使用する目的で、
マクロのタイマー機能を作成してみました。

■XX秒後に起動するとか、XX秒間隔で起動するなどの場合

　Dim a As Date

　'20秒間処理を停止する場合
　a = DateAdd("s", 20, Now())

　Do
　　If (Now() > a) Then
　　　Exit Do
　　endif
　Loop

　処理１
　・・・・


■XX時XX分に起動するなどの場合

　Sub TimerSet()

　　'午前9時に「起動マクロ名」という処理を起動する場合
　　Application.OnTime TimeValue("9:00:00"), "起動マクロ名"

　End Sub


ちなみに、タイマー設定の解除は

　Sub TimerSet()

　　'午前9時に「起動マクロ名」という処理を起動解除する場合
　　Application.OnTime EarliestTime:=TimeValue("9:00:00"), Procedure:="起動マクロ名", Schedule:=False

　End Sub


意外と便利でいろいろな場面で使ってます。