—–<Question>——-

自動保存の実行中について詳しく教えてください。この間はデータをとる作業が止まってしまいます。頻繁（約15分間隔くらい）

自動保存を回避する方法を教えてください。

—–<Answer>——-　

エクセルの上部メニュー「ツール」の「オプション」から自動保存の間隔を設定可能です。

<PR>

<PR>

　
　
サイトにアップしている過去データの使用方法についてです。

サイトにアップされているのは現在（2009/03/07現在）テキストファイルのカンマ区切りで、年毎のデータを通貨ペア・時間足でまとめたファイルを圧縮した形となっています。

過去データのダウンロード画面にて、通貨ペア、時間足、年を指定しダウンロードするとZIPファイル（圧縮ファイル）がダウンロードされますが、その使用方法についてです。

１）

まず、ダウンロードしたファイルを解凍してください。解凍すると、フォルダの中にテキストファイルが1個入った状態になります。

２）

テキストファイルをそのまま開くと、下記の様な形になっています。

上記の状態は、左から日付、時刻、始値、高値、安値、終値の順となっていますが、このままではエクセル等での利用が難しいため、エクセルで開いて編集する必要があります。

３）

メモ帳を閉じてエクセルで開きます。

エクセルを起動し、上部メニューの「ファイル」から「開く」、表示されるダイアログにてダウンロードし解凍したフォルダを開き、「ファイルの種類」を「テキストファイル」に変更すると、テキストファイルを開くことが出来ます。

４）

エクセルでテキストファイルを開くと、読み込み形式を指定するダイアログが表示されます。

最初の画面では「次へ」をクリックし、次の画面で、区切り文字を「カンマ」を選択して「完了」をクリックします。

すると、下記の状態でファイルが開かれます。

５）

この状態は各列に左から日付、時間、始値、高値、安値、終値の状態です。

UGに読み込む場合は、始値、高値、安値、終値、日時の状態ですので、上記画像の終値の右側の列に日時を表示させ、始値（上記3列目）～日時（上記7列目）をコピーして張り付けると言う形になります。

方法は、7列目に日付と時間を足した値を計算させれば日時となります。（下図）

あとは、この計算式を下方向にコピーすれば、左側のA列から日付、時間、始値、高値、安値、終値、日時というデータになりますので、3列目の始値から7列目の日時までをコピーして貼り付けてください。

６）

最後に、時間足が短いデータなどはひとつのファイルに入っているデータ数が多く、エクセルの最大行数（65536行）を超える場合があります。

その際は、全体を読み込むことが出来ませんので、あらかじめテキストファイルのデータを分割して読み込まれてください。　

<PR>

<PR>

カギ足についてです。

カギ足は値幅の上昇・下降を1本の線で表したもので、一定の比率の騰落、一定の値幅の騰落にて垂直の線が上へ伸びるか、下に伸びるかを描画します。

通常、非時系列の指標で、時間の経過は関係なくレートの動きのみによって描かれますが、自動売買システムUGに実装されている内容は「時系列カギ足」ですのでそれについて掲載します。

＞＞計算

一定の値幅は変動率Nを決定。

期間のはじめのレートを基点Xとする。

●（A）基点Xから上昇の場合　基点Xに上昇後のレートを代入⇒Cへ

●（B）基点Xから下降の場合　基点Xに下降後のレートを代入⇒Dへ

C)基点Xから変動率Nを超えて下落した場合、下落後のレートを基点Xとして（A）へ

D)基点Xから変動率Nを超えて上昇した場合、上昇後のレートを基点Xとして（B）へ

以下、上記の繰り返し。

上記で決定される基点Xの値を時間の経過を横軸としたチャートに表示すると、時系列カギ足となり、C、Dの時にのみ横軸のメモリをひとつ進ませ、基点Xを描画すると、カギ足となる。

＞＞チャート

（時系列カギ足：転換値幅0.3）

