【バーコードの作成と印刷】

バーコードの作成と印刷です。

作成したバーコードはCode39です。

Code39は数字の他アルファベットも表現できます。

フリーソフトのExcelバーコード革命を利用します。

バーコードに変換するコードをセルに入力しておき、範囲指定でバーコード化できます。

Code39はチェックデジットにモジュラス43を使用します。

Excelバーコード革命はチェックデジットまで付けてくれませんので、モジュラス43を算出する簡単なプログラムを作りました。

WSHのVBソースです。テキストファイルに保存して拡張子をvbsにすればダブルクリックで実行できます。

SrcCode = "1234ABCD" '変換元のコード
SrcBAR = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%*"
lngMod = 0
For i = 1 To Len(SrcCode)
        lngMod = lngMod + (InStr(SrcBAR, UCase(Mid(SrcCode, i, 1))) - 1)
Next
i = lngMod Mod 43
Mod43 = Mid(SrcBAR, i + 1, 1)
wscript.echo "モジュラス43 =" & SrcCode  & Mod43

元のコードが1234ABCDの場合チェックデジットはDになり、1234ABCDDとなります。