BarCode作成 | VBA・GAS・Pythonで仕事を楽しく効率化

ExcelVBAの機能でバーコードを作成する2

okumasahito — Sat, 19 Oct 2019 06:06:06 +0000

以前作成したバーコード作成用VBAコードの修正と改良
8桁JANのバーコード作成について
ExcelVBAでバーコードを作成するコード（改良）

以前作成したバーコード作成用VBAコードの修正と改良

以前にこちらの記事でバーコードを作成するExcelVBAコードを紹介しましたが、その時は下記の問題点・課題がありました。

①8桁JANコードを作成できない

②バーコードがセルの背景色として作られているので使い勝手が良くないなど

今回はこれらの課題を修正したVBAコードを紹介します。

8桁JANのバーコード作成について

13桁JANコードと異なり、8桁コードは先頭の付加文字はありません。
単純に左4桁、右4桁分の数字を表現するだけで作成可能です。

バーコードの開始位置・真ん中・終了位置には専用のコード「101」・「01010」・「101」が含まれます。
作り方としては「101」・「左4桁分のコード」・「01010」・「右4桁分のコード」・「101」で並べればOKです。

13桁JANコードの作成手順についてはこちらの記事を参考にしてください。

ExcelVBAでバーコードを作成するコード（改良）

Sub バーコード作成()

Dim パリティ
Dim 左コード
Dim 右コード
Dim コード
Dim i, k
Dim Shp

’ガイド線を消す（消さないとバーコード読めない）
ActiveWindow.DisplayGridlines = False

’L～DD列の色を消して幅をそろえる
Range(Cells(1, 12), Cells(Rows.Count, 108)).Interior.ColorIndex = xlNone
Range(Columns(12), Columns(108)).ColumnWidth = 0.13

’既存の画像JANコードを削除
Do Until ActiveSheet.Shapes.Count = 0
ActiveSheet.Shapes.Range(1).Delete
Loop

’JANコードが記載されているところは継続処理
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Len(Cells(i, 1)) = 13 Then

’最初の1文字目からパリティを算出
Select Case Left(Cells(i, 1), 1)
Case “0”
パリティ = Array(“奇数”, “奇数”, “奇数”, “奇数”, “奇数”, “奇数”)
Case “1”
パリティ = Array(“奇数”, “奇数”, “偶数”, “奇数”, “偶数”, “偶数”)
Case “2”
パリティ = Array(“奇数”, “奇数”, “偶数”, “偶数”, “奇数”, “偶数”)
Case “3”
パリティ = Array(“奇数”, “奇数”, “偶数”, “偶数”, “偶数”, “奇数”)
Case “4”
パリティ = Array(“奇数”, “偶数”, “奇数”, “奇数”, “偶数”, “偶数”)
Case “5”
パリティ = Array(“奇数”, “偶数”, “偶数”, “奇数”, “奇数”, “偶数”)
Case “6”
パリティ = Array(“奇数”, “偶数”, “偶数”, “偶数”, “奇数”, “奇数”)
Case “7”
パリティ = Array(“奇数”, “偶数”, “奇数”, “偶数”, “奇数”, “偶数”)
Case “8”
パリティ = Array(“奇数”, “偶数”, “奇数”, “偶数”, “偶数”, “奇数”)
Case “9”
パリティ = Array(“奇数”, “偶数”, “偶数”, “奇数”, “偶数”, “奇数”)
End Select

コード = “101” ’左ガードバー
For x = 2 To 7
If パリティ(x － 2) = “奇数” Then
左コード = Array(“0001101”, “0011001”, “0010011”, “0111101”, “0100011”, “0110001”, “0101111”, “0111011”, “0110111”, “0001011”)
コード = コード & 左コード(Mid(Cells(i, 1), x, 1))
ElseIf パリティ(x － 2) = “偶数” Then
左コード = Array(“0100111”, “0110011”, “0011011”, “0100001”, “0011101”, “0111001”, “0000101”, “0010001”, “0001001”, “0010111”)
コード = コード & 左コード(Mid(Cells(i, 1), x, 1))
End If
Next x
コード = コード & “01010” ’センターバー

