Excelバーコード作成方法まとめ！一括作成マクロや表示されない対処法も！

Excelでバーコードを作成したいときはないでしょうか。

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する

についてまとめます！

Excelで作成できるバーコードの種類

Excelで作成できるバーコードの種類は以下の通りです。
Excelに付随されているバーコードコントロールにて作成することができます。

バーコード コントロールStyle プロパティ一覧

参考：https://docs.microsoft.com/ja-jp/previous-versions/office-development/cc427155(v=msdn.10)

Excelでバーコードを作成する方法

Excelでバーコードを作成する方法について説明をします。

Officeでは「Microsoft BarCode Control」というライブラリが用意されていて、それを使うことによりバーコードのオブジェクトを追加することができます。

「開発」タブををクリックし、「挿入」＞「コントロールの選択」ボタンをクリックします。

コントロールの選択ウインドウが表示されたら「Microsoft BarCode Control 16.0」を選択し「OK」をクリックします。

バーコードを貼り付けたい箇所へドラッグし、同時にサイズを調整していきます。

マウスをはなすとバーコードが生成されシートに表示されたら

再度選択し右クリックします。

「Microsoft BarCode Control 16.0オブジェクト」＞「プロパティ」をクリックします。

スタイルの中から作成したいバーコードのタイプを選択し、「OK」をクリックします。

各値の設定方法は以下の記事をご参照ください。

JANコード8桁/13桁

Excelでバーコード（JANコード8桁/13桁）を作成する方法！VBAで一括生成も！

CODE39/CODE128

Excelでバーコード（CODE39/CODE128）を作成する方法！VBAで一括生成も！

NW-7

Excelでバーコード（NW-7）を作成する方法！VBAで一括生成も！

QRコード

ExcelでQRコードを 作成する方法！ VBAで一括生成も！

Excelマクロによるバーコード作成方法

Excelマクロによるバーコード作成方法について説明をします。

サンプルはバーコードの中でも最近追加されたQRコードを採用しています。
QRコードの値をA列に設定し、バーコードのサイズはB列の縦横の幅に自動調整するようにします。

VBAコード

VBAは以下の通りです。

Sub バーコードを生成する()
    Dim intTop As Integer
    Dim intLeft As Integer
    Dim intWidth As Integer
    Dim intHeight As Integer
    Dim objBarCodeSetup As BarCodeCtrl
    Dim i As Integer
    
    'Excel表示シートのA列2行目以降にある値の件数分処理を繰り返します。
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        
        'B列セルの位置、サイズ情報を取得し変数へ代入します。
        With Cells(i, 2)
            intTop = .Top 'セル上部の位置
            intLeft = .Left 'セル左側の位置
            intWidth = .Width 'セル幅のサイズ
            intHeight = .Height 'セル高さのサイズ
        End With
        
        'BARCODE.BarCodeCtrlタイプのOLEオブジェクトを追加し、選択状態にします。
        ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _
            Link:=False, DisplayAsIcon:=False, _
            Left:=intLeft + 2, Top:=intTop + 2, Width:=intWidth - 2, Height:=intHeight - 2).Select
    
        '選択したバーコードオブジェクトをオブジェクトにセットします。
        Set objBarCodeSetup = Selection.Object
        
        'バーコード コントロールのプロパティを設定します。
        With objBarCodeSetup
            .Style = 11 '11はQRコードとなります。
            .Value = Cells(i, 1).Value  'A列の値をバーコードのValueプロパティへ設定します。
        End With

    Next
    
    'オブジェクトを解放します。
    Set objBarCodeSetup = Nothing

End Sub

VBAの設定

Excel表示シートのA列2行目からの指定となっていますが、行数を変更する場合は変数iの数値を変えてください。

バーコードの貼り付け先はB列となっていますが、C列など別の列にする場合はCellsの第二引数を変更してください。C列の場合は3、D列は4を指定します。

バーコードのスタイルを指定します。指定可能なスタイルは以下の通りです。

VBAの実装手順

実装手順は以下の通りです。

Excel側にVBAを実装していきます。

①Excelを新規に開き、「開発」タブをクリックし、「VisualBasic」をクリックします。
もしくはショートカットキー「Alt」＋「F11」でもOKです。

②標準モジュールを追加します。
左ペインのVBAProjectを右クリックし、「挿入」、「標準モジュール」を選択します。

③右ペインのウインドウに上記のVBAを入力します。

こちらで完了です。

VBAを実行する

では早速VBAの実行をしてみましょう。

①「開発」タブの「VBA」をクリックし「バーコードを生成する」を選択し、「実行」をクリックします。

②処理がされたことが確認できれば完了です。

バーコードが表示されない原因と対処法

バーコードが表示されない原因は主に3つあります。

対処法については別記事に詳細を記載していますので、そちらをご参照ください。

Excelで作成したバーコードが表示されない原因と対処法！

さいごに

いかがでしょうか。

今回は、

についてまとめました。

また、他にも便利な方法がありますので、よろしければご参照頂ければと思います。