code128字体+excel 宏文件 code 128码例子(无需联网参照例子使用即可)

新建一个Excel然后另存为启用宏的Excel工作簿(后缀为.xlsm),如果保存时候提示 “文档检查器”警告,需要在Excel选项的 信任中心 设置,去掉 “文档特性设置”里面的勾。 Excel -》开发工具-》Visual Basic 增加以下代码: Function code128b(Tar As Range) '128B码:ChrW(204). Dim s$, i%, ss$, j%, curR%, checkB% curR = Tar.Row s = Tar.Value checkB = 1 '开始位的码值为104 mod 103 =1 For i = 1 To Len(s)