Excel VBA質問箱 IV

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

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


16863 / 76732 ←次へ | 前へ→

【65332】Re:時間の検索
お礼  Satsuki  - 10/5/12(水) 16:56 -

引用なし
パスワード
   自己レスです。
あてずっぽうでいろいろやってみましたところ、下記の変更を加えましたら、上手くいきました。理屈としては納得していないので、解説して頂ける方がありましたら、よろしくお願いいたします。

Sub kensaku()
 ・
 ・
Dim KaishiJ As string, KessaiJ as string ←変更…型を date から string へ
Dim HajimeJ As Range, OwariJ as Range
Dim jikanTF As String
j = ActiveSheet.Range("A6").End(xlDown).Row
For i = 6 to j               
 ・
 ・
KaishiJ = ShoshikiJikan(Cells(i, 1), jikanTF)  ←変更…timevalue関数なし
KessaiJ = ShoshikiJikan(Cells(i, 3), jikanTF)  ←変更…timevalue関数なし
With ActiveSheet.Range("R6:R" & Range("R6").End(xlDown).Row)
  Set HajimeJ = .Find(what:=KaishiJ, LookIn:=xlValues,                  lookat:=xlWhole, SearchOrder:=xlByColumns,                MatchByte:=False)
  Set OwariJ = .Find(what:=KessaiJ, LookIn:=xlValues,                  lookat:=xlWhole, SearchOrder:=xlByColumns,                MatchByte:=False)
 ・
 ・
End with
'ここで検索した範囲(行)の2つ隣の列の最小値を入力
With ActiveSheet
  .Cells(i, 5).Value = Application.Min(Range(Cells(HajimeJ.Row,
   HajimeJ.Column + 2), Cells(OwariJ.Row, OwariJ.Column + 2)))
End with

Next i
 ・
 ・
End Sub
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 お礼

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