ＶＢＡのワークシートの追加とコピーなんですが。

ＶＢＡのワークシートの追加とコピーなんですが。


sheet1の原紙をすべてコピーして、

新しくワークシートを追加してそのシートに貼り付けるプログラムを

教えてください。

No.1 回答者： watabe007 回答日時： 2010/03/26 16:40

参考に

With ActiveWorkbook
　　.Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
End With

この回答への補足

watabe007さん　いつもありがとうございます。

その追加したシートの名前を変えることが一番の悩みなんですが

いい方法ありませんか？

たとえば
シート１のセルに

　　aaa = Worksheets("シート１").Cells(9, 4) 　　　aaaは社員
bbb = Worksheets("シート１").Cells(9, 5)　　　 bbbは４月

ccc = aaa & bbb　　cccは社員４月

ワークシートの名前を社員４月にしたいのです。

補足日時：2010/03/26 16:53

No.2 回答者： hana-hana3 回答日時： 2010/03/26 16:42

シート丸ごとコピーなら下記で大丈夫です。

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

この回答への補足

hana-hana3さん　ありがとうございます。

その追加したシートの名前を変えることが一番の悩みなんですが

いい方法ありませんか？

たとえば
シート１のセルに

　　aaa = Worksheets("シート１").Cells(9, 4) 　　　aaaは社員
bbb = Worksheets("シート１").Cells(9, 5)　　　 bbbは４月

ccc = aaa & bbb　　cccは社員４月

ワークシートの名前を社員４月にしたいのです。

補足日時：2010/03/26 16:54

No.3 ベストアンサー 回答者： watabe007 回答日時： 2010/03/26 17:25

With ActiveWorkbook

　　aaa = .Sheets("Sheet1").Cells(9, 4).Value 'aaaは社員
　　bbb = .Sheets("Sheet1").Cells(9, 5).Value 'bbbは４月
　　.Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
End With
ActiveSheet.Name = aaa & bbb

この回答へのお礼

watabe007さんいつも本当にありがとうございます。


本当に助かりました。

またよろしくお願いします。

お礼日時：2010/03/26 18:12