今回は、その生成方法を学びます。 Excel用コード128バーコードフォント Excelでコード128バーコードフォントを使用する方法はいくつかありますが、ほとんどは適用が難しく、すべてのバージョンのExcelで動作しません。 今日は、Excelで簡単な手順でコード128バーコードフォントを生成する方法を紹介します。 記事を読んだ後、あなたは非常に簡単にコード128バーコードフォントを使用できるようになります。 それでは、早速、説明を始めましょう。

プラクティスブックのダウンロード

練習帳はこちらからダウンロードできます。

Code 128バーコードフォントとは？

コード128 は、現代的で有名なバーコードフォントで、英数字をサポートする高密度バーコードフォントであるため、その人気は日に日に高まっています。

一般に、コード128は7つのセクションから構成されています。 それらは、次のとおりです。

• クワイエットゾーン
• スタートシンボル
• エンコードデータ
• チェックシンボル
• ストップ・シンボル
• ファイナルバー
• クワイエットゾーン

があります。 コード128 バーコードフォントは 3 サブセットについて簡単に説明します。

• コード128A : サポートしています。 ASCII を小文字に変換してください。
• コード128B : サポートしています。 ASCII を、最初の特殊文字を除いたものです。
• コード128C : このサブセットは、以下をサポートします。 数値 .

Excel用のCode 128バーコードフォントを生成するためのステップバイステップの手順

その手順を説明するために、いくつかの 製品 とその データ を使ったバーコードの生成に挑戦します。 コード128 フォントで各製品のデータを表示します。

STEP1：コード128フォントのダウンロード

• まず、ダウンロードする必要があります。 コード128 することができます。 フォントはこちらからダウンロードしてください。 .
• その後です。 抜粋 にダウンロードしたフォルダーを C:\Windows Fonts フォルダーに格納されます。
• それ以外の場合は、ダウンロードしたフォルダを解凍し、その中にある コード128 フォントを作成し、それを C:\Windows Fonts フォルダーに格納されます。
• また、選択 継続 をクリックすると、管理者権限のウィンドウが表示されます。

STEP2：VBAコードの適用

• 2つ目は デベロッパー を選択し、リボン内の ビジュアルベーシック .
• その結果、開くのは ビジュアルベーシック ウィンドウに表示されます。

• その後、以下を選択します。 インサート そして モジュール において ビジュアルベーシック ウィンドウに表示されます。
• このとき モジュール のウィンドウが表示されます。

• ここで、コードを入力する必要があるのは モジュール ウィンドウに表示されます。
• 下記からコピーして、貼り付けてください。 モジュール ウィンドウに表示されます。

 Option Explicit Public Function Code128(SourceString As String) Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String If Len(SourceString)> 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126,203 Case Else MsgBox "Invalid character in barcode string" & vbCrLf & vbCrLf & "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next Code128_Barcode = "" UseTableB = True Counter = 1 Do While Counter <= =TrueLen(SourceString) If UseTableB Then mini = IIf(Counter = 1 Or Counter + 3 = Len(SourceString), 4, 6) GoSub testnum If mini% <0 Then If Counter = 1 Then Code128_Barcode = Chr(205) Else Code128_Barcode = Code128_Barcode & Chr(199)End If UseTableB = False Else If Counter = 1 Then Code128_Barcode = Chr(204) End If End If Not UseTableB Then mini% = 2 GoSub testnum If mini% <0 Then dummy% = Val(Mid(SourceString, Counter, 2)) dummy% = 0.IIf(dummy% <95, dummy% + 32, dummy% + 100) Code128_Barcode = Code128_Barcode & Chr(dummy%) Counter = Counter + 2 Else Code128_Barcode = Code128_Barcode & Chr(200) UseTableB = True End If UseTableB Then Code128_Barcode = Code128_Barcode（テーブル文字コード） End if If UseTableB Then Code128_Barcode = True End If Code128_Barcode & Chr(200) End if Code128_Barcode = Code128_Barcode（テーブル文字コード） Endf(dummy%)Code128_Barcode & Mid(SourceString, Counter, 1) Counter = Counter + 1 End If Loop For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& = dummy% CheckSum& = (CheckSum& +) CheckSum= (Code128_Barcode)(Counter - 1) * dummy%) Mod 103 Next CheckSum& = IIf(CheckSum& <95, CheckSum& + 32, CheckSum& + 100) Code128_Barcode = Code128_Barcode & Chr(CheckSum&) & Chr$(206) End If Code128 = Code128_Barcode 終了 Function testnum: mini% = mini% - 1 If Counter + mini% = 0 If Asc(Mid(SourceString, Counter + ))mini%, 1) 57 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

