VBA バーコード作成に関しての忘備録

excel VBAでバーコードを作成する方法を忘備録として記録しておきたい。

例えば,excelでB1の箇所にJANコードが数字で書かれてあるとする。

ここからバーコードを作成するには下記のとおりにするとよい。

IDAutomationHC39M Free Versionはダウンロードしてください。

Sub 楕円2_Click()

Dim inputValue As String

' varcode化したい範囲を取得。下記の場合はB1セルの値を取得している

inputValue = Range("B1").Value

' バーコード用にフォーマット（Code39の場合はアスタリスクで囲む）

Dim barcodeValue As String

barcodeValue = "*" & inputValue & "*"

' 今回はC2セルに結果を表示

Range("C2").Value = barcodeValue

' B2セルのフォントをバーコードフォントに設定

Range("C2").Font.Name = "IDAutomationHC39M Free Version"

' インストールしたフォント名に変更

End Sub