エクセルでマクロを使って新規シートを作成する方法を教えてください！（条件あります）

質問

初めて質問するのですが、エクセルで原紙シートのマクロまで全てをコピーして新規のシートを作成させるにはどうしたらいいですか？

新規のシートの特定のセルに入力した時に新規シートが作成されるようにできますか？

原紙は

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Address = "$A$1" Then

ActiveSheet.Name = Target.Value

End If

End Sub

のマクロが現在できあがってます。これを残しつつできますか？よろしくお願いします！

回答No.2

keirika · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Address = "$A$1" Then

ActiveSheet.Copy After:=Sheets(1)
ActiveSheet.Name = Target.Value

End If

End Sub

でどうでしょうか。

お礼

ありがとうございました☆理想どおりのものになりました！！

まさに求めてた形ですｗｗｗｗまた何かあったらお願いします☆

回答No.1

marbin

>Private Sub Worksheet_Change(ByVal Target As Range)
シートモジュールではなく、

ブックモジュールの↓ではダメですか？

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

これですと、マクロごとコピーしなくてすみます。

お礼

どうもありがとうございました☆

こんなに早く返事をいただけるとはｗｗｗ参考にさせていただきます！

試してできたら、あらためてお礼申し上げます☆