VBAコードの説明です。

このコードでは、文字列をバーコードに変換する関数を作成します。 ここでは、文字列をバーコードに変換するために コード128 フォントを使用します。

• 入力パラメータは文字列である。
• 出力では、バーコードが コード128 文字列が有効であるかどうかを判定します。
• それ以外の場合は、空文字列を表示します。

 パブリック関数 Code128(SourceString As String) 

この部分は、機能名を表し、以下の通りです。 コード128() 括弧の中に文字列を挿入する必要があります。

 Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String 

これらは、コードの中で使用される変数です。

 If Len(SourceString)> 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126, 203 Case Else MsgBox "Invalid character in barcode string" & vbCrLf & "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next 

このセクションでは、有効な文字があるかどうかをチェックし、有効な文字がない場合は、標準的な文字列を使用するようにユーザーに要求します。 ASCII の文字が表示されます。

 For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& = dummy% CheckSum& = (CheckSum& + (Counter - 1) * dummy%) Mod 103 Next 

ここで、この部分が計算するのは チェックサム の変数になります。

 CheckSum& = IIf(CheckSum& <95, CheckSum& + 32, CheckSum& + 100) Code128_Barcode = Code128_Barcode & Chr(CheckSum&) & Chr$(206) End If 

この部分において、コードは チェックサム・ASCII コードを追加した後 ASCII のコードを入力すると、次のパートに移ります。

 mini% = mini% - 1 If Counter + mini% = 0 If Asc(Mid(SourceString, Counter + mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If 

最後の部分では、与えられた文字列の中に数値があるかどうかをチェックします。

この ブイビーエー のコードが見つかりました。 マイオンライニングハブドットコム .

• コードを入力した後 Ctrl + S を保存することができます。
• 次のステップで ビジュアルベーシック ウィンドウに表示されます。

STEP3：コード128機能を使う

• 3つ目は、作成した関数を応用して ブイビーエー .
• そのためには、以下を選択します。 セルD5 と入力し、以下の数式を入力してください。

ここで、この関数は セルC5 をバーコードに変換します。

• 次のステップで、 を押します。 入力 をクリックすると、結果が表示されます。

STEP4：フォントのテーマとサイズを変更する

• 4番目のステップでは、フォントのテーマとサイズを変更する必要があります。
• そのために、以下を選択します。 セルC5 .
• 次に ホーム タブを選択し コード128 をフォントのテーマ欄に記入してください。
• また、選択 36 をフォントサイズボックスに入力します。

STEP5：列の幅と行の高さのサイズを変更する

• フォントのテーマとサイズを変更した後、列幅と行の高さを変更する必要があります。
• この例では、横幅を D列 まで 30 とのことです。 列の高さ まで 50 .

STEP6：塗りつぶしハンドルを使って数式をコピーする

• 次のステップで、以下を選択します。 セルD5 をドラッグして フィルハンドル を、他の細胞へ落とす。

最終出力

• 最後に 列の高さ の 6列目 , 7 , 8 そして 9 まで 50 .
• すべての手順が終了すると、下の写真のような結果が表示されます。

続きを読む: Excel用コード39バーコードフォントの使用方法（簡単な手順付き）

結論

今回は、その生成手順をステップ・バイ・ステップで紹介しました。 Excel用コード128バーコードフォント .この記事があなたのお役に立てれば幸いです。 バーコードの作成 また、ワークブックを使って練習することもできます。 ワークブックは、記事の冒頭に追加しましたので、ダウンロードしてください。 また、以下のサイトもご覧ください。 エクセルウィキ 最後に、何かご提案やご質問がありましたら、以下のコメント欄からお気軽にお問い合わせください。