excel 128code ttf 编码转换

--在模块中加入以下函数
 Public Function GetCode128B(ByVal STR As String) As String
        Dim result As String
        Dim checksum As Integer, i_tmp As Integer
        Dim checkCode As String '生成验证码
        checksum = 104
        For i = 1 To Len(STR) Step 1
            i_tmp = AscW(Mid(STR, i, 1))
            If i_tmp >= 32 Then
                checksum = checksum + (i_tmp - 32) * i
            Else
                checksum = checksum + (i_tmp + 64) * i
            End If
        Next
        checksum = checksum Mod 103
        If checksum < 95 Then
            checksum = checksum + 32
        Else
            checksum = checksum + 100
        End If
        checkCode = ChrW(checksum)
        result = ChrW(204) + STR + checkCode + ChrW(206)
        GetCode128B = result

    End Function

-- 在表格中调用函数转换后，把字段设置为条码字体