teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問エクセル　VBA 特定セルを一つのシートにまとめたい

編集履歴

質問編集履歴

3

画像追加

2015/11/10 07:46

投稿

cat_junko
cat_junko

スコア44

test CHANGED
File without changes
test CHANGED
@@ -47,3 +47,7 @@
47
47
 
48
48
 
49
49
  End Sub
50
+
51
+
52
+
53
+ ![![イメージ説明](48b5ef41e06f1bc23d1e26903b7f38f4.jpeg)説明](febd8215a4dc638fcdf065c12c1e32da.jpeg)ージ説明](290caebec0516ff6268cd1e201648340.jpeg)9965781a4b8eb3bc8a92981b66ccbd82.jpeg)

2

プログラム修正

2015/11/10 07:45

投稿

cat_junko
cat_junko

スコア44

test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,6 @@
1
1
  ◆印刷範囲外に、書かれた赤と青で囲まれた数値をまずそのまま
2
2
 
3
- でも良いので別シートに表示させたいです。
3
+ でも良いので別シートに表示させたいです。 ・・・解決
4
4
 
5
5
  （全１１シートあり全て同じセルに入っています）
6
6
 
@@ -24,30 +24,26 @@
24
24
 
25
25
  Dim ws
26
26
 
27
- For atai = 2 To 12
27
+
28
28
 
29
- For ws = 1 To 11
29
+ ws = 1
30
30
 
31
-
31
+ For atai = 2 To 12
32
32
 
33
- Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
33
+ Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
34
34
 
35
- Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
35
+ Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
36
36
 
37
- Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
37
+ Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
38
38
 
39
- Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
39
+ Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
40
+
41
+
42
+
43
+ ws = ws + 1
40
44
 
41
45
  Next
42
46
 
43
- Next
47
+
44
48
 
45
49
  End Sub
46
-
47
-
48
-
49
- 全然、違うけど・・・。
50
-
51
- シートを、回したいときは「For Next」ではいかなんでしたっけ？
52
-
53
- 同じシート内を、１１回回っているようです。

1

プログラム追加

2015/11/10 07:32

投稿

cat_junko
cat_junko

スコア44

test CHANGED
File without changes
test CHANGED
@@ -13,3 +13,41 @@
13
13
 
14
14
 
15
15
  ![イメージ説明](d9ff1ce6378154dc377bf7bf4b00105a.jpeg)
16
+
17
+
18
+
19
+
20
+
21
+ Sub saidaichi()
22
+
23
+ Dim atai
24
+
25
+ Dim ws
26
+
27
+ For atai = 2 To 12
28
+
29
+ For ws = 1 To 11
30
+
31
+
32
+
33
+ Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
34
+
35
+ Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
36
+
37
+ Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
38
+
39
+ Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
40
+
41
+ Next
42
+
43
+ Next
44
+
45
+ End Sub
46
+
47
+
48
+
49
+ 全然、違うけど・・・。
50
+
51
+ シートを、回したいときは「For Next」ではいかなんでしたっけ？
52
+
53
+ 同じシート内を、１１回回っているようです。