|
またまた、ごめん!!
もし、最終月に1月が来る事が有るなら
ちゃんと治した方が善いですね
以下の様にして下さい
'データの上から下につきを比べる
For i = 1 To lngRows
' For i = 1 To lngRows + 1 '★変更
'もし、先頭の行が未定で、探索月と同じ月なら
If lngStart = 0 And Month(vntData(i, 1)) = vntSearch Then
lngStart = i
End If
'もし、先頭の行が決定されていて、探索月と違う月なら
If lngStart > 0 And Month(vntData(i, 1)) <> vntSearch Then
lngEnd = i - 1
Exit For
End If
Next i
'最終月の取得
If i > lngRows Then '★追加
If lngStart > 0 Then '★追加
lngEnd = lngRows '★追加
End If '★追加
End If '★追加
If lngStart = 0 Then
strProm = "目的の" & vntSearch & "月のデータが有りません"
|
|