Public Function DataMatrix(strToEncode As String) As String
Dim obj As cruflBCS.CDataMatrix
Set obj = New cruflBCS.CDataMatrix
DataMatrix = obj.Encode(strToEncode)
Set obj = Nothing
End Function
7. Visual Basicを閉じて、Excelスプレッドシートに戻ります。 次のマクロを使用してデータをエンコードしてください。Data Matrix。 処理するデータがたくさんある場合は、マクロを列/行全体にコピーするだけで済みます。 すべての Data Matrixはすぐに準備ができています。
=DataMatrix(xx)
8. セルB1を右クリックして、コンテキストメニューからセルの書式設定を選択します。
9. フォントタブをクリックして、フォントとしてBcsdatamatrixSを選択します。
10. 配置タブをクリックして、「テキストを折り返す」を選択します。
11. OKをクリックしてください。 Excelのスプレッドシートにdata matrixと表示されます。 data matrixの行の間に小さな隙間があるかもしれません。 ただし、bcsdatamatrixs TrueTypeフォントはこのギャップを最小限に抑えるように設計されているため、 data matrixを印刷してスキャンしても問題にはなりません。