Yuto Uchida
関数「FCANDLE」を使用して表示した足の情報リストの中で出来高が０のが表示されない。
みなさんこんばんは内田です。
関数「FCANDLE」を使って日経miniの足情報リストをシートのセルに表示しています。
この時、出来高が０の情報が抜けてしまいます。
出来高が０の情報が抜けないようにする方法はあるのでしょうか？
みなさまのお知恵をお貸しいただけたら嬉しいです。
よろしくお願い致します。
2017年06月07日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
Ryo Ohno
あれ・・・
xlsmって添付できないんだ・・・
VBA付きのファイルが上がらないので、コードを直書きしまーす！！
================================
Private Type OHLC
Time As Date
Open As Long
High As Long
Low As Long
Close As Long
End Type
Private OHLCList() As OHLC
'データ成型後取り込み
Private Sub CommandButton1_Click()
Dim RowIdx As Integer
Dim OHLCIdx As Integer
OHLCIdx = 0
For RowIdx = 2 To 392
ReDim Preserve OHLCList(OHLCIdx)
OHLCList(OHLCIdx).Time = Cells(RowIdx, 8)
OHLCList(OHLCIdx).Open = Cells(RowIdx, 9)
OHLCList(OHLCIdx).High = Cells(RowIdx, 10)
OHLCList(OHLCIdx).Low = Cells(RowIdx, 11)
OHLCList(OHLCIdx).Close = Cells(RowIdx, 12)
OHLCIdx = OHLCIdx + 1
Next
End Sub
'データ成型前取り込み
Private Sub CommandButton2_Click()
Dim RowIdx As Integer
Dim OHLCIdx As Integer
Dim lostCnt As Integer
OHLCIdx = 0
For RowIdx = 2 To 392
If Cells(RowIdx, 1) <> "" Then
If RowIdx >= 3 Then lostCnt = makeLostData(Cells(RowIdx, 1), Cells(RowIdx - 1, 1))
OHLCIdx = OHLCIdx + lostCnt
ReDim Preserve OHLCList(OHLCIdx)
OHLCList(OHLCIdx).Time = Cells(RowIdx, 1)
OHLCList(OHLCIdx).Open = Cells(RowIdx, 2)
OHLCList(OHLCIdx).High = Cells(RowIdx, 3)
OHLCList(OHLCIdx).Low = Cells(RowIdx, 4)
OHLCList(OHLCIdx).Close = Cells(RowIdx, 5)
OHLCIdx = OHLCIdx + 1
End If
Next
End Sub
Private Function makeLostData(nowTime As Date, prevTime As Date) As Integer
Dim lostCount As Integer
Dim idx As Integer
lostCount = DateDiff("n", prevTime, nowTime) - 1
For idx = 1 To lostCount
ReDim Preserve OHLCList(UBound(OHLCList) + 1)
OHLCList(UBound(OHLCList)).Time = DateAdd("n", idx, prevTime)
Next
makeLostData = lostCount
End Function
================================
2017年06月19日
Yuto Uchida
Ohnoさん
こんばんは内田です。
ご返答ありがとうございます。
コメントを参考にして実装ができました。
丁寧な対応をありがとうございます。
本件の質問は解決済みと致します。
フォームに未解決・解決を選択して表示する機能が欲しいですね。
質問が解決済みなのかどうかが今はわからないのが不便と感じました。
2017年06月28日
Ryo Ohno
内田さん、お役に立てたようでよかったです。
確かに未解決・解決があると便利ですねー
岡三オンライン証券さんに期待しましょう・・・(笑
2017年06月28日