平凡な会社員のトレード日誌

日本株のシステムトレード記録。年率50%を目標にExcelを使い自動売買しています。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

売買処理(エントリ処理)

「売買記録」シートに銘柄コード、日付、買い、株数、エントリ金額を入力(セット)します。
エントリ金額は、始値の場合とセットされた高値の場合と2パターンあります。
また、株数の計算も行います。
尚、OmegaChartから出力されてCSVファイルは株価が100分の1になっているので変換しています。

VBAは、次の通りです。

Function エントリ処理()
Dim Vol, Unit
Unit = Sheets("一覧表").Cells(i, 3)
'始値が5日間の高値を超えている場合(始値がエントリ金額)
If Cells(j, 2) > High Then
  If Unit * Cells(j, 2) * 100 >= Fund Then
    Vol = Unit
  Else
    Vol = Round(Fund / (Unit * 100 * Cells(j, 2)), 0) * Unit
    '株数を四捨五入
  End If
  Sheets("売買記録").Cells(h, 1) = strSymbol
  Sheets("売買記録").Cells(h, 2) = "Long"
  Sheets("売買記録").Cells(h, 3) = Cells(j, 1)
  Sheets("売買記録").Cells(h, 4) = Vol
  Sheets("売買記録").Cells(h, 5) = -Cells(j, 2) * 100
  '買いの場合、後で損益を計算する時に楽なのでマイナス表示としています
Else
'始値が5日間の高値を超えていない場合(高値)
  If Unit * 100 * High >= Fund Then
    Vol = Sheets("一覧表").Cells(i, 3)
  Else
    Vol = Round(Fund / (Unit * 100 * High), 0) * Unit
  End If
  Sheets("売買記録").Cells(h, 1) = strSymbol
  Sheets("売買記録").Cells(h, 2) = "Long"
  Sheets("売買記録").Cells(h, 3) = Cells(j, 1)
  Sheets("売買記録").Cells(h, 4) = Vol
  Sheets("売買記録").Cells(h, 5) = -High * 100
End If
End Function

スポンサーサイト
  1. 2007/03/17(土) 23:59:59|
  2. Excel検証・フィルタ
  3. | トラックバック:0
  4. | コメント:0

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://kojimaro.blog70.fc2.com/tb.php/211-cd681a46
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。