gs1-databar

MS Excelスプレッドシートで gs1-databarを生成

1. ダウンロード Excel用 gs1-databar. TrueTypeフォント「BcsDatabarM.ttf」を「c:\Windows\Fonts」フォルダにコピーします。 2. 管理者としてDOSプロンプトを開きます。 以下のコマンドを入力して、「cruflbcs.dll」を登録します。

CD C:\Program Files\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll

gs1-databar DLL DOS 登録

3. Microsoft® Excel®を起動します。

Excel 2000またはExcel 2003を使用している場合は、[メニュー] ===> [ツール] ==> [マクロ] ===> [セキュリティ]の順にクリックします。 低セキュリティレベルを選択します。
gs1-databar マクロ セキュリティ

Excel 2007/2010/2013/2016/2019を使用している場合は、Microsoft Officeボタンをクリックしてください。
Office 2010 button Office 2016 button Office 2019 button
[オプション] => [セキュリティセンター] ==> [マクロの設定]の順にクリックし、[すべてのマクロを有効にする]を選択します。

gs1-databar マクロ コンフィグレーション

4. Alt + F11キーを押してMicrosoft®Visual Basic Editorを開きます。
gs1-databar VBA

5. Visual Basicエディタから、メニューツール===>参照を選択します。 ダイアログがポップアップします。 [参照]ボタンをクリックし、 'C:¥Program File¥CommonFiles¥Barcodesoft¥Fontutil'フォルダからcruflbcs.dllを選択します。 crUFLBcs 4.0を選択してください。 そしてOKボタンをクリックしてください。

gs1-databar 参照を置く

6. Ctrl + Mを押します。 ダイアログがポップアップします。 C:¥Program File¥CommonFiles¥Barcodesoft¥Fontutil フォルダの下のbarcodesoft.basを選択します。 次に「開く」をクリックします。

gs1-databar インポート vba

下記のコードスニペットからコピーすることもできます。

Public Function Databar14(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
Databar14 = obj.Databar14(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarStk(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarStk = obj.DatabarStack(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarStkOmni(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarStkOmni = obj.DatabarStkOmni(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarLtd(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarLtd = obj.DatabarLtd(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarExp(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarExp = obj.DatabarExp(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarExpStk(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarExpStk = obj.DatabarExpStk(strToEncode)
Set obj = Nothing
End Function
7. Visual Basicを閉じて、Excelスプレッドシートに戻ります。 次のマクロを使用してデータをエンコードしてください。gs1-databar。 処理するデータがたくさんある場合は、マクロを列/行全体にコピーするだけで済みます。 すべての gs1-databarはすぐに準備ができています。

=databar(xx)

gs1-databar Excel マクロ

8. セルB1を右クリックして、コンテキストメニューからセルの書式設定を選択します。
フォントタブをクリックして、フォントとしてBcsDatabarMを選択します。
gs1-databar フォント excel

9. OKをクリックしてください。 Excelのスプレッドシートにgs1-databarと表示されます。 gs1-databarの行の間に小さな隙間があるかもしれません。 ただし、BcsDatabarM TrueTypeフォントはこのギャップを最小限に抑えるように設計されているため、 gs1-databarを印刷してスキャンしても問題にはなりません。
  • gs1-databar ソフトウェア ダウンロード
  • gs1-databar バーコード ソフトウェア 購入