質問編集履歴
5
文言の編集
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
以下のソースでは実行するとB1に「開発A」、B2に「開発B」と転記されます。
|
|
24
24
|
|
|
25
|
-
これを担当者の数だけ「開発A」で繰り返し、その後に「開発B」という画像の転記先のように繰り返して転記していきたいのですが、うまくできません。
|
|
25
|
+
これを担当者の数だけ「開発A」で繰り返し、その後に「開発B」という画像の転記先のように繰り返して転記していきたいのですが、うまくできません。
|
|
26
26
|
|
|
27
27
|
●転記する
|
|
28
28
|
|
4
内容の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,7 +20,9 @@
|
|
|
20
20
|
|
|
21
21
|
以下の箇所で、転記を実装します。
|
|
22
22
|
|
|
23
|
+
以下のソースでは実行するとB1に「開発A」、B2に「開発B」と転記されます。
|
|
24
|
+
|
|
23
|
-
|
|
25
|
+
これを担当者の数だけ「開発A」で繰り返し、その後に「開発B」という画像の転記先のように繰り返して転記していきたいのですが、うまくできません。。
|
|
24
26
|
|
|
25
27
|
●転記する
|
|
26
28
|
|
|
@@ -28,29 +30,27 @@
|
|
|
28
30
|
|
|
29
31
|
'----- 「更新」シートの内容を現在のシートにコピー(自由に変更して下さい)
|
|
30
32
|
|
|
31
|
-
|
|
32
|
-
|
|
33
|
-
'wsSet.Cells(lngRowsNo, 1) = wsAcq.Cells(1, "A")
|
|
34
|
-
|
|
35
|
-
|
|
36
|
-
|
|
37
33
|
With wsAcq
|
|
38
34
|
|
|
39
35
|
For i = 1 To .UsedRange.Rows.Count
|
|
40
36
|
|
|
41
37
|
If Left(.Cells(i, 2).Value, 2) = "開発" Then
|
|
42
38
|
|
|
43
|
-
|
|
39
|
+
wsSet.Cells(lngRowsNo, 2).Value = .Cells(i, 2).Value
|
|
44
40
|
|
|
45
|
-
|
|
41
|
+
lngRowsNo = lngRowsNo + 1
|
|
46
|
-
|
|
47
|
-
|
|
48
42
|
|
|
49
43
|
End If
|
|
50
44
|
|
|
51
45
|
Next i
|
|
52
46
|
|
|
53
47
|
End With
|
|
48
|
+
|
|
49
|
+
'----- 書きこむ位置移動
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
'----- 検索の終了
|
|
54
54
|
|
|
55
55
|
```
|
|
56
56
|
|
3
内容の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,12 +3,6 @@
|
|
|
3
3
|
以下の画像のようにブックからブックへ転記をしたいです。
|
|
4
4
|
|
|
5
5
|
その時、転記元のエクセルファイル（拡張子はxls）が格納されているフォルダを指定してそのフォルダ内のエクセルファイルすべてに対してに「更新」というシートがあるときだけ以下の画像のように転記を実行したいです。
|
|
6
|
-
|
|
7
|
-
|
|
8
|
-
|
|
9
|
-
現在のソースだと、指定したフォルダのxlsファイルを順番に開閉するだけの挙動になります。
|
|
10
|
-
|
|
11
|
-
なぜ転記が実行されないのか、どうすれば転記できるのかを教えていただきたいです。。
|
|
12
6
|
|
|
13
7
|
|
|
14
8
|
|
|
@@ -24,7 +18,9 @@
|
|
|
24
18
|
|
|
25
19
|
|
|
26
20
|
|
|
21
|
+
以下の箇所で、転記を実装します。
|
|
22
|
+
|
|
27
|
-
以下の
|
|
23
|
+
以下のソースでは転記元のB14の値をピンポイントで持ってきていますが、これを担当者の数だけ繰り返して転記していきたいのですが、うまくできません。。
|
|
28
24
|
|
|
29
25
|
●転記する
|
|
30
26
|
|
|
@@ -42,11 +38,11 @@
|
|
|
42
38
|
|
|
43
39
|
For i = 1 To .UsedRange.Rows.Count
|
|
44
40
|
|
|
45
|
-
If Left(.Cells(i,
|
|
41
|
+
If Left(.Cells(i, 2).Value, 2) = "開発" Then
|
|
46
42
|
|
|
47
43
|
|
|
48
44
|
|
|
49
|
-
wsSet.Cells(lngRowsNo,
|
|
45
|
+
wsSet.Cells(lngRowsNo, 2) = wsAcq.Cells(14, "B")
|
|
50
46
|
|
|
51
47
|
|
|
52
48
|
|
2
内容の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,23 +24,37 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
+
以下の箇所で、転記を実装するのですが（まずは開発AとB（転記先のB列）の値をコピーしたいです）以下のコードでとりあえず開発Aを一つ取ろうとしたのですが、それもうまくできませんでした。
|
|
27
28
|
|
|
28
|
-
|
|
29
|
-
「Excelブックを開く」箇所は最初は以下のようになっていたのですが、そのままだと
|
|
30
|
-
|
|
31
|
-
「クラスはオートメーションをサポートしていないか、または必要なインターフェースをサポートしていません」
|
|
32
|
-
|
|
33
|
-
というエラーメッセージが出ており、現在のソースに修正したところ、とりあえずエラーは消えファイルの開閉ができたので現状のソースのように修正してあります。（この話は関係ないかもしれないです）
|
|
34
|
-
|
|
35
|
-
●
|
|
29
|
+
●転記する
|
|
36
30
|
|
|
37
31
|
``` Macro
|
|
38
32
|
|
|
39
|
-
'-----
|
|
33
|
+
'----- 「更新」シートの内容を現在のシートにコピー(自由に変更して下さい)
|
|
40
34
|
|
|
41
|
-
|
|
35
|
+
|
|
42
36
|
|
|
37
|
+
'wsSet.Cells(lngRowsNo, 1) = wsAcq.Cells(1, "A")
|
|
43
38
|
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
With wsAcq
|
|
42
|
+
|
|
43
|
+
For i = 1 To .UsedRange.Rows.Count
|
|
44
|
+
|
|
45
|
+
If Left(.Cells(i, 1).Value, 2) = "開発" Then
|
|
46
|
+
|
|
47
|
+
|
|
48
|
+
|
|
49
|
+
wsSet.Cells(lngRowsNo, 1) = wsAcq.Cells(14, "B")
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
End If
|
|
54
|
+
|
|
55
|
+
Next i
|
|
56
|
+
|
|
57
|
+
End With
|
|
44
58
|
|
|
45
59
|
```
|
|
46
60
|
|
1
文言の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
以下の画像のようにブックからブックへ転記をしたいです。
|
|
4
4
|
|
|
5
|
-
その時、転記元のエクセルファイル（拡張子はxls）が格納されているフォルダを指定してエクセルファイルに「更新」というシートがあるときだけ転記を実行したいです。
|
|
5
|
+
その時、転記元のエクセルファイル（拡張子はxls）が格納されているフォルダを指定してそのフォルダ内のエクセルファイルすべてに対してに「更新」というシートがあるときだけ以下の画像のように転記を実行したいです。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|