選択したセルに入力されている文字列をシート名にして、その個数分をtemplateシートのコピーで用意したい

Copyメソッドを使用して、 templateシートをコピーし、 afterパラメータを使って、新しいワークシートが現在のワークブックの最後のワークシートの後ろに配置されるように指定します次のようなマクロにすると、 Sub CreateSheetsFromTemplate() 　Dim cell As Range 　Dim templateSheet As Worksheet 　Set templateSheet = ThisWorkbook.Sheets("template") 　For Each cell In Selection ' 選択範囲内のすべてのセルに対して　　If cell.Value <> "" Then ' セルが空でない場合　　　templateSheet.Copy after:=Worksheets(Worksheets.Count) 　　　ActiveSheet.Name = cell.Value 　　End If 　Next cell End Sub ユーザーが選択したセルの値を新しいシート名として、テンプレートシートから新しいワークシートを作成することができます。セルが空の場合は、何も起こりません。

	①作例では、左図のようなtemplateシートを使います氏名欄には、シート名を参照する数式を設定しています。
	②前号で作った、シート名を変更するマクロに手を加えて使います
	③テンプレートシートを取得するための変数templateSheetを宣言して、"template"という名前のシートを取得します Copyメソッドを使用して、templateSheetをコピーするようにコードを変更します。
	④このマクロを実行すると、ユーザーが選択したセルの値を新しいシート名として、テンプレートシートから新しいワークシートを作成することができますセルが空の場合は、何も起こりません。















	●「選択中のセル値の名前を持つ新規シートを、templateシートをコピーしながら作る」マクロを新規作成します

	関連する他のページ
	『名前』に右隣セルの『ふりがな』を登録したい簡単なマクロを作って、ふりがな登録する方法があります日別のシフト表から、個人の勤怠データを抜き出して表示したい日別勤怠表のシート名を数式で作りながら、 VLOOKUP関数で参照する方法がありますシート名のクリックで、必要なシートを簡単に表示したいジャンプ先のシート名がセルに入力されている場合には、ハイパーリンクを設定することで、そのシートを簡単に表示することができます前日シートのテーブルを、当日の新規シートでも使いたい前日シートのコピーで、当日の新規シートを作り、そのデータ範囲だけを削除する方法がありますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述します編集シートの前に新規シートを挿入したい Shift＋F11キーで行えます他のブックにあるシートを簡単に表示したいハイパーリンクによるジャンプ先は、他のブックのシートも対象にできますシート名のクリックで、必要なシートを簡単に表示したいジャンプ先のシート名がセルに入力されている場合には、ハイパーリンクを設定することで、そのシートを簡単に表示することができます必要なシートを簡単に表示したい任意のセルにシートと同じ名前をつけておけば、名前ボックスのリストからそれを選んで表示できるようになります班名をクリックすると、そのメンバーリストが表示されるようにしたいセル範囲に名前を定義すれば、その名前へのハイパーリンクを設定することで、そこへのジャンプが可能となります必要な月スケジュール表だけを印刷したい範囲を選択してから印刷しますカレンダーを用紙に合わせて印刷したい印刷したいセル範囲を決めて、 1ページに収まるように設定しますシートの一部だけを印刷したいあらかじめ印刷範囲を設定しておけば、そのセル範囲だけを印刷できます格子状の罫線を付けて印刷したい「ページ設定」の「シート」タブで「格子」を設定すれば、格子状の罫線を付加して印刷できますシートに作った暑中見舞いをハガキに印刷したい見た目と印刷結果は異なることが多いので、印刷プレビューしてから印刷する方法がオススメですオートフィルタで抽出したデータを、用紙1枚で印刷したい［次のページ数に合わせて印刷］を使えば、指定した枚数でデータの印刷を行えます指定したページだけを、とびとびで印刷したいマクロを使えば、指定したページだけを連続して印刷することは可能ですどのブックからでも利用できるマクロを作りたい「個人用マクロブック」に登録すれば、どのブックからでもそのマクロを実行できるようになりますマクロ実行の対象範囲を固定したいセルやセル範囲は、 Rangeで指定できます選択中のセル範囲に含まれる空セルを、マクロ処理の対象から除外したい空セルでないことを条件に、マクロを実行するよう、 If文を追加します選択中のセル範囲に対してのマクロ実行結果を、別のセルに表示したい Offsetを使うと、対象のセルの位置を行列単位でずらすことができます選択中のセル範囲に対するマクロを作りたい For Each～Nextで、選択中のセル範囲（Selection）に対する処理を記述します出退の時刻を簡単に記録したい簡単なマクロを作れば、「出社」や「退社」をクリック（タップ）するだけで現在日時を入力できるタイムカードを用意できます『名前』に右隣セルの『ふりがな』を登録したい簡単なマクロを作って、ふりがな登録する方法がありますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述しますマイナス値をゼロに置換したい④ If...ThenステートメントによるVBAマクロを使えば、マイナス値をまとめてゼロに置換できます “縮小して表全体を表示する”のマクロを、クイックアクセスツールバーから実行したいクイックアクセスツールバーにマクロを登録すれば、マウスからでも、キーボードからでも、簡単に実行できるようになります “縮小して表全体を表示する”のマクロを使って、表の選択から一気に処理したい Range.CurrentRegion プロパティを使えば、アクティブセル領域となっている表全体をマクロで選択できます “縮小して表全体を表示する”を、ショートカットキーですばやく実行したい実行手順をマクロとして記録すれば、ショートカットキーでその一連の手順をすばやく実行できるようになります “セキュリティの警告”が表示されるんだけど・・・マクロを含むブックを開くときには、注意を促すべく、「セキュリティの警告」が表示されますマクロ有効ファイルって何？マクロを含むブックは、マクロ有効ファイル（マクロ有効ブック）として保存しなければ、マクロが失われてしまいます 100行程度の表で、5行おきに、新しい行を挿入したいあまり大きくない表でのパターン化された処理なら、一定の手順をマクロ記録すると便利ですオートシェイプをクリックするたびに、枠線の表示と非表示を切り替えたい枠線の表示と非表示の切り替えマクロを、オートシェイプに登録すれば、オートシェイプをクリックするだけでそのマクロが実行されるようになりますオートシェイプの枠線の表示と非表示を、一つのマクロで切り替えたい If～Then～Elseの構文を使えば、オートシェイプの状態に応じて、表示と非表示を一つのマクロで切り替えられますオートシェイプの枠線の表示の有無を、マクロで切り替えたい Shape.LineのVisibleプロパティの設定を変えることで、枠線を表示したり非表示にしたりすることができますマクロを右クリックで実行したい Worksheet_BeforeRightClickイベントのプロシージャにマクロを記述すると、指定シートを右クリックしたときにそのマクロが実行されますブックを閉じるときに、マクロを自動的に実行したいそのブックのWorkbook.BeforeClose イベントに、マクロを実行するコードを記述します２つのフォルダへの保存マクロを、汎用的なものにしたいファイル名の部分を、編集中のブックの名前を表すActiveWorkbook.Nameにすると、編集中のブックならどれでもマルチ保存が可能になりますマクロ実行時に表示されるダイアログボックスを無視したい Application.DisplayAlerts プロパティをFalseにすると、マクロの実行中に警告やメッセージが表示されなくなります編集中のブックを、現在のフォルダとは別のフォルダにも、すばやく保存したい手間のかかる操作は、マクロ化すれば、簡単に処理できるようになりますマクロのコードを、見た目にわかりやすく、簡潔に記述したい With ステートメントを使えば、作業の対象となるオブジェクトの記述が１回で済みます B2セルに入力してあるデータを、そのシートの名前にしたいシートの名前は、Worksheet.Name プロパティで変えることができますリスト内の各データを、必要に応じて個別で表示したいマクロを使えば、ダブルクリックしたデータを、専用のユーザーフォームで表示することができます