For x = 8 To 13
右コード = Array(“1110010”, “1100110”, “1101100”, “1000010”, “1011100”, “1001110”, “1010000”, “1000100”, “1001000”, “1110100”)
コード = コード & 右コード(Mid(Cells(i, 1), x, 1))
Next x

コード = コード & “101” ’右ガードバー

For x = 13 To 107 ’変換したコードで色を塗り分ける
If Mid(コード, x － 12, 1) = “1” Then
Cells(i, x).Interior.Color = RGB(0, 0, 0)
ElseIf Mid(コード, x － 12, 1) = “0” Then
Cells(i, x).Interior.Color = RGB(255, 255, 255)
End If
Next x

’セルに色付けして作成したバーコードを画像としてコピーしてB列に貼り付け
Range(Cells(i, 12), Cells(i, 108)).CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Cells(i, 2).PasteSpecial
Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
’位置とサイズを適当に合わせる
Shp.LockAspectRatio = msoFalse
Shp.Width = Columns(2).Width * 3 / 4
Shp.Height = Rows(i).Height * 1 / 2
Shp.Top = Shp.Top + Rows(i).Height * 1 / 4
Shp.Left = Shp.Left + Columns(2).Width * 1 / 8

’初期化
Erase パリティ
Erase 右コード
Erase 左コード
コード = “”
Set Shp = Nothing

ElseIf Len(Cells(i, 1)) = 8 Then

コード = “101” ’左ガードバー
For x = 1 To 4
左コード = Array(“0001101”, “0011001”, “0010011”, “0111101”, “0100011”, “0110001”, “0101111”, “0111011”, “0110111”, “0001011”)
コード = コード & 左コード(Mid(Cells(i, 1), x, 1))
Next x
コード = コード & “01010” ’センターバー

For x = 5 To 8
右コード = Array(“1110010”, “1100110”, “1101100”, “1000010”, “1011100”, “1001110”, “1010000”, “1000100”, “1001000”, “1110100”)
コード = コード & 右コード(Mid(Cells(i, 1), x, 1))
Next x

コード = コード & “101” ’右ガードバー

For x = 30 To 96
If Mid(コード, x － 29, 1) = “1” Then
Cells(i, x).Interior.Color = RGB(0, 0, 0)
ElseIf Mid(コード, x － 29, 1) = “0” Then
Cells(i, x).Interior.Color = RGB(255, 255, 255)
End If
Next x

’セルに色付けして作成したバーコードを画像としてコピーしてB列に貼り付け
Range(Cells(i, 29), Cells(i, 97)).CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Cells(i, 2).PasteSpecial
Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
’位置とサイズを適当に合わせる
Shp.LockAspectRatio = msoFalse
Shp.Width = Columns(2).Width * 3 / 4
Shp.Height = Rows(i).Height * 1 / 2
Shp.Top = Shp.Top + Rows(i).Height * 1 / 4
Shp.Left = Shp.Left + Columns(2).Width * 1 / 8

’初期化
Erase パリティ
Erase 右コード
Erase 左コード
コード = “”

Set Shp = Nothing

End If

Next i

End Sub

セル範囲をコピーして画像として貼り付けるコードの説明はこちらの記事をご覧ください。

これでA列のJANコードをB列に画像として貼り付けることができるようになりました。

ExcelVBAでJAN一覧表からバーコードを作成する

okumasahito — Sun, 13 Oct 2019 05:48:15 +0000

連続でたくさんのバーコードを作成する
JANのバーコードの仕様について
バーコード作成の仕様・出来上がりイメージについて
バーコードを作成するExcelVBAコードについて
今後の改良について

連続でたくさんのバーコードを作成する

以前にJavascriptでバーコードを作成するツールを紹介しましたが、仕事でたくさんのバーコードを連続で作成する必要がありました。

AccessはメンテナンスがしにくいためExcelで作成することにしたのですが（単に私が苦手なだけかもしれませんが）、Excelに搭載されているActiveX BarCodeControlで
作成したバーコードが全然読み込めない問題が生じました。
ActiveX BarCodeControlで作成したバーコードがきちんと読み込めるかはサポート対象外とのことです…。

