回答編集履歴
3
回答に追記しました。
test
CHANGED
|
@@ -27,3 +27,17 @@
|
|
|
27
27
|
End Sub
|
|
28
28
|
|
|
29
29
|
```
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
追記：
|
|
34
|
+
|
|
35
|
+
質問に掲載されたコードをそのまま利用するなら、最初の2行をこのように。
|
|
36
|
+
|
|
37
|
+
```
|
|
38
|
+
|
|
39
|
+
Dim tmpValue As Variant
|
|
40
|
+
|
|
41
|
+
tmpValue = DateValue(Range("A2").Value)
|
|
42
|
+
|
|
43
|
+
```
|
2
誤字修正
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
Dim tmprange As Range
|
|
10
10
|
|
|
11
|
-
Set tmprange = Cells.Find(What:=DateValue(Range("A
|
|
11
|
+
Set tmprange = Cells.Find(What:=DateValue(Range("A2").Value), LookIn:=xlFormulas)
|
|
12
12
|
|
|
13
13
|
' ↑ここ
|
|
14
14
|
|
1
文字位置修正
test
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
|
|
11
11
|
Set tmprange = Cells.Find(What:=DateValue(Range("A3").Value), LookIn:=xlFormulas)
|
|
12
12
|
|
|
13
|
-
' ↑ここ
|
|
13
|
+
' ↑ここ
|
|
14
14
|
|
|
15
15
|
If tmprange Is Nothing Then
|
|
16
16
|
|