選択したセルに入力されている文字列をシート名にして、 その個数分をtemplateシートのコピーで用意したい

Copyメソッドを使用して、 templateシートをコピーし、 afterパラメータを使って、 新しいワークシートが現在のワークブックの最後のワークシートの後ろに配置されるように指定します

Sub CreateSheetsFromTemplate() Dim cell As Range Dim templateSheet As Worksheet Set templateSheet = ThisWorkbook.Sheets("template")

For Each cell In Selection ' 選択範囲内のすべてのセルに対して If cell.Value <> "" Then ' セルが空でない場合 templateSheet.Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = cell.Value End If Next cell End Sub

①作例では、左図のようなtemplateシートを使います

②前号で作った、シート名を変更するマクロに手を加えて使います

③テンプレートシートを取得するための変数templateSheetを宣言して、"template"という名前のシートを取得します

④このマクロを実行すると、ユーザーが選択したセルの値を新しいシート名として、テンプレートシートから新しいワークシートを作成することができます

●「選択中のセル値の名前を持つ新規シートを、templateシートをコピーしながら作る」マクロを新規作成します

関連する他のページ

選択したセルに入力されている文字列をシート名にして、その個数分をtemplateシートのコピーで用意したい

Copyメソッドを使用して、 templateシートをコピーし、 afterパラメータを使って、新しいワークシートが現在のワークブックの最後のワークシートの後ろに配置されるように指定します

Sub CreateSheetsFromTemplate()
　Dim cell As Range
　Dim templateSheet As Worksheet
　Set templateSheet = ThisWorkbook.Sheets("template")

　For Each cell In Selection ' 選択範囲内のすべてのセルに対して
　　If cell.Value <> "" Then ' セルが空でない場合
　　　templateSheet.Copy after:=Worksheets(Worksheets.Count)
　　　ActiveSheet.Name = cell.Value
　　End If
　Next cell
End Sub