回答編集履歴

5

IntをLongに。全て平均が入るように変更。

2017/10/25 08:46

投稿

yuki-saito
yuki-saito

スコア928

test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  'B列から開始
12
12
 
13
- Dim i As Integer: i = 2
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 Integer: sum = 0
21
+ Dim sum As Long: sum = 0
22
22
 
23
23
 
24
24
 
25
25
  '2行目から開始
26
26
 
27
- Dim j As Integer: j = 2
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 = data
45
+ Worksheets("Sheet1").Cells(j/5+1, i+2).Value = sum / 5
62
46
 
63
47
  sum = 0
64
48
 

4

valが良くなかったのでdataに変更。

2017/10/25 08:46

投稿

yuki-saito
yuki-saito

スコア928

test CHANGED
@@ -42,7 +42,7 @@
42
42
 
43
43
  '合計を設定
44
44
 
45
- Dim val As Integer: val = sum
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
- val = val / 5
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 = val
61
+ Worksheets("Sheet1").Cells(j/5+1, i+2).Value = data
62
62
 
63
63
  sum = 0
64
64
 

3

==を=に

2017/10/25 07:28

投稿

yuki-saito
yuki-saito

スコア928

test CHANGED
@@ -38,7 +38,7 @@
38
38
 
39
39
  '5の倍数になったら
40
40
 
41
- If (j - 1) Mod 5 == 0 Then
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 == 2 Then
49
+ If i = 2 Then
50
50
 
51
51
  '平均にする
52
52
 

2

修正漏れ

2017/10/25 07:21

投稿

yuki-saito
yuki-saito

スコア928

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

指摘を修正

2017/10/25 07:09

投稿

yuki-saito
yuki-saito

スコア928

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) % 5 == 0 Then
41
+ If (j - 1) Mod 5 == 0 Then
42
42
 
43
43
  '合計を設定
44
44