また、どういうわけかPCの設定によってはActiveXが使用できず、バーコード作成自体出来ない場合もありました。

そこで今回はExcelVBAの標準の機能のみでバーコードを連続作成するツールを考えてみました。

JANのバーコードの仕様について

バーコード作成のための法則はこちらのサイトを参考にしています。

詳しい説明は省略しますが、JANのバーコードは大まかに下記の法則で作成されています。

①1つの数字について7つのバーの組み合わせで表示されます。「0010011」など

②バーコードの開始位置・真ん中・終了位置には専用のコード「101」・「01010」・「101」が含まれます。

③バーコードに含まれている情報は先頭の数字を除く数字12桁分です。

④開始位置から真ん中までの6桁はそれぞれ1つの数字につき2種類ずつ存在し（奇数パリティ・偶数パリティ）、その組み合わせによって先頭の数字を決定します。

バーコード作成の仕様・出来上がりイメージについて

今回はとりあえずJANコード一覧の隣にバーコードが作成できればOKなので、セルを直接使って色の塗りつぶしでバーコードを表示させることにしました。
A列に記入したJANコードのバーコードをM～DC列（95列：12文字×7+3（開始）+5（センター）+3（終了））に表示させるコードを考えます。
念のためL列とDD列はスペースとして用意しています。

また今回は標準の13桁のコードのみを作成することにしています。
短縮8桁コードはまた時間のある時に作成します。

バーコードを作成するExcelVBAコードについて

191019追記：こちらの記事で改良したExcelVBAコードを紹介しています。

私が今回作成したExcelVBAコードは下記の通りです。
最初の1桁から組み合わせを確認するのが若干面倒ですが、1度作ってしまえば簡単な仕組みです。

Sub バーコード作成13桁のみ()

Dim パリティ
Dim 左コード
Dim 右コード
Dim コード
Dim i, k

’ガイド線を消す（消さないとバーコード読めない）
ActiveWindow.DisplayGridlines = False

’L～DD列の色を消して幅をそろえる
Range(Cells(1, 12), Cells(Rows.Count, 108)).Interior.ColorIndex = xlNone
Range(Columns(12), Columns(108)).ColumnWidth = 0.13

’JANコードが記載されているところは継続処理
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If Len(Cells(i, 1)) = 13 Then

’最初の1文字目からパリティを算出
Select Case Left(Cells(i, 1), 1)
Case “0”
パリティ = Array(“奇数”, “奇数”, “奇数”, “奇数”, “奇数”, “奇数”)
Case “1”
パリティ = Array(“奇数”, “奇数”, “偶数”, “奇数”, “偶数”, “偶数”)
Case “2”
パリティ = Array(“奇数”, “奇数”, “偶数”, “偶数”, “奇数”, “偶数”)
Case “3”
パリティ = Array(“奇数”, “奇数”, “偶数”, “偶数”, “偶数”, “奇数”)
Case “4”
パリティ = Array(“奇数”, “偶数”, “奇数”, “奇数”, “偶数”, “偶数”)
Case “5”
パリティ = Array(“奇数”, “偶数”, “偶数”, “奇数”, “奇数”, “偶数”)
Case “6”
パリティ = Array(“奇数”, “偶数”, “偶数”, “偶数”, “奇数”, “奇数”)
Case “7”
パリティ = Array(“奇数”, “偶数”, “奇数”, “偶数”, “奇数”, “偶数”)
Case “8”
パリティ = Array(“奇数”, “偶数”, “奇数”, “偶数”, “偶数”, “奇数”)
Case “9”
パリティ = Array(“奇数”, “偶数”, “偶数”, “奇数”, “偶数”, “奇数”)
End Select

コード = “101” ’左ガードバー
For x = 2 To 7
If パリティ(x － 2) = “奇数” Then
左コード = Array(“0001101”, “0011001”, “0010011”, “0111101”, “0100011”, “0110001”, “0101111”, “0111011”, “0110111”, “0001011”)
コード = コード & 左コード(Mid(Cells(i, 1), x, 1))
ElseIf パリティ(x － 2) = “偶数” Then
左コード = Array(“0100111”, “0110011”, “0011011”, “0100001”, “0011101”, “0111001”, “0000101”, “0010001”, “0001001”, “0010111”)
コード = コード & 左コード(Mid(Cells(i, 1), x, 1))
End If
Next x
コード = コード & “01010” ’センターバー

