摘要： 39码可以直接用字体代替，来字符前后都加下“*”，即可被条码枪识别。128B码的话，用字体加算法的方法才行，要计算开始位、校验位、结束位。VBA计算方法：View Code 1 Function code128b(Tar As Range) '128B码:ChrW(204). 2 Dim s$, i%, ss$, j%, curR%, checkB% 3 curR = Tar.Row 4 s = Tar.Value 5 checkB = 1 '开始位的码值为104 mod 103 =1 6 For i = 1 To Len(s) 7 ss = Mid(s, i, 1... 阅读全文