回答編集履歴
1
時間修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
この手の時間比較は`
|
|
1
|
+
この手の時間比較は`6:00未満`かという比較が正しい方法です。
|
|
2
2
|
|
|
3
3
|
残念ながらFindでは大小比較はできないようですので、面倒ですが最終行から順に見ていく方法を提示しておきます。
|
|
4
4
|
|
|
@@ -14,9 +14,9 @@
|
|
|
14
14
|
|
|
15
15
|
For r = x To 2 Step -1
|
|
16
16
|
|
|
17
|
-
If TimeValue(Cells(r, 1)) < TimeValue("
|
|
17
|
+
If TimeValue(Cells(r, 1)) < TimeValue("6:00") Then
|
|
18
18
|
|
|
19
|
-
Debug.Print "
|
|
19
|
+
Debug.Print "6時未満の行=" & r
|
|
20
20
|
|
|
21
21
|
findrow = r
|
|
22
22
|
|