ラベルは、私たちにとって多くの点で便利です。 Microsoft Wordの助けを借りてExcelでラベルを作成することができます。 しかし、場合によっては、これは多くの手間と時間がかかるかもしれません。 そこで、WordなしでExcelでラベルを作成したい場合があります。 この記事では、WordなしでExcelでラベルを作成する方法のステップバイステップのガイドを実証しています。

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

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

ラベルとは？

一般にラベルとは、物や製品に貼るシールや紙片のことを指します。 例えば、封筒に貼る宛名ラベルや、パソコンのハードウェアに貼るラベルなど、ラベルはさまざまな場面で活用されています。

VBAを使ってExcelでWordを使わずにラベルを作成する4つのステップ

の力を借りずに、Excelでラベルを作成できるのはとても便利です。 マイクロソフトワード さらに、時間と手間を大幅に削減することができます。

のリストを持つデータセットがあるとします。 住所 このとき、これらのラベルを作成します。 住所 この場合は、以下の手順で行います。

ステップ01 エクセルで新しいシートにデータをコピーする

• まず、列のアドレスをコピーし、それを ニューシート セル発 A1 .

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

• 次に、 を押します。 ALT + F11 を開いてください。 ブイビーエー ウィンドウに表示されます。
• ここで、現在作業しているシートを選択し 右クリック この場合 シート2 .
• 次に、順次選択します。 インサート > モジュール .

最終的には、これらのステップのセットが開くことになります。 ブイビーエー ウィンドウを開き、新規に モジュール をシートに記入してください。

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

• このとき、次のコードをコピーして、空欄に貼り付けてください。

 'このコードで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 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 ofColumns 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つの部分があり、一方にはサブ AskForColumn () と呼ばれることになります。 第01回 を含み、もう一方はサブ クリーブラベルズ() と呼ばれることになります。 第02回 では、この2つのパートをひとつずつ説明していきます。

第01回 :

この時点で、コードをいくつかのセクションに分割し、以下のスクリーンショットのように各セクションに番号を振っています。 したがって、ここでは各セクションを番号に従って説明します。

• 第1項 という名前のサブを作成します。 AskForColumn .
• 第2項 ここでは、異なる変数を宣言しています。
• 第3項 ここでは、列の数を数える。
• 第4項 さて、ここでは 入力ボックス をクリックして、列の数を尋ねてください。
• 第5項 を実行します。 について ループを使用します。 ステップ を入れた回数だけループを実行するためのキーワードです。 入力ボックス .
• 第六節 この段階では、このセクションを使用して、カラムのセルを異なる行と列に分配します。 トランスポーズ と財産 リサイズ .
• 第7項 最後に、このセクションの余分なコンテンツを削除します。

第02回 :

この場合も、以下のスクリーンショットのようにコードを分割し、それぞれのセクションに番号を振っています。 したがって、ここではその番号に従って、各セクションを説明することにします。

• 第1項 という名前のサブを作成します。 クリーブラベルズ() .
• 第2項 本項では、太陽 AskForColumn() を実行します。
• 第3項 このとき、このセクションで定義しているのは セルフォーマット を使用して、すべてのセルに対して 細胞 プロパティを使用します。

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

• を押してください。 F5 を実行し、サブ クリエイティブ・ラベル（Createlabels） .
• その結果、以下のスクリーンショットのようなボックスが画面に表示されます。
• このとき、ラベルを入れる列の数を入れます。
• をクリックします。 よっしゃー .

• 最後に、以下のスクリーンショットのようなラベルが作成されます。

💡 備考 :

• この方法は、データが1列の場合のみ有効です。
• ラベルを作成した後、ボーダーを追加するために オールボーダー のオプションがあります。 ホーム タブで表示します。
• また、サブを実行するようにします。 クリーブラベルズ() この場合、サブを実行すると。 AskForColumn () を使うと、期待する結果が得られない。
• また、列のアドレス以外は入力しないでください。 A .

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

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

上記の手順でラベルを作成したら、今度は ラベルを印刷する .それでは、以下の手順で行ってください。

ステップス :

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

• その後、次のページに進んでください。 マージン .
• では、編集してください。 トップ と 底面 余白 0.5 を編集してください。 左 と 右 余白 0.215 .
• をクリックします。 よっしゃー .

• を押してください。 CTRL + P を開いてください。 プリント のメニューがあります。
• このとき、「」をクリックします。 スケーリングなし と4つのオプションが表示されます。
• 次に、これらのオプションから、以下を選択します。 すべての列を1ページに収める .

• ようやく印刷の準備が整いました。
• この場合、印刷プレビューは以下のスクリーンショットのように表示されます。

続きを読む ExcelからWordへラベルをメールマージする方法（簡単なステップ付き）

結論

最後になりましたが、この記事でお探しのものが見つかりましたでしょうか？ もし何かご不明な点がございましたら、以下にコメントをお願いいたします。 また、このような記事をもっと読みたい場合は、当社のウェブサイトをご覧ください。 エクセルウィキ .