タカヒロ@extanExcelで数字(JANコード8桁/13桁)からバーコードを作成する方法!VBAで一括生成も!Excelで数字(JANコード8桁/13桁)からバーコードを作成したいときはないでしょうか。・Excelで数字(JANコード8桁/13桁)をバーコードに変換したいが方法がよくわからない・VBAでバーコードを一括作成ししたいが方法がよくわからないですよね。数値のタイプミスバーコードのサイズが小さすぎる読み取りにくい場所にバーコードを貼り付けるさいごにExcelで数字(JANコード8桁/13桁)からバーコードを作成するイメージExcelで数字からバーコードを作成するイメージについて説明をします。標準機能でExcelのシートから手動でバーコードを挿入していきます。バーコードを設置できたら手動でバーコードの種類(JANコード8桁/13桁)を変更したり、値を設定したりします。次にVBAでバーコードを一括で作成していきます。値をA列に設定し、バーコードのサイズはB列の縦横の幅に自動調整するようにします。一括でバーコードが作成できると便利ですよね!早速試してみましょう。JANコードとはまず、JANコードについて説明をします。JANコードとは商品管理や流通用として使用されるコードで、一般的にバーコードといったらこのJANコードを指します。Numberの略称で日本国内での呼び方となります。Number)コードや、GTIN-13、GTIN-8と呼ばれますが内容は同じです。JANコードには、数字13桁の標準タイプ(JAN-13)と数字8桁の短縮タイプ(JAN-8)があり、Excelでは数字13桁の標準タイプがデフォルトとなっています。バーコードの形式についてバーコードの形式には、一次元の線形バーコードと、二次元の2Dバーコードの2種類があります。一次元のバーコードは、縦線と空白の組み合わせで構成されており、代表的な一次元バーコードには、UPC、EAN、Code39、Code128などがあり、今回作成するJANコードはこの一次元の形式に該当します。二次元バーコードは、縦横に並んだブロックで構成されており、一次元の形式よりより多くのデータを含むことができます。Matrixなどがあります。タカヒロExcelにおけるQRコードの作成方法については以下をご参考ください。VBAで一括生成も!手動でバーコード(JANコード8桁/13桁)を作成する手動でバーコード(JANコード8桁/13桁)を作成する方法について説明をします。Control」というライブラリが用意されていて、それを使うことによりバーコードのオブジェクトを追加することができます。Excelで標準設定となっているのはJANコードの13桁桁のタイプとなりますので、まずはこちらのバーコードを作成していきましょう。タカヒロAccessに含まれるライブライであるため、Accessを導入していない場合はExcelから見つから見つけることはできないことご注意ください。バーコード(JANコード13桁)を作成する「開発」タブををクリックし、「挿入」>「コントロールの選択」ボタンをクリックします。16.0」を選択し「OK」をクリックします。バージョンはOfficeのバージョンによって異なります。バーコードを貼り付けたい箇所へドラッグし、同時にサイズを調整していきます。マウスをはなすとバーコードが生成されシートに表示されます。次に、バーコードのコード(数値)を設定していきます。先ほど貼り付けたバーコードオブジェクトを右クリックし「プロパティ」を選択します。「プロパティ」ウインドウの「value」プロパティにバーコードの値を数字13桁で入力します。バーコードの内容が変われば完成です。バーコード(JANコード8桁)を作成する次にJANコードの8桁のタイプのバーコードを作成していきましょう。先ほど作成した13桁版のバーコードオブジェクトを選択し右クリックします。タカヒロ右クリックをして選択状態にならない場合は「開発」タブにあるデザインモードを有効にしてください。16.0オブジェクト」>「プロパティ」をクリックします。スタイル「3-JAN-8」を選択し、「OK」をクリックします。次に、バーコードのコード(数値)を設定していきます。バーコードオブジェクトを右クリックして、「プロパティ」ウインドウを表示させます。「value」プロパティにバーコードの値を数字8桁で入力します。バーコードの内容が8桁に変わりましたね。タカヒロバーコードの作成手順はわかりましたが、複数ある場合にはなかなか手間ですよね。次はVBAを使い一括でバーコードを作成してみましょう。VBAでバーコード(JANコード13桁)を一括作成するVBAでバーコード(JANコード8桁/13桁)を一括作成する方法について説明をします。今回は値をA列に設定し、バーコードのサイズはB列の縦横の幅に自動調整するようにします。JAN-13から作成していきますので、A列の値は13桁の数字を入力していきます。VBAコードVBAは以下の通りです。'Excel表示シートのA列2行目以降にある値の件数分処理を繰り返します。'B列セルの位置、サイズ情報を取得し変数へ代入します。'BARCODE.BarCodeCtrlタイプのOLEオブジェクトを追加し、選択状態にします。'選択したバーコードオブジェクトをオブジェクトにセットします。コントロールのプロパティを設定します。'2はJAN-13、3はJAN-8となります。'A列の値をバーコードのValueプロパティへ設定します。'オブジェクトを解放します。SubVBAの設定Excel表示シートのA列2行目からの指定となっていますが、行数を変更する場合は変数iの数値を変えてください。1).End(xlUp).Rowバーコードの貼り付け先はB列となっていますが、C列など別の列にする場合はCellsの第二引数を変更してください。C列の場合は3、D列は4を指定します。2)VBAの実装VBAの実装方法についてはVBAの実装手順をご参照ください。VBAを実行VBAを実行しましょう。はい、B列にJAN-13のバーコードが一括で作成されましたね!値も反映されています!VBAの説明VBAについて説明をします。Excel表示シートのA列2行目以降にある値の件数分処理を繰り返します。1).End(xlUp).RowB列セルの位置、サイズ情報を取得し変数へ代入します。WithBARCODE.BarCodeCtrlタイプのOLEオブジェクトを追加し、選択状態にします。バーコードの貼り付け位置とサイズは先ほどのセルの情報をベースに設定します。5).Selectタカヒロバーコードのサイズはセルサイズより若干小さくなるようにしています。選択したバーコードオブジェクトをオブジェクトにセットします。コントロールのプロパティを設定します。'2はJAN-13、3はJAN-8となります。'A列の値をバーコードのValueプロパティへ設定します。シンボルのスタイルを指定するプロパティとなりますので、以下の表を参考に設定したいスタイルを指定します。今回はJAN-13桁なので2を指定します。