必要に迫られて作成したJAN8バーコード作成シートとその後JAN13対応にしたものを公開します。

楕円のマクロボタンからバーコード数値入力画面が出ます。


シート上にバーコード画像が生成されます。


役に立ったら「ナイス!」お願いします。


JAN8バーコード

https://box.yahoo.co.jp/guest/viewer?sid=box-l-rkol5h4ijyydprd6bpllw7calu-1001&uniqid=cd8e7923-25a2-4892-a752-f9f3429d2c32&viewtype=detail



JAN13バーコード

https://box.yahoo.co.jp/guest/viewer?sid=box-l-rkol5h4ijyydprd6bpllw7calu-1001&uniqid=b9e1769e-1528-43a1-86d9-ca623d683e95&viewtype=detail



原理としてはシートに関数を利用してバーコード表示をするシートを作り(基本非表示シート)VBAで入力数値をシートに転記し作成されたバーコードを「図としてコピー」「貼り付け」+リサイズをしています。


バーコードの原理としてチェックデジットとという最後の一桁だけ特定計算が行われていること、JAN13では特定桁を判定し偶数奇数にわかれた数値対応バーコードがあることが上げられます。

バーコードの原理はあまり語れるほどのレベルではありませんが…

コードは公開になっていますので、興味ある方は御覧ください。