|
自己レスです。
あてずっぽうでいろいろやってみましたところ、下記の変更を加えましたら、上手くいきました。理屈としては納得していないので、解説して頂ける方がありましたら、よろしくお願いいたします。
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
|
|