Excel VBA（マクロ）シートをコピペして名前を変更する方法

Excel VBA（マクロ）を使ってシートをコピペすることができます。

今日は事例とともにそのやり方を紹介します。

1、事例：保険料控除申告書でシートのコピペを使う
2、Excel VBA（マクロ）でシートをコピペする方法
3、まとめ
編集後記

1、事例：保険料控除申告書でシートのコピペを使う

Excel で作った保険料控除申告書を使っています。

My タックスノロジー

マクロ（Excel VBA + UWSC）を使った業務効率化事例 Excel 保険料控除申告書に入力...

https://my-tax-nology.com/insurance-premium-deduction-declaration-excel-vba-uwsc

年末調整時に「給与所得者の保険料控除申告書兼給与所得者の配偶者特別控除申告書」（以下、保険料控除申告書と呼びます）を作成しなければなりません。そして、保険料控除申告書の内容を税務ソフトに入力しなければなりません。私がいる会計事務所では、税務ソフトはJDLの「年末調整システム」を使用しています。従来は紙の保険料控除申告書に手書きで記載した内容を見ながら、年末調整システムに手入力していました。私が事務所に入った後に、業務改善を行い Excel で作った保険料控除申告書に PC上で入力した後に､ワンクリックで年...

My タックスノロジー

スケールメリットが大きいマクロ（Excel VBA）は手間がかかっても修正する

https://my-tax-nology.com/the-scale-of-merit-of-modifying-excel-vba

年末調整の時期ですね。個人に1年間のうちに生命保険料などの支払いがあれば、保険料控除を受けることができて所得税が低くなります。さて、雇われている従業員が保険料控除を受けるために作成する書類として昨年までは、以下の「給与所得者の保険料控除申告書　兼　給与所得者の配偶者特別控除申告書」がありました。それが、今年からは・「給与所得者の保険料控除申告書」・「給与所得者の配偶者控除等申告書」と2つの書類に別れました。保険料控除申告書は以下のものになりました。過年度のものから配偶者特別控除の部分が除かれて...

1枚のシートは「入力部分」と「プリントアウト部分」に分かれています。

「入力部分」に入力した内容が「プリントアウト部分」に反映されるようになっています。

一般の生命保険料であればこんな感じで↓

そして、普通にシートの印刷を行えば「プリントアウト部分」が印刷されます。

さて、年末調整を行う従業員1人1人につき上記の Excel シートへの入力を行う必要があります。元のシートがあり、それを人数分コピペして使うことになります。

以下の設定画面で全従業員の生命保険料などの金額を集計するようになっていますが、まずは保険料控除申告書を作成する従業員を指定してその人数分のシートを作成できるようになっています。

保険料控除申告書を作成したい従業員の欄に「Y」を付けて、「Sheet Maiking」ボタンを押せばマクロが実行して、人数分のシートが作成されます。

マクロの処理は色々なことをやっていますが。その一部分で「ｻﾝﾌﾟﾙ30」シートをコピペしてから、各シート名を従業員の名前（先頭に番号を付けて）に変更する過程があり、これを従業員の人数分だけ繰り返します。

このシートのコピペは色々なケースで使えるので便利です。

2、Excel VBA（マクロ）でシートをコピペする方法

シートをコピペして指定した名前に変更する仕組み

さて、シートをコピペして指定した名前に変更する仕組みを紹介します。

題材として、「サンプル」という名前のシートに保険料控除申告書を入れておきます。

いう名前のシートの中に先

マクロを実行すると以下のように「シート名を入力して下さい」というメッセージが出てくるようにしてあります。

「test」と入力して「OK」を押します。

以下については、リンク先よりお願い致します。----------------------------------------------------------------
◆メルマガ登録
◆Youtube：税理士松井元のチャンネル

すると、「サンプル」シートの左側に「サンプル」シートをコピペしたものが作成され、シート名が「test」となります。

VBA コード

上記の仕組みを作るには、以下のような VBA コードとなります。