（同MACD化：12-24-5）

＞＞VBAコード

‘※　エクセルの1列目(A列)に行番号、2列目(B列)に日時、
‘※　3列目(C列)～6列目(F列)に始値・高値・安値・終値
‘********************************
‘ tensyu ：変動率か変動幅か（1=変動率％、0=変動幅通貨単位）
‘ ten ：変動率・変動幅
‘ num：現在の行
‘ cell_h：基点（HIGH)書き込み列
‘ cell_l：基点（LOW)書込み列
‘ cell_t：上昇・下降書き込み列
‘ cell_key：時系列カギ足
‘********************************
high = .Worksheets(s_name)Cells(num, 4)
low = .Worksheets(s_name)Cells(num, 5)

If tensyu = 1 Then
    ten = ten / 100
Else
    ten = ten
End If
If num > 2 Then
  If Cells(num, cell_key) = “” Then Cells(num, cell_key) = Cells(num - 1, cell_key)
  If Cells(num, cell_t) = “” Then Cells(num, cell_t) = Cells(num - 1, cell_t)
  If Cells(num - 1, cell_t) = “” Then Cells(num, cell_t) = 0

  If Cells(num, cell_h) = “” And Cells(num - 1, cell_h) = “” Then
    If Cells(num, cell_t) = “” Or Cells(num, cell_t) = 0 Then
      Cells(num, cell_h) = high
    End If
  End If

  If Cells(num, cell_l) = “” And Cells(num - 1, cell_l) = “” Then
    If Cells(num, cell_t) = “” Or Cells(num, cell_t) = 0 Then
      Cells(num, cell_l) = low
    End If
  End If

  If Cells(num, cell_h) = “” And Cells(num - 1, cell_h) <> “” Then
    If Cells(num, cell_t) = 0 Or Cells(num, cell_t) = 1 Then
      Cells(num, cell_h) = Cells(num - 1, cell_h)
    End If
  End If

  If Cells(num, cell_l) = “” And Cells(num - 1, cell_l) <> “” Then
    If Cells(num, cell_t) = 0 Or Cells(num, cell_t) = -1 Then
      Cells(num, cell_l) = Cells(num - 1, cell_l)
    End If
  End If

  If Cells(num, cell_h) <> “” Then
    pH = Cells(num, cell_h)
    If high > pH Then
      Cells(num, cell_h) = high
      If Cells(num, cell_t) = 1 Then Cells(num, cell_key) = Cells(num, cell_h)
    End If
    If tensyu = 1 Then
      pH_lim = Cells(num, cell_h) - Cells(num, cell_h) * ten
    Else
      pH_lim = Cells(num, cell_h) - ten
    End If
  End If

  If Cells(num, cell_l) <> “” Then
    pl = Cells(num, cell_l)
    If low < pl Then
      Cells(num, cell_l) = low
      If Cells(num, cell_t) = -1 Then Cells(num, cell_key) = Cells(num, cell_l)
    End If
    If tensyu = 1 Then
      pL_lim = Cells(num, cell_l) + Cells(num, cell_l) * ten
    Else
      pL_lim = Cells(num, cell_l) + ten
    End If
  End If
   
  If num > 2 Then
    If high >= pL_lim Then
      If Cells(num, cell_t) = -1 Or Cells(num, cell_t) = 0 Then
        Cells(num, cell_h) = high
        Cells(num, cell_t) = 1
        Cells(num, cell_l) = “”
        Cells(num, cell_key) = Cells(num, cell_h)
      End If
    End If
    If low <= pH_lim Then
      If Cells(num, cell_t) = 1 Or Cells(num, cell_t) = 0 Then
        Cells(num, cell_l) = low
        Cells(num, cell_t) = -1
        Cells(num, cell_h) = “”
        Cells(num, cell_key) = Cells(num, cell_l)
      End If
    End If
  End If
End If

<PR>

<PR>