Excel から直接ラベルを印刷 - Word は必要ありません

Microsoft Excel からの通常のラベル印刷プロセスには、Microsoft Word を使用したスプレッドシートの差し込み印刷が含まれます。しかし、Excel 内ですべての雑務を完了することを好む人もいます。幸いなことに、Word を使わずに Excel でラベルを印刷する方法があります。このチュートリアルでは、それを実現する方法に焦点を当てます。

Word を使用せずに Excel でラベルを印刷する方法:段階的な手順

ラベルを印刷するには Microsoft Word を使用せずに Excel から直接印刷する場合は、適切なラベル サイズで Excel スプレッドシートを印刷するだけです。ラベルサイズに合わせてセルサイズを変形できます。 VBA コードを使用してタスクを実行します。

まず、次のデータセットがあると仮定します。

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

Excel で Microsoft Visual Basic for Applications (VBA) を使用するには、まず開発者 が必要です。 リボンのタブをクリックします。ここをクリックしてリボンに [開発] タブを表示する方法を確認してください。 。それを取得したら、Word を使用せずに Excel でこれらのラベルを印刷するために説明した手順に従ってください。

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

ここでの VBA コードの選択は、セル エントリがセル A1 から始まる場合にのみ適切に機能します。 。したがって、最初にすべてのラベルを含むデータセットをそのような方法で配置する必要があります。場合に備えて、データセットはセル A1 以外の場所から始まります。 、私たちのように、セルB5から始まりました 、まずそれらを新しいスプレッドシートにコピーし、最初に配置します。次のようになります。

これで、VBA コードを使用できるようになりました。

ステップ 2:VBA コードを挿入する

次に、VBA コードを挿入して、ラベルを希望のサイズと形状に調整する必要があります。 VBA コードを挿入するには -

• まず、開発者にアクセスします。 リボンのタブをクリックします。
• 次に、[Visual Basic ] を選択します。 コードから グループ。

• その結果、VBA ウィンドウが開きます。ここで [挿入] を選択します。 タブをクリックし、モジュール を選択します。 ドロップダウン メニューから選択します。

• その後、モジュールに移動して次のコードを書き留めます。

'This Code Will Create Labels in 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
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 .WrapText = True
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = 0
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 End With
 
End Sub
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 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 コードには、CreateLabel という 2 つの部分またはサブ部分があります。 サブと AskForColumn サブ。まず、AskForColumn サブルーチンで何が起こっているのかを説明し、次に CreateLabel サブルーチンに進んでコードがどのように機能するかを説明します。

パート 1:

よりわかりやすくするために、この部分をさまざまなセクションに分割しました。ディスカッションの最後にある図を見てください。

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

👉 セクション 2: このセクションを使用して、refrg、vrb、data という 3 つの変数を宣言しました。

👉 セクション 3: このセクションでは、refrg と data の値を設定しました。

👉 セクション 4: この時点で、コードはスプレッドシート上に入力ボックスを表示します。

👉 セクション 5: このセクションでは、対象者について説明します。 入力ボックスに入力された数値に対してループが実行されます。

👉 セクション 6: コードのこのセクションでは、セルのサイズが変更されます。

👉 セクション 7: 最後に、このセクションでは余分なコンテンツをクリアします。

パート 2:

前のパートと同様に、このサブセクションもさまざまなセクションに分割しました。視覚的な部分については、ディスカッションの最後にある図に従ってください。

👉 セクション 1: コードのこの部分では、サブ名 Createlabels を宣言します。 .

👉 セクション 2: このコマンドは、コードのこの時点で前のサブルーチンを実行します。

👉 セクション 3: この部分では、VBA のセルを使用して各セルの書式を設定します。 プロパティ。

ステップ 3:VBA コードを実行する

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

• まず、開発者 に移動します。 リボンのタブをクリックします。
• 次に、マクロ を選択します。 コードから グループ。

• 現在マクロ ボックスで [作成可能] を選択します。 マクロ名の下 .

• 次に、[実行] をクリックします。 .
• 次に、必要な列の数を選択します。デモ用に 3 つを選択します。次に、[OK] をクリックします。 .

スプレッドシートは自動的に次のようになります。

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

続きを読む: Excel から Avery ラベルを印刷する方法

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

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

• まず、ページ レイアウト に移動します。 リボンのタブをクリックします。
• 次に、[ページ設定 ] を選択します。 図に示すようにボタンを押します。これは各グループの右下にあります。

• その結果、ページ設定 ボックスがポップアップします。次に、余白 に移動します。 タブをクリックしてください。
• 次に、印刷ページに必要な余白の長さを選択します。以下を選択しました。

• 完了したら、[OK] をクリックします。 .

ステップ 5:印刷の拡大縮小オプションを選択する

適切なスケーリングはラベルを印刷する場合にも重要です。たとえば、これまでに行った作業では、次のようにページが印刷されます。

それは確かに私たちの目標ではありません。したがって、シートを 1 ページに収める必要があります。そのためには-

• まず、Ctrl+P を押して印刷プレビュー セクションに移動します。 キーボード上で。
• ビューの左下に設定があります。 。その下にスケーリング があります。 オプションは最後にあります。

• 次に、拡大縮小オプションをクリックし、[1 ページにシートを合わせる] を選択します。 ドロップダウン メニューから選択します。

ラベルの拡大縮小はこの時点で完了します。

続きを読む: Excel で住所ラベルを印刷する方法

ステップ 6:スプレッドシートを印刷

印刷プレビュー画面が表示された状態で、[印刷 ] をクリックします。 ビューの左上にあります。

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

覚えておくべきこと

👉 VBA コードを実行する前に、すべてのラベルがセル A1 から始まっていることを確認してください。 .

👉 すべてのラベルがページに収まるように、印刷する前に適切な余白と拡大縮小を選択してください。そうしないと、一部が切断される可能性があります。

👉 VBA コードのアクションは元に戻せません。したがって、データを実行する前に、必要なデータがバックアップされていることを確認してください。

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

これは、印刷可能なラベルを含むファイルです。

結論

Microsoft Word を使用したり差し込み印刷をしたりせずに、Excel でラベルを印刷する手順は次のとおりです。 Word を使わずに Excel でラベルを印刷できるようになったら幸いです。このガイドが役に立ち、有益であると感じていただければ幸いです。ご質問やご提案がございましたら、以下のコメント欄にご記入ください。

このようなガイドをさらに詳しく知りたい場合は、Exceldemy にアクセスしてください。

関連記事

• Word で Excel からラベルを印刷する方法
• Excel から Avery 5160 ラベルを印刷する方法
• Excel から Avery 8160 ラベルを印刷する方法

<

ソリューション付きの高度な Excel 演習を無料で入手しましょう!