質問編集履歴
5
説明変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,8 +2,8 @@
|
|
|
2
2
|
以前作成したコードを再度流用することとなり、知識0の状態で作っていた酷い有様のコードを
|
|
3
3
|
ちょっとはマシな形にしようと修正作業を行っています。
|
|
4
4
|
内容としては
|
|
5
|
-
ブックAAAの特定の
|
|
5
|
+
ブックAAAの特定の行に○がついていれば同じ行のデータをブックBBBへコピーする
|
|
6
|
-
というものです。
|
|
6
|
+
というものです。※○は1～100行の中の1行にしか存在しません。
|
|
7
7
|
以前作成したものが↓
|
|
8
8
|
```VBA
|
|
9
9
|
For B = 1 to 100
|
4
コードの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -30,6 +30,7 @@
|
|
|
30
30
|
For A = 6 To 12
|
|
31
31
|
Cells(B, A + 35).Value = temp(A)
|
|
32
32
|
Next A
|
|
33
|
+
Exit For
|
|
33
34
|
End If
|
|
34
35
|
Next B
|
|
35
36
|
```
|
3
コードの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,7 +19,7 @@
|
|
|
19
19
|
|
|
20
20
|
今回修正を行ったものが↓
|
|
21
21
|
```VBA
|
|
22
|
-
Dim tempA(50)
|
|
22
|
+
Dim tempA(50) As Variant
|
|
23
23
|
For B = 1 to 100
|
|
24
24
|
If Workbooks(AAA).Worksheets("シート1").Cells(B, 2).Value = "○" Then
|
|
25
25
|
Workbooks(AAA).Worksheets("シート1").Activate
|
2
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
Next A
|
|
29
29
|
Workbooks(BBB).Worksheets("シート1").Activate
|
|
30
30
|
For A = 6 To 12
|
|
31
|
-
Cells(B, A).Value = temp(A)
|
|
31
|
+
Cells(B, A + 35).Value = temp(A)
|
|
32
32
|
Next A
|
|
33
33
|
End If
|
|
34
34
|
Next B
|
1
使用環境について追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -46,4 +46,9 @@
|
|
|
46
46
|
③「VBAの勉強をするならこのサイト！」のようなものがありましたらお教え下さい。
|
|
47
47
|
|
|
48
48
|
|
|
49
|
-
以上、長文乱文申し訳ございませんが皆様のお力をお貸し頂ければ幸いでございます。
|
|
49
|
+
以上、長文乱文申し訳ございませんが皆様のお力をお貸し頂ければ幸いでございます。
|
|
50
|
+
|
|
51
|
+
追記
|
|
52
|
+
【使用環境】
|
|
53
|
+
Windows 7 Pro 32bit
|
|
54
|
+
Microsoft Excel 2010
|