回答編集履歴
2
n計算・条件式の追加
answer
CHANGED
|
@@ -16,12 +16,16 @@
|
|
|
16
16
|
|
|
17
17
|
n = WorksheetFunction.CountIf(Range("A8:A17"), "<>")
|
|
18
18
|
|
|
19
|
-
If n <=
|
|
19
|
+
If n <= 0 Then
|
|
20
|
+
Exit Sub
|
|
21
|
+
ElseIf n <= 8 Then
|
|
20
22
|
c = (n - 1) \ 2 + 1 '/でないことに注意
|
|
21
23
|
ElseIf n = 9 Then
|
|
22
24
|
c = 3
|
|
23
25
|
ElseIf n = 10 Then
|
|
24
26
|
c = 4
|
|
27
|
+
Else
|
|
28
|
+
Exit Sub
|
|
25
29
|
End If
|
|
26
30
|
|
|
27
31
|
ret = "="
|
1
nの計算式を追加
answer
CHANGED
|
@@ -14,8 +14,8 @@
|
|
|
14
14
|
Dim ret As String
|
|
15
15
|
Dim cel As String
|
|
16
16
|
|
|
17
|
-
|
|
17
|
+
n = WorksheetFunction.CountIf(Range("A8:A17"), "<>")
|
|
18
|
-
|
|
18
|
+
|
|
19
19
|
If n <= 8 Then
|
|
20
20
|
c = (n - 1) \ 2 + 1 '/でないことに注意
|
|
21
21
|
ElseIf n = 9 Then
|