MS Excelで「Intelligent Mailバーコード」生成する

MS Excelスプレッドシートで intelligent-mailを生成

1. ダウンロード Excel用 intelligent-mail.
TrueTypeフォント「BcsIM.ttf」を「c：\Windows\Fonts」フォルダにコピーします。

2. 管理者としてDOSプロンプトを開きます。以下のコマンドを入力して、「cruflbcs.dll」を登録します。

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

intelligent-mail DLL DOS 登録

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

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

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

intelligent-mail マクロコンフィグレーション

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

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

intelligent-mail 参照を置く

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

intelligent-mail インポート vba

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

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

7. Visual Basicを閉じて、Excelスプレッドシートに戻ります。次のマクロを使用してデータをエンコードしてください。intelligent-mail。処理するデータがたくさんある場合は、マクロを列/行全体にコピーするだけで済みます。すべての intelligent-mailはすぐに準備ができています。

=IM(xx)

intelligent-mail Excel マクロ

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

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