コンビニバーコード専用フォント ほぼ完成

http://ameblo.jp/lerx/entry-10014038630.html のモノですが、ほぼ、完成しました。

これから、マニュアルの作成です。

VBAのサンプルは、

Function CH(X As Integer) As String
If X < 95 Then
CH = Chr(32 + X)
Else
CH = Chr(96 + X)
End If
End Function
Function TOUCC(Value As String) As String
Dim C(100) As Integer, I As Integer, T As Integer, S As String
A = Len(Value)
If A = 44 Then
S = CH(105)
C(0) = 102
For I = 1 To 43 Step 2
C((I + 1) / 2) = Mid(Value, I, 2)
Next
T = 105
For I = 0 To 22
S = S & CH(C(I))
T = T + (I + 1) * C(I)
Next
I = T Mod 103
S = S & CH(I) & CH(106)
Else
S = "***ERROR"
End If
TOUCC = S
End Function

となります。

EXCELでの使い方は、例えばA1に44桁の数字文字列を入力し、B1セルに、

=TOUCC(A1)

とすることで、変換が可能です。

フォントは9800円＋税（税込10240円)とする予定です。