Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16884 / 76732 ←次へ | 前へ→

【65311】時間の検索
質問  Satsuki  - 10/5/8(土) 16:35 -

引用なし
パスワード
   こんにちは、Satsukiと申します。
あちこち調べましたが、わかりませんでしたので、ご教示お願いいたします。
為替に関する集計用VBAを作成中です。
下記のような2つの表があり2つめの表には10分ごとの最高値と最安値が表示されています。
1つめの表の右欄外にオープンから決済までの期間の最安値(または最高値)を表示したいのですが、時間の検索がうまく行きません。
(HajimeJが"nothing"になる。)
2つめの表はCSVデータをダウンロードしたもので、時間の欄は、表示形式を文字列に設定してみると0.111122685などというシリアル値(?)になっています。
よろしくお願いいたします。

オープン時間        オープンレート  決済時間        決済レート
4/20/2010 2:09:09 AM   85.686   4/20/2010 4:32:52 AM  86.026
4/20/2010 4:32:52 PM  86.068   4/20/2010 7:51:41 PM  86.423



日付     時間    最大  最小
2010/4/20  2:00:01   85.85  85.56
2010/4/20  2:10:01   85.93  85.82




Sub kensaku()
 ・
 ・
Dim KaishiJ As Date
Dim HajimeJ As Range
Dim jikanTF As String
j = ActiveSheet.Range("A6").End(xlDown).Row
For i = 6 to j               
 ・
 ・
KaishiJ = TimeValue(ShoshikiJikan(Cells(i, 1), jikanTF))
            ↓R列に2つめの表の「時間」データ
With ActiveSheet.Range("R6:R" & Range("R6").End(xlDown).Row)
  Set HajimeJ = .Find(what:=KaishiJ, LookIn:=xlValues,                  lookat:=xlWhole, SearchOrder:=xlByColumns,                MatchByte:=False)
 ・
 ・
Next i
 ・
 ・
End Sub

'時間データを10分おきに置き換えるプロシージャ
Private Function ShoshikiJikan(jikanAP As String, jikanTF As String) As String
Dim jikan As String
  jikan = Right(jikanAP, Len(jikanAP) - InStr(jikanAP, " "))
Dim jiTF As String
  If Right(jikan, 2) = "PM" Then
    If Left(jikan, 2) = "12" Then
      jiTF = "00"
    Else
      jiTF = Left(jikan, InStr(jikan, ":") - 1) + 12
    End If
  Else
    jiTF = Left(jikan, InStr(jikan, ":") - 1)
  End If
  ShoshikiJikan = jiTF & Mid(jikan, InStr(jikan, ":"), 2) & "0:01"
End Function

0 hits

【65311】時間の検索 Satsuki 10/5/8(土) 16:35 質問
【65313】Re:時間の検索 かみちゃん 10/5/8(土) 18:40 発言
【65315】Re:時間の検索 Satsuki 10/5/8(土) 21:13 質問
【65316】Re:時間の検索 かみちゃん 10/5/8(土) 21:40 発言
【65317】Re:時間の検索 Satsuki 10/5/9(日) 0:34 質問
【65332】Re:時間の検索 Satsuki 10/5/12(水) 16:56 お礼

16884 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free