Excelでシート名またはシート名の一覧を印刷するにはどうすればよいですか？

デフォルトでは、Excelではシート名が自動的に印刷されないため、どの印刷物がどのワークシートから来たのかを判断するのは難しいです。この記事では、ワークシートにシート名を含めて印刷する方法と、シート名の一覧を印刷する方法をご紹介します。

印刷ページの設定を変更してシート名を印刷する
Kutools for Excelを使用してセルにシート名を挿入し、シート名を印刷する
VBAコードを使用してシート名の一覧を印刷する
Kutools for Excelを使用してシート名の一覧を印刷する

印刷ページの設定を変更してシート名を印刷する

ヘッダー/フッターにシート名を追加することで印刷ページの設定を変更し、その後印刷することができます。

1. 「File」>「Print」>「Print Setup」をクリックします。スクリーンショットをご覧ください：

Excel 2007では、「Office」ボタン > 「Print」>「Print Preview」をクリックしてください。Print Previewタブの下にある「Page Setup」をクリックします。

2. 「Page Setup」ダイアログボックスで、「Header/Footer」タブに移動します。ヘッダーにシート名を挿入する場合は「Custom Header」ボタンを、フッターに挿入する場合は「Custom Footer」ボタンをクリックします。ここでは「Custom Header」ボタンをクリックします。スクリーンショットをご覧ください：

3. ヘッダーダイアログボックスで、「Left section」ボックスをクリックし、次に「Insert Sheet Name」ボタンをクリックし、最後に「OK」ボタンをクリックします。スクリーンショットをご覧ください：

注: 必要に応じて、シート名を中央または右セクションにも挿入できます。

4. 「Page Setup」ダイアログに戻ったら、「OK」ボタンをクリックします。これで、ワークシートを印刷する際にシート名も一緒に印刷されます。

Kutools for Excelを使用してセルにシート名を挿入し、シート名を印刷する

Kutools for Ecelの「Insert Workbook Information」機能を使用すると、アクティブなワークシート名を素早くセルに挿入でき、その後必要に応じて手動でシート名を印刷できます。以下の手順に従ってください。

1. 「Kutools Plus」>「Insert Workbook Information」をクリックします。

2. 「Insert Workbook Information」ダイアログボックスで、「Information」セクションの「Worksheet name」オプションをチェックし、「Range」ボックスでシート名を挿入したいセルを選択してから「OK」ボタンをクリックします。

3. シートを印刷します。

注: ヘッダーまたはフッターにシート名を挿入するには、「Header」または「Footer」オプションをチェックします。

VBAコードを使用してシート名の一覧を印刷する

全ブックのすべてのシート名の一覧を印刷する必要がある場合、まず次のVBAコードを使用してすべてのワークシート名をリストアップする必要があります。このセクションでは、VBAを使用してすべてのワークシート名をリスト化する方法を説明します。

1. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、「Insert」>「Module」をクリックし、以下のVBAコードをエディタにコピーして貼り付けます。

VBA: すべてのワークシート名をリスト化する

Sub GetSheets()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum = Application.Sheets.Count
	For i = 1 To xNum
		WorkRng.Value = Application.Sheets(i).Name
		Set WorkRng = WorkRng.Offset(1, 0)
	Next
End Sub

4. F5キーを押してコードを実行します。表示される「KutoolsforExcel」ダイアログボックスで、シート名リストを配置するセルを選択し、「OK」ボタンをクリックします。

5. これで、すべてのワークシート名が一覧に表示され、印刷できるようになります。

Kutools for Excelを使用してシート名の一覧を印刷する

現在のブック内のシート名の一覧を印刷したい場合、Kutools for Excelの「Create List of Sheet Names」機能が役立ちます。

1. 「Kutools Plus」>「Worksheet」>「Create List of Sheet Names」をクリックします。

2. 「Create List of Sheet Names」ダイアログボックスで、以下のスクリーンショットのように設定を指定し、「OK」ボタンをクリックします。

新しいワークシートが作成され、現在のブック内のすべてのワークシート名が一覧に表示され、それを印刷できます。

関連記事：

• Excelで数式を表示しながらワークシートを印刷するにはどうすればよいですか？