これからこちらで勉強していきたい初心者です。
よろしくお願いします。
<やりたいこと>
Excel VBAで複数あるブックから集計表に転記するときに選択するシート名を集計表のA1の値と同じものにしたい
営業所別のエクセルbookがあり、月別に商品ごとの売上が記入されています。
A営業所.xlsx
B営業所.xlsx
C営業所.xlsx
:
シートが4月(2017.4)~翌月3月(2018.3)まであります。
それを毎月別の集計表のBookに転記するのですが、選択するシートを集計表のセル(A1)の値と同じ名前のシートを選択したいのです。
<A営業所.xlsx シート名:2017.06>
A b
1
2 商品あ 200
3 商品い 300
4 商品う 100
5 商品え :
<集計表>
A b C D
1 2017.06
2 A営業所 B営業所 C営業所
2 商品あ 200 100 150
3 商品い 300 50 200
4 商品う 100 300 70
5 商品え :
Workbooks.Open Filename:="A営業所.xlsx" Sheets("2017.6").Select Range("B2:B82").Select Selection.Copy Windows("集計表").Activate Range("B2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("A営業所.xlsx").Activate ActiveWindow.Close Workbooks.Open Filename:="B営業所.xlsx" Sheets("2017.6").Select Range("B2:B82").Select Selection.Copy Windows("集計表").Activate Range("C2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("B営業所.xlsx").Activate ActiveWindow.Close
:
:
↓こちらのシートを選択する部分の"2017.6"をA1と選択したいのです。
Sheets("2017.6").Select
変数strSNにアクティブシートの A1 セルの値を代入する式は分かったのですがどのタイミングで入れるといいのかわかりません。
Dim strSN As String
strSN = ActiveSheet.Range("A1").Value
素人丸出しでお恥ずかしいのですが、どなたかお知恵をお貸しください。
よろしくお願いします。
回答3件
あなたの回答
tips
プレビュー