質問編集履歴
3
再度ミスを見つけたので変更しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
Set mycell = Cells(i, j)
|
|
44
44
|
|
|
45
|
-
If 30 <= DateDiff("d", mycell, Date) And mycell <>
|
|
45
|
+
If 30 <= DateDiff("d", mycell, Date) And mycell <> "" Then
|
|
46
46
|
|
|
47
47
|
|
|
48
48
|
|
2
申し訳ございません。該当コードのｄ”箇所に関してソースを確認したところ問題なかったので、直接teratailに打ち込んだことが原因です。実際のエラーの原因ではないとおもいます
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBAのコード
|
|
1
|
+
VBAのエラーコード１３を解決したいです
|
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
Set mycell = Cells(i, j)
|
|
44
44
|
|
|
45
|
-
If 30 <= DateDiff(
|
|
45
|
+
If 30 <= DateDiff("d", mycell, Date) And mycell <> '' Then
|
|
46
46
|
|
|
47
47
|
|
|
48
48
|
|
|
@@ -50,13 +50,13 @@
|
|
|
50
50
|
|
|
51
51
|
|
|
52
52
|
|
|
53
|
-
Elseif 14 <= DateDiff(
|
|
53
|
+
Elseif 14 <= DateDiff("d", mycell, Date) And mycell <> "" Then
|
|
54
54
|
|
|
55
55
|
Range(Cells(i,3),Cells(i,7).Interior.Color = RGB(255,255,0)
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
|
-
Elseif 7 <= DateDiff(
|
|
59
|
+
Elseif 7 <= DateDiff("d", mycell, Date) And mycell <> "" Then
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
@@ -64,7 +64,7 @@
|
|
|
64
64
|
|
|
65
65
|
|
|
66
66
|
|
|
67
|
-
Elseif 7 > DateDiff(
|
|
67
|
+
Elseif 7 > DateDiff("d", mycell, Date) Then
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
1
指摘された文法の間違いについて、ソースをコピペではなく手打ちで入力したミスであったため、指摘された箇所を修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
Dim mycell As Range
|
|
38
38
|
|
|
39
|
-
for i = 4 To Cells(Rows.Count
|
|
39
|
+
for i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
|
|
40
40
|
|
|
41
41
|
for j = 8 To 15
|
|
42
42
|
|
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
|
|
48
48
|
|
|
49
|
-
Range(Cells(i,3),Cells(i,7).Interior.Color = RGB(255,0,0)
|
|
49
|
+
Range(Cells(i,3),Cells(i,7)).Interior.Color = RGB(255,0,0)
|
|
50
50
|
|
|
51
51
|
|
|
52
52
|
|