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

編集履歴

質問編集履歴

3

画像追加

2015/11/10 07:46

投稿

cat_junko
cat_junko

スコア44

title CHANGED
File without changes
body CHANGED
@@ -22,4 +22,6 @@
22
22
  ws = ws + 1
23
23
  Next
24
24
 
25
- End Sub
25
+ End Sub
26
+
27
+ ![![イメージ説明](48b5ef41e06f1bc23d1e26903b7f38f4.jpeg)説明](febd8215a4dc638fcdf065c12c1e32da.jpeg)ージ説明](290caebec0516ff6268cd1e201648340.jpeg)9965781a4b8eb3bc8a92981b66ccbd82.jpeg)

2

プログラム修正

2015/11/10 07:45

投稿

cat_junko
cat_junko

スコア44

title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
1
  ◆印刷範囲外に、書かれた赤と青で囲まれた数値をまずそのまま
2
- でも良いので別シートに表示させたいです。
2
+ でも良いので別シートに表示させたいです。 ・・・解決
3
3
  （全１１シートあり全て同じセルに入っています）
4
4
  ◆そして、その表示した数値の最大値を求めいです。
5
5
  （たとえば、「-0.002」と「0.001」だったら「-0.002」
@@ -11,17 +11,15 @@
11
11
  Sub saidaichi()
12
12
  Dim atai
13
13
  Dim ws
14
+
15
+ ws = 1
14
- For atai = 2 To 12
16
+ For atai = 2 To 12
15
- For ws = 1 To 11
16
-
17
- Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
17
+ Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
18
- Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
18
+ Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
19
- Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
19
+ Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
20
- Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
20
+ Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
21
+
22
+ ws = ws + 1
21
23
  Next
22
- Next
24
+
23
- End Sub
25
+ End Sub
24
-
25
- 全然、違うけど・・・。
26
- シートを、回したいときは「For Next」ではいかなんでしたっけ？
27
- 同じシート内を、１１回回っているようです。

1

プログラム追加

2015/11/10 07:32

投稿

cat_junko
cat_junko

スコア44

title CHANGED
File without changes
body CHANGED
@@ -5,4 +5,23 @@
5
5
  （たとえば、「-0.002」と「0.001」だったら「-0.002」
6
6
  「-0.002」と「0.002」なら±0.002と表示したいです）
7
7
 
8
- ![イメージ説明](d9ff1ce6378154dc377bf7bf4b00105a.jpeg)
8
+ ![イメージ説明](d9ff1ce6378154dc377bf7bf4b00105a.jpeg)
9
+
10
+
11
+ Sub saidaichi()
12
+ Dim atai
13
+ Dim ws
14
+ For atai = 2 To 12
15
+ For ws = 1 To 11
16
+
17
+ Worksheets("最大値").Range("C" & atai).Value = Worksheets(ws).Range("EK8").Value
18
+ Worksheets("最大値").Range("D" & atai).Value = Worksheets(ws).Range("EK10").Value
19
+ Worksheets("最大値").Range("E" & atai).Value = Worksheets(ws).Range("EK9").Value
20
+ Worksheets("最大値").Range("F" & atai).Value = Worksheets(ws).Range("EK11").Value
21
+ Next
22
+ Next
23
+ End Sub
24
+
25
+ 全然、違うけど・・・。
26
+ シートを、回したいときは「For Next」ではいかなんでしたっけ？
27
+ 同じシート内を、１１回回っているようです。