回答編集履歴
5
IntをLongに。全て平均が入るように変更。
test
CHANGED
@@ -10,7 +10,7 @@
|
|
10
10
|
|
11
11
|
'B列から開始
|
12
12
|
|
13
|
-
Dim i As
|
13
|
+
Dim i As Long: i = 2
|
14
14
|
|
15
15
|
' 列のループ(C列まで)
|
16
16
|
|
@@ -18,13 +18,13 @@
|
|
18
18
|
|
19
19
|
'合計値
|
20
20
|
|
21
|
-
Dim sum As
|
21
|
+
Dim sum As Long: sum = 0
|
22
22
|
|
23
23
|
|
24
24
|
|
25
25
|
'2行目から開始
|
26
26
|
|
27
|
-
Dim j As
|
27
|
+
Dim j As Long: j = 2
|
28
28
|
|
29
29
|
'行のループ(空欄まで)
|
30
30
|
|
@@ -40,25 +40,9 @@
|
|
40
40
|
|
41
41
|
If (j - 1) Mod 5 = 0 Then
|
42
42
|
|
43
|
-
'
|
43
|
+
'平均をセルに設定
|
44
44
|
|
45
|
-
Dim data As Integer: data = sum
|
46
|
-
|
47
|
-
'A列だったら
|
48
|
-
|
49
|
-
If i = 2 Then
|
50
|
-
|
51
|
-
'平均にする
|
52
|
-
|
53
|
-
data = data / 5
|
54
|
-
|
55
|
-
End If
|
56
|
-
|
57
|
-
|
58
|
-
|
59
|
-
'セルに設定
|
60
|
-
|
61
|
-
Worksheets("Sheet1").Cells(j/5+1, i+2).Value =
|
45
|
+
Worksheets("Sheet1").Cells(j/5+1, i+2).Value = sum / 5
|
62
46
|
|
63
47
|
sum = 0
|
64
48
|
|
4
valが良くなかったのでdataに変更。
test
CHANGED
@@ -42,7 +42,7 @@
|
|
42
42
|
|
43
43
|
'合計を設定
|
44
44
|
|
45
|
-
Dim
|
45
|
+
Dim data As Integer: data = sum
|
46
46
|
|
47
47
|
'A列だったら
|
48
48
|
|
@@ -50,7 +50,7 @@
|
|
50
50
|
|
51
51
|
'平均にする
|
52
52
|
|
53
|
-
|
53
|
+
data = data / 5
|
54
54
|
|
55
55
|
End If
|
56
56
|
|
@@ -58,7 +58,7 @@
|
|
58
58
|
|
59
59
|
'セルに設定
|
60
60
|
|
61
|
-
Worksheets("Sheet1").Cells(j/5+1, i+2).Value =
|
61
|
+
Worksheets("Sheet1").Cells(j/5+1, i+2).Value = data
|
62
62
|
|
63
63
|
sum = 0
|
64
64
|
|
3
==を=に
test
CHANGED
@@ -38,7 +38,7 @@
|
|
38
38
|
|
39
39
|
'5の倍数になったら
|
40
40
|
|
41
|
-
If (j - 1) Mod 5 =
|
41
|
+
If (j - 1) Mod 5 = 0 Then
|
42
42
|
|
43
43
|
'合計を設定
|
44
44
|
|
@@ -46,7 +46,7 @@
|
|
46
46
|
|
47
47
|
'A列だったら
|
48
48
|
|
49
|
-
If i =
|
49
|
+
If i = 2 Then
|
50
50
|
|
51
51
|
'平均にする
|
52
52
|
|
2
修正漏れ
test
CHANGED
@@ -42,7 +42,7 @@
|
|
42
42
|
|
43
43
|
'合計を設定
|
44
44
|
|
45
|
-
val = sum
|
45
|
+
Dim val As Integer: val = sum
|
46
46
|
|
47
47
|
'A列だったら
|
48
48
|
|
1
指摘を修正
test
CHANGED
@@ -10,7 +10,7 @@
|
|
10
10
|
|
11
11
|
'B列から開始
|
12
12
|
|
13
|
-
i = 2
|
13
|
+
Dim i As Integer: i = 2
|
14
14
|
|
15
15
|
' 列のループ(C列まで)
|
16
16
|
|
@@ -18,13 +18,13 @@
|
|
18
18
|
|
19
19
|
'合計値
|
20
20
|
|
21
|
-
sum = 0
|
21
|
+
Dim sum As Integer: sum = 0
|
22
22
|
|
23
23
|
|
24
24
|
|
25
25
|
'2行目から開始
|
26
26
|
|
27
|
-
j = 2
|
27
|
+
Dim j As Integer: j = 2
|
28
28
|
|
29
29
|
'行のループ(空欄まで)
|
30
30
|
|
@@ -38,7 +38,7 @@
|
|
38
38
|
|
39
39
|
'5の倍数になったら
|
40
40
|
|
41
|
-
If (j - 1)
|
41
|
+
If (j - 1) Mod 5 == 0 Then
|
42
42
|
|
43
43
|
'合計を設定
|
44
44
|
|