条码加字母

宋雄健　发表于：2011-08-12 07:56:55 　

请问各位老师附件的条码制作我想在数字前面加“YG”两个字母代码要怎样写？

奇玉发表于：2011-08-12 16:16:27

If 标准 = 2 Then
        If Len(编码) <> 12 And Len(编码) <> 13 Then
            MsgBox "编码与标准不符，" & 标准.Column(1) & " 标准需要12位编码(自动加最后1位校验码)。", vbInformation, "North Star"
        End If
        AA = "YG" & Left(编码 & "0000000000000", 13)
    End If
    If 标准 = 3 Then
        If Len(编码) <> 8 Then
            MsgBox "编码与标准不符，" & 标准.Column(1) & " 标准需要8位编码。", vbInformation, "North Star"
        End If
        AA = "YG" & Left(编码 & "00000000", 8)

带颜色的地方是做改动了。我试了一下，在编码文本框内正常输入13位数字，如1234567890123，点生成即可生成"YG1234567890128"。只是生成后编码文本框13位数字前也加上了YG。不知这样是否能可以。

Top

宋雄健发表于：2011-08-12 20:55:27

1楼老师您好能否作成在编码文本框随意输入字母和数字生成条码

Top

奇玉发表于：2011-08-15 08:38:36

编码规则没太研究过，好象不能。如果是你本人用，你可以随时更改你要的字母，比如：如果你要以“FM”字母开头，就把程序里面的“YG”改成“FM”即可。

编码文本框输入字母就不能用了，只能是数字。看看其它坛友们有没有什么高招？

Top

蒋元根发表于：2011-08-15 09:31:51

供参考

点击下载此附件