質問編集履歴
2
誤記修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,22 +1,22 @@
|
|
|
1
1
|
下記コードで実行を行うと、
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
C62:D69のセルに1つでも空白がある場合 → C70のセルに「2」と入力
|
|
4
|
-
|
|
4
|
+
C62:D69のセルが全て埋まっていたら（空白でない） → C70のセルに「1」と入力
|
|
5
5
|
|
|
6
6
|
という内容が実行される予定でしたが、
|
|
7
|
-
マクロの実行を行うと
|
|
7
|
+
マクロの実行を行うとC70のセルにどの場合でも「2」と入ってしまいます。
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
```VBA
|
|
11
11
|
Option Explicit
|
|
12
12
|
|
|
13
13
|
Sub test()
|
|
14
|
-
If WorksheetFunction.CountBlank(Range("
|
|
14
|
+
If WorksheetFunction.CountBlank(Range("C62:D69")) > 0 Then
|
|
15
|
-
Cells(70,
|
|
15
|
+
Cells(70, 3).Value = "2"
|
|
16
16
|
End If
|
|
17
17
|
|
|
18
|
-
If WorksheetFunction.CountBlank(Range("
|
|
18
|
+
If WorksheetFunction.CountBlank(Range("C62:D69")) = 0 Then
|
|
19
|
-
Cells(70,
|
|
19
|
+
Cells(70, 3).Value = "1"
|
|
20
20
|
End If
|
|
21
21
|
|
|
22
22
|
End Sub
|
1
画像の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -23,4 +23,7 @@
|
|
|
23
23
|
```
|
|
24
24
|
|
|
25
25
|
何かお気づきのことがありましたら、
|
|
26
|
-
ご教示願います。
|
|
26
|
+
ご教示願います。
|
|
27
|
+
|
|
28
|
+
【追記】
|
|
29
|
+
|