Microsoft Excelからラベルを印刷するには、Microsoft Wordでスプレッドシートをメールマージするのが一般的です。 しかし、Excel内ですべての雑用を済ませたい人もいます。 幸いにも、Wordと関わりなくExcelでラベルを印刷する方法があります。 このチュートリアルでは、それを達成する方法に焦点を当てて説明します。

練習用ワークブックをダウンロードする

データセットとデモに使用したマクロを含むワークブックを以下のリンクからダウンロードし、テンプレートとして使用することができます。

Wordを使わずにラベルを印刷する.xlsm

印刷用ラベルを含むファイルです。

Word.pdfを使わずにラベルを印刷する

Wordを使わずにExcelでラベルを印刷する手順

への いんさつぶん Microsoft Wordを使用せずに、Excelから直接、適切なラベルサイズでExcelスプレッドシートを印刷する必要があります。 ラベルサイズに合ったセルサイズを変換することができます。 ここでは、VBAコードを使用してタスクを実行する予定です。

まず、次のようなデータセットがあるとする。

まず各データをラベルに変換し、Wordの助けを借りずにExcelで印刷することにします。

ExcelでMicrosoft Visual Basic for Applications（VBA）を使用するためには、まず最初に デベロッパー をクリックすると、リボン上に表示されます。 リボンに「Developer」タブを表示する このラベルを作成したら、Wordを使わずにExcelでラベルを印刷する方法を紹介します。

ステップ1：データを新しいシートにコピーする

このVBAコードの選択は、セルの入力がセル番号から始まる場合にのみ正しく機能します。 A1 そこで、まず、すべてのラベルを含むデータセットをこのように配置する必要があります。 もし、データセットがセル A1 セルでスタートした私たちのように B5 を、まず新しいスプレッドシートにコピーし、一番最初に配置します。 このような形になります。

これで、VBAコードと連動する準備が整ったはずです。

ステップ2：VBAコードの挿入

次に、ラベルを希望するサイズと形状に調整するためのVBAコードを挿入します。 VBAコードを挿入するには、次のようにします。

• まず デベロッパー タブをクリックします。
• 次に、以下を選択します。 ビジュアルベーシック から コード のグループです。

• その結果、VBAウィンドウが開くので、その中から インサート タブを選択し モジュール をドロップダウン・メニューから選択します。

• その後、モジュールに移動して、次のコードを書き込んでください。

 'このコードでExcelにラベルを作成します Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number of the Year" )Columns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

🔎 コード説明

このVBAコードには、2つの部分（サブ）があります。 ラベル作成 サブと AskForColumn まず、AskForColumnサブで何が行われているかを説明し、次にCreateLabelサブに移ってコードの仕組みを説明する予定です。

第1部

理解を深めるために、部分を分割しています。 議論の最後にある図を見てください。

👉 第1項 このセクションでは、サブの名前を宣言しています。 AskForColumn .

👉 第2項 ここでは、refrg、vrb、dataの3つの変数を宣言しています。

👉 第3項 ここでは、refrgとdataに値を設定した。

👉 第4項 この時点で、コードにはスプレッドシート上に入力ボックスが表示されます。

👉 第5項 この項では について は、入力ボックスに入力された数値に対してループを実行します。

👉 第6項 この部分のコードで、セルのサイズが変更されました。

👉 第7項 最後に、余分なコンテンツをクリアするセクションです。

第2部

前編と同様に、このサブも各セクションに分けました。 ビジュアル部分は、議論の末尾にある図に従ってください。

👉 第1項 この部分は、サブの名前を宣言しています。 クリエイターズ・ラベル .

👉 第2項 このコマンドは、コードのこの時点で前のサブを実行します。

👉 第3項 この部分は、VBAを使用して各セルをフォーマットします。 細胞 プロパティを使用します。

ステップ3：VBAコードの実行

コードを入力したら、VBAウィンドウを閉じます。 コードを実行するには、次の手順に従います。

• まず デベロッパー タブをクリックします。
• 2つ目は、以下を選択することです。 マクロ から コード のグループです。

• 現在では マクロ ボックスを選択します。 クリエータブルズ の下に マクロ名 .

• をクリックします。 実行 .
• 次に、希望する列の数を選択します。 今回は3列を選択します。 次に、「3列」をクリックします。 よっしゃー .

これでスプレッドシートは自動的にこのように表示されます。

これで、Wordを使わなくてもExcelでラベルを印刷することができるようになりました。

続きを読む ExcelからWordでラベルを印刷する方法（簡単な手順付き）

ステップ4: カスタムの余白を設定する

ラベルを印刷するには、印刷するページの余白を正しく設定する必要があります。 そのためには、ラベルの位置に影響を与えず、シート上のラベルを損なわないように、適切なサイズを選択する必要があります。 カスタム余白を設定するには、次の手順に従います。

• まずは ページレイアウト タブをクリックします。
• 次に ページ設定 ボタンをクリックすると、図のようになります。 各グループの右下にあります。

• その結果 ページ設定 のボックスがポップアップ表示されます。 マージン のタブをクリックします。
• ここでは、次のような余白の長さを選択しました。

• 完了したら、次のようにクリックします。 よっしゃー .

ステップ5：印刷のためのスケーリングオプションを選択する

ラベルを印刷する場合も、適切な拡大縮小が重要です。 例えば、今までのやり方では、このようなページが印刷されます。

だから、1ページに収めなければならない。

• まず、印刷プレビューの項目で Ctrl+P をキーボードで入力します。
• ビューの左下には 設定 .その下には スケーリング のオプションが最後に表示されます。

• 次に、スケーリングオプションをクリックし、以下を選択します。 フィットシート1ページ分 をドロップダウン・メニューから選択します。

この時点でラベルのスケーリングは完了となります。

続きを読む エクセルで宛名ラベルを印刷する方法(2つの簡単な方法)

ステップ6：スプレッドシートを印刷する

印刷プレビュー画面を表示したまま プリント をビューの左上に表示します。

これをクリックすると、Wordの助けを借りずにExcelですべてのラベルを印刷することができます。

覚えておきたいこと

👉 VBAコードを実行する前に、すべてのラベルがセル A1 .

すべてのラベルがページに収まるように、印刷前に適切なマージンとスケーリングを選択してください。 さもないと、一部が切り取られる可能性があります。

VBAのコード操作は元に戻せませんので、実行する前に必要なデータのバックアップを取るようにしてください。

結論

以上が、Microsoft Wordを使用したりメールマージしたりせずにExcelでラベルを印刷するための手順でした。 うまくいけば、Wordを使わずにExcelでラベルを印刷できるようになります。 このガイドがお役に立ち、有益な情報であることを願っています。 何か質問や提案があれば、以下のコメントでお知らせください。

このようなガイドをもっと見たい方は、以下をご覧ください。 Exceldemy.com .