Sub Sheet_Copy()
    
    Dim Sheet_Name As String
    
    '入力'
    Sheet_Name = InputBox("シート名を入力して下さい")
    
    
    '「キャンセルボタン」または「×ボタン」を押した場合'
    If Sheet_Name = "" Then
        Exit Sub
    Else
    End If
    
    
    'シートのコピー'
    Worksheets("サンプル").Copy Before:=Worksheets("サンプル")
    

    'シートの名前変更'
    ActiveSheet.Name = Sheet_Name

End Sub

Sub Sheet_Copy()

Dim Sheet_Name As String

'入力'

Sheet_Name = InputBox("シート名を入力して下さい")

'「キャンセルボタン」または「×ボタン」を押した場合'

If Sheet_Name = "" Then

Exit Sub

Else

End If

'シートのコピー'

Worksheets("サンプル").Copy Before:=Worksheets("サンプル")

'シートの名前変更'

ActiveSheet.Name = Sheet_Name

End Sub

コード説明

コードを説明します。

インプットボックスに入力した内容を変数に入れる

インプットボックスを表示するためには InputBox 関数を使います。

InputBox(メッセージ)

()の中に入れるメッセージは “” で囲う必要があります。

InputBox("シート名を入力して下さい")

1	InputBox("シート名を入力して下さい")

このように↑ すると以下のようにメッセージ付きのインプットボックスが出てきます。

今回以下のように記述することで、インプットボックスに入力した内容を変数「Sheet_Name」に入れています。

Sheet_Name = InputBox(“シート名を入力して下さい”)

インプットボックスに「test」と入力すると、変数「Sheet_Name」に「test」という文字が入ります。

キャンセルボタンまたは×ボタンを押した場合の処理

次に、インプットボックスでキャンセルまたは×ボタンを押した場合にコードを終了する処理を入れています。

    If Sheet_Name = "" Then
        Exit Sub
    Else
    End If

If Sheet_Name = "" Then

Exit Sub

Else

End If

インプットボックスのキャンセルを押した場合、×ボタンを押した場合には

インプットボックスに “”（空白）が入力されたと認識されます（何も入力せずに「OK」を押した場合も同じように認識）。

そしてその場合に、コードを終了するために If 文を使っています。

変数「Sheet_Name」が空白（””）の場合、プロシージャから出よ！、つまりコードを終了せよ！

という命令を Exit Sub を使って行っています。

「サンプル」シートのコピペ

さて、次に今回お話ししたかったシートのコピペを行う部分です。

Copy メソッドを使っています。

シートをコピペする場合、Copy メソッドは以下のように使います。

Worksheetオブジェクト1.Copy Before(After):=Worksheetオブジェクト2

「Worksheetオブジェクト1」を「Worksheetオブジェクト2」の左側（右側）にコピペせよ

という命令になります。

Copy のすぐ後に記述する Before、After はその後に記述する「Worksheetオブジェクト2」の左側、右側という意味になります。

・Before が左側
・After が右側

今回の以下

Worksheets("サンプル").Copy Before:=Worksheets("サンプル")

1	Worksheets("サンプル").Copy Before:=Worksheets("サンプル")

これ↑ により、「サンプル」シートを「サンプル」シートの左側にコピペせよ

という意味になります。

「サンプル」シートの左側に同じ中身のシートを作るということですね。

シート名を変更

さて、上記でコピペした「サンプル」シートの名前を変更します。

以下のように記述します。

ActiveSheet.Name = Sheet_Name

1	ActiveSheet.Name = Sheet_Name

コピペした直後は、新しく作られたシートがアクティブ（操作対象）となっているので、その名前という意味で

ActiveSheet.Name

と記述します。

そして、「ActiveSheet.Name」を最初にインプットボックスに入力した名前にするために「ActiveSheet.Name = Sheet_Name」と記述します。

3、まとめ

以上で、Excel VBA（マクロ）を使ってシートをコピペする方法についてお話ししました。

シートのコピペは色々と便利なので、是非活用してみて下さい。

編集後記

昨日（1/3）は夕方から実家で食事会でした。

おせち料理、すき焼きなどたくさん食べすぎ今日はお腹が重いです。

もう間もなく始動なので、生活を元に戻さないといけないですね。