質問編集履歴
4
タグの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
3
コメントの更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,16 @@
|
|
|
1
|
+
**
|
|
2
|
+
|
|
3
|
+
どうやら原因は必要なシートをactivateしていなかった為でした。
|
|
4
|
+
|
|
5
|
+
7行目と8行目の間に
|
|
6
|
+
|
|
1
|
-
|
|
7
|
+
Workbooks("Profile List Maker.xlsm").Activate
|
|
8
|
+
|
|
9
|
+
と入れたらうまくいきました！
|
|
10
|
+
|
|
11
|
+
2021.2
|
|
12
|
+
|
|
13
|
+
|
|
2
14
|
|
|
3
15
|
**
|
|
4
16
|
|
|
@@ -40,7 +52,7 @@
|
|
|
40
52
|
|
|
41
53
|
６：For pic = 1 To Worksheets.Count
|
|
42
54
|
|
|
43
|
-
７： If Worksheets(pic).Name Like "*" & "写真" & "*" Then
|
|
55
|
+
７： If Workbooks(aa).Worksheets(pic).Name Like "*" & "写真" & "*" Then
|
|
44
56
|
|
|
45
57
|
８： Workbooks(aa).Worksheets(pic).Copy after:=Workbooks("Profile List
|
|
46
58
|
|
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
|
-
※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
|
1
|
+
**※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
|
2
|
+
|
|
3
|
+
**
|
|
2
4
|
|
|
3
5
|
|
|
4
6
|
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
|
+
※お久しぶりです。やっと最近完成したので、12月頃にはアップします。少しでも同じような内容で悩んでいる方のお力になれれば幸いです。
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
VBA初心者です。
|
|
2
6
|
|
|
3
7
|
元ファイル（"C\" & VVYear & "年度 新入社員データ.xlsx"）から「写真」という言葉が入っているシート名のシートだけを別ファイル("Profile List Maker.xlsm")にコピーしたいのですが、
|