回答編集履歴
1
時間修正
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
この手の時間比較は`
|
|
1
|
+
この手の時間比較は`6:00未満`かという比較が正しい方法です。
|
|
2
2
|
残念ながらFindでは大小比較はできないようですので、面倒ですが最終行から順に見ていく方法を提示しておきます。
|
|
3
3
|
見つからないときなどの処理は入れていませんので、あとはカスタマイズしてください。
|
|
4
4
|
```VBA
|
|
@@ -6,8 +6,8 @@
|
|
|
6
6
|
'Set myRange = Range("A" & x & ":" & "A2") ←この行削除
|
|
7
7
|
findrow = 0
|
|
8
8
|
For r = x To 2 Step -1
|
|
9
|
-
If TimeValue(Cells(r, 1)) < TimeValue("
|
|
9
|
+
If TimeValue(Cells(r, 1)) < TimeValue("6:00") Then
|
|
10
|
-
Debug.Print "
|
|
10
|
+
Debug.Print "6時未満の行=" & r
|
|
11
11
|
findrow = r
|
|
12
12
|
Exit For
|
|
13
13
|
End If
|