回答編集履歴
3
回答に追記しました。
answer
CHANGED
|
@@ -12,4 +12,11 @@
|
|
|
12
12
|
Debug.Print tmprange.Value
|
|
13
13
|
|
|
14
14
|
End Sub
|
|
15
|
+
```
|
|
16
|
+
|
|
17
|
+
追記：
|
|
18
|
+
質問に掲載されたコードをそのまま利用するなら、最初の2行をこのように。
|
|
19
|
+
```
|
|
20
|
+
Dim tmpValue As Variant
|
|
21
|
+
tmpValue = DateValue(Range("A2").Value)
|
|
15
22
|
```
|
2
誤字修正
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
Public Sub tmp()
|
|
4
4
|
|
|
5
5
|
Dim tmprange As Range
|
|
6
|
-
Set tmprange = Cells.Find(What:=DateValue(Range("
|
|
6
|
+
Set tmprange = Cells.Find(What:=DateValue(Range("A2").Value), LookIn:=xlFormulas)
|
|
7
7
|
' ↑ここ
|
|
8
8
|
If tmprange Is Nothing Then
|
|
9
9
|
Debug.Print "見つかりません"
|
1
文字位置修正
answer
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
Dim tmprange As Range
|
|
6
6
|
Set tmprange = Cells.Find(What:=DateValue(Range("A3").Value), LookIn:=xlFormulas)
|
|
7
|
-
'
|
|
7
|
+
' ↑ここ
|
|
8
8
|
If tmprange Is Nothing Then
|
|
9
9
|
Debug.Print "見つかりません"
|
|
10
10
|
Exit Sub
|