質問編集履歴
2
誤記修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,15 +2,15 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
C62:D69のセルに1つでも空白がある場合 → C70のセルに「2」と入力
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
C62:D69のセルが全て埋まっていたら（空白でない） → C70のセルに「1」と入力
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
11
|
という内容が実行される予定でしたが、
|
|
12
12
|
|
|
13
|
-
マクロの実行を行うと
|
|
13
|
+
マクロの実行を行うとC70のセルにどの場合でも「2」と入ってしまいます。
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
@@ -24,17 +24,17 @@
|
|
|
24
24
|
|
|
25
25
|
Sub test()
|
|
26
26
|
|
|
27
|
-
If WorksheetFunction.CountBlank(Range("
|
|
27
|
+
If WorksheetFunction.CountBlank(Range("C62:D69")) > 0 Then
|
|
28
28
|
|
|
29
|
-
Cells(70,
|
|
29
|
+
Cells(70, 3).Value = "2"
|
|
30
30
|
|
|
31
31
|
End If
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
35
|
-
If WorksheetFunction.CountBlank(Range("
|
|
35
|
+
If WorksheetFunction.CountBlank(Range("C62:D69")) = 0 Then
|
|
36
36
|
|
|
37
|
-
Cells(70,
|
|
37
|
+
Cells(70, 3).Value = "1"
|
|
38
38
|
|
|
39
39
|
End If
|
|
40
40
|
|
1
画像の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -49,3 +49,9 @@
|
|
|
49
49
|
何かお気づきのことがありましたら、
|
|
50
50
|
|
|
51
51
|
ご教示願います。
|
|
52
|
+
|
|
53
|
+
|
|
54
|
+
|
|
55
|
+
【追記】
|
|
56
|
+
|
|
57
|
+
|