Excel で Word を使用せずにラベルを作成する方法 (ステップ バイ ステップ ガイド)

ラベルは多くの点で私たちにとって役に立ちます。 Microsoft Word を使用して Excel でラベルを作成できます。しかし、場合によっては、これには多くの手間と時間がかかることがあります。そのため、Word を使用せずに Excel でラベルを作成することをお勧めします。この記事では、Word を使用せずに Excel でラベルを作成する方法について、順を追って説明します。

以下のリンクから練習用ワークブックをダウンロードできます。

ラベルとは

一般的に言えば、ラベルはステッカーまたは貼り付けられたオブジェクトまたは製品を説明する一枚の紙です。ラベルは幅広い用途で使用されています。たとえば、人々は封筒に添付できるように住所のラベルを作成する必要があります。また、コンピューターのハードウェアに貼られたラベルを確認して、それらを識別し、その仕様を知ることができます。

VBA を使用して Excel で Word を使用せずにラベルを作成する 4 つの手順

Microsoft Word を使用せずに Excel でラベルを作成すると非常に便利です .さらに、時間と手間を大幅に節約できます。

ここで、住所のリストを含むデータセットがあると仮定しましょう クリスマスカードを送りたい。この時点で、これらの 住所 のラベルを作成します。 ワードを使わずエクセルで。この場合、以下の一連の手順に従ってください。

ステップ 01 :データを Excel の新しいシートにコピー

• まず、列のアドレスをコピーして、新しいシートに貼り付けます セル A1 から開始 .

ステップ 02 :VBA ウィンドウを開き、Excel でモジュールを作成します

• 次に ALT + F11 を押します VBA を開く ウィンドウ。
• 現在作業中のシートを選択し、右クリックします。 その上で。この場合、シート 2 です .
• 次に、挿入を順番に選択します> モジュール .

最終的に、これらの一連の手順で VBA が開きます ウィンドウを開いて、新しいモジュールを挿入します

ステップ 03 :コードを Excel に挿入

• この時点で、次のコードをコピーして空白のボックスに貼り付けます。

'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 = False
 .Orientation = 0
 .AddIndent = False
 .IndentLevel = 0
 .ShrinkToFit = False
 .ReadingOrder = xlContext
 .MergeCells = False
 End With
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 .WrapText = False
 .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

💡 コードの説明:

この段階で、上記で使用したコードについて説明します。ご覧のとおり、このコードには 2 つの部分があります。 1 つの部分にはサブ AskForColumn () が含まれます これは パート 01 と呼ばれます 、もう一方にはサブ Createlabels() が含まれています これは パート 02 と呼ばれます .それでは、これら両方の部分を 1 つずつ説明します。

パート 01 :

この時点で、コードをさまざまなセクションに分割し、次のスクリーンショットで各セクションに番号を付けました。したがって、ここでは各セクションを番号順に説明します。

• セクション 1: このセクションでは、AskForColumn という名前のサブを作成します .
• セクション 2: ここで、さまざまな変数を宣言します。
• セクション 3: このセクションでは、列の行数を数えます。
• セクション 4: ここで InputBox を作成します 列の数を尋ねます。
• セクション 5: このセクションでは、For を実行します。 ループ。また、 ステップ を使用します InputBox に入力した回数だけループを実行するキーワード .
• セクション 6 :この段階で、このセクションを使用して、アプリケーション Transpose を使用して、列のセルを異なる行と列に分散します。 およびプロパティのサイズ変更 .
• セクション 7: 最後に、このセクションの余分なコンテンツを削除します。

パート 02 :

この場合も、コードをさまざまなセクションに分割し、次のスクリーンショットで各セクションに番号を付けました。したがって、ここでは各セクションを番号順に説明します。

• セクション 1: このセクションでは、Createlabels() という名前のサブを作成します .
• セクション 2: このセクションでは、太陽を AskForColumn() と呼びます 走る。
• セクション 3: この時点で、このセクションは セル形式 を定義します Cells を使用するすべてのセルに対して

ステップ 04 :コードを実行して Excel で Word を使用せずにラベルを作成する

• では F5 を押してください サブ Createlabels () を実行するには .
• その結果、下のスクリーンショットのように画面にボックスが表示されます。
• この時点で、ラベルを挿入する列の数を挿入します。
• 次に、[OK] をクリックします .

• 最後に、下のスクリーンショットのようにラベルを作成します。

💡 メモ :

• この方法は、データが 1 つの列にある場合にのみ機能します。
• ラベルを作成したら、[すべての枠線] を使用して枠線を追加できます ホーム のオプション タブ
• また、必ずサブ Createlabels() を実行してください .この場合、サブを実行すると、AskForColumn () 望む結果は得られません。
• また、列 A には住所以外は入力しないでください。 .

続きを読む: Excel リストから Word でラベルを作成する方法 (ステップバイステップ ガイドライン)

Word を使わずに Excel でラベルを印刷する方法

上記の手順でラベルを作成したら、ラベルを印刷することができます。 .そうしたい場合は、以下の手順に従ってください。

歩数 :

• まず ページ レイアウト に移動します タブをクリックします。
• 次に、[ページ設定] をクリックします。 ボタン。

• その後、余白に移動します .
• 次に、トップ を編集します そして下 マージンを 0.5 に 左を編集します そしてそうですね マージンを 0.215 に .
• したがって、[OK] をクリックします。 .

• 次に、CTRL + P を押します 印刷 を開くには メニュー。
• この時点で、[ スケーリングなし] をクリックします。 4 つのオプションが表示されます。
• 次に、これらのオプションから [すべての列を 1 ページに収める] を選択します .

• いよいよ印刷の準備です。
• この場合、印刷プレビューは下のスクリーンショットのようになります。

続きを読む: ラベルを Excel から Word に差し込み印刷する方法 (簡単な手順)

結論

最後になりましたが、この記事から探していたものを見つけていただければ幸いです。質問がある場合は、下にコメントを残してください。また、このような記事をさらに読みたい場合は、当社の Web サイト ExcelDemy にアクセスしてください。 .

関連記事

• Excel で住所ラベルを印刷する方法 (2 つの簡単な方法)
• Excel で宛名ラベルを作成する方法 (簡単な手順)
• Excel ファイルを宛名ラベルにマージする方法 (簡単な手順)
• Excel から Avery ラベルを印刷する方法 (2 つの簡単な方法)