For x = 8 To 13
右コード = Array(“1110010”, “1100110”, “1101100”, “1000010”, “1011100”, “1001110”, “1010000”, “1000100”, “1001000”, “1110100”)
コード = コード & 右コード(Mid(Cells(i, 1), x, 1))
Next x

コード = コード & “101” ’右ガードバー

For x = 13 To 107 ’変換したコードで色を塗り分ける
If Mid(コード, x － 12, 1) = “1” Then
Cells(i, x).Interior.Color = RGB(0, 0, 0)
ElseIf Mid(コード, x － 12, 1) = “0” Then
Cells(i, x).Interior.Color = RGB(255, 255, 255)
End If
Next x

’初期化
Erase パリティ
Erase 右コード
Erase 左コード
コード = “”

End If
Next i

End Sub

今後の改良について

今後の改良の予定ですが、短縮の8桁コードについては今後作成できるようにまた作ります。
（191019追記：こちらの記事で改良したコードを公開しています。）

あとは今回作成したバーコードはセル上に直接色付けして作成しているので動かしにくいので、画像オブジェクトとして貼り付けできるようにする方法も組み込みます。
（191019追記：こちらの記事で画像オブジェクトとして貼り付ける方法を公開しています。）

今回のバーコード作成は店舗などで使用するプライスカードの作成を想定しているものなので、PowerPointなどに貼り付けできるのが目標です。

Javascriptでバーコードを手作りする2

okumasahito — Sun, 28 Aug 2016 14:15:17 +0000

以前のバーコードを作るプログラムをJavascriptを使ってみた続きです。職場のPCがまさかのIE8をブラウザとしていて、canvasタグが使えない問題が発生したため、pタグを色分けしてinline-blockを指定して順に並べるプログラムに変更しています。他にはチェックデジットの計算方法にエラーがあり修正しました。

JANコードを入力するとバーコードが大小2種類表示されます。

今回のバーコード表示は通常印刷では表示されません。プリントスクリーンで画像を貼り付けて印刷する仕様になっています。

前回のバーコード作成方法について、Webページを印刷するとあまりキレイに印刷できないためかバーコードがきちんと読めない問題点もありました。解決方法として一度PDFに出力して紙に印刷したりしていましたが、今回印刷で表示されなくなったことはプリントスクリーンでの印刷を徹底できるという意味では逆に好都合だったかもしれません。

また機会があればPDF出力にも対応した表示ができるように改良します。

使い方

1. 空欄に品名とJANを入れて表示をクリックする。
2. 画面全体を印刷する。

注意点

1. 13桁のJANのみ使用できます。
2. 印刷はRICOHのレーザープリンターを使う方がきちんと認識できるようです。
3. チェックデジット（最後の一桁）が誤っている場合や空欄の場合は自動修正します。

Javascriptでバーコードを手作りする

okumasahito — Sun, 21 Aug 2016 03:56:46 +0000

仕事でVBAを使えない環境でバーコードを作るプログラムを作成する必要があり、初めてJavascriptを使ってみました。 VBAやマクロとは全く関係ないですが、情報をここに記録しておきます。

コードを入力して表示ボタンをクリックするとバーコードが表示されるプログラムです。バーコードの表示の法則はバーコードの作成というサイトを参考にしました。

使い方

1. 空欄にJANを入れて表示をクリックする。
2. 画面全体を印刷する。

注意点

1. 13桁のJANのみ使用できます。
2. 連続で作成するときは1回ずつファイルを開きなおしてください。
3. チェックデジット（最後の一桁）が誤っている場合や空欄の場合は自動修正します。

追加で改良を加えました。チェックデジットの計算修正、IE8のcanvasタグが表示されない問題への対応を行いました。代わりに通常の印刷では表示されないので、プリントスクリーンで画像を印刷する仕様になりました。こちらのページを参照してください。