有关Code 128字体文件、条码的问题

hkebsxp

请问999982700201420252, 得出结果是ì999982700201420252 Î
Check digit 是 SPACE , barcode出了空格, 有没有方法解决, 谢

hkebsxp

hkebsxp 发表于 2017-6-2 11:47
请问999982700201420252, 得出结果是ì999982700201420252 Î
Check digit 是 SPACE , barcode出了空 ...

已解决, 相信是字型问题, 谢

松叶落

127种条形码字体-Barcode12548.rar (1.53 MB, 下载次数: 150)

2017-8-18 11:32 上传

点击文件名下载附件

还是用39码，字符前后加上*或者!最方便，字体是C39HrP60DmTt Normal.Ttf

lyrabird

有幸用了此位大神分享的代码，但是也出现了82楼出现的空格问题。因是所用的字体是其他的128B字体
将
Code128B = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(206) 'ChrW(32)无法正确返回
这一句中的Chr(32)改成自己用的字体里对应的UNICODE码就行了，Chr(32)代表着空格，换掉它就可以了

blackttea1

作个记号，谢谢

米斯特王

monyi3030 发表于 2017-4-14 10:28
shuyee 現在是2017年，爬文了兩三天終於把CODE128在EXCEL條碼化找到答案了，感謝您的分享
再次感恩您

哥们，能否分享一下，我用了版主那个也不知道怎么搞

韦杰强

biaotiger1 发表于 2009-8-20 13:14
我们公司只用39条码，条码机激光打印机都打（不同产品哦）均可用条码枪识别入计算机
其他不知道了
学习下

是用excel 编辑的吗？

94monyi

米斯特王 发表于 2018-11-14 09:41
哥们，能否分享一下，我用了版主那个也不知道怎么搞

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)
    ss = Mid(s, i, 1)
    j = Asc(ss) '羶徹薦拸虴趼睫,掀犖趼.
    If j < 135 Then
        j = j - 32
    ElseIf j > 134 Then
        j = j - 100
    End If
    checkB = (checkB + i * j) Mod 103   '數呾苺桄弇
Next
If checkB < 95 And checkB > 0 Then  '衄腔訧蹋眻諉&#63392;103腔耀,賤佽祥喃煦,秪峈衄腔苺桄弇閉徹127奀,炵苀頗"勛"裁坳蠅(蟀湍倎砦睫).
    checkB = checkB + 32
ElseIf checkB > 94 Then '趼极扢离奀,跺梗趼耀掩隅砱賸2跺硉.夤舷趼极恅璃奀夔楷珋.
    checkB = checkB + 100
End If
Code128B = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(206)  'ChrW(32)拸楊淏&#63489;殿隙
End Function

=================================================
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)
    ss = Mid(s, i, 1)
    j = Asc(ss) '不過濾無效字符，比如漢字.
    If j < 135 Then
        j = j - 32
    ElseIf j > 134 Then
        j = j - 100
    End If
    checkB = (checkB + i * j) Mod 103   '計算校驗位
Next
If checkB < 95 And checkB > 0 Then  '有的資料直接求103的模,解說不充分,因為有的校驗位超過127時,系統會"吃"掉它們(連帶休止符).
    checkB = checkB + 32
ElseIf checkB > 94 Then '字体設置時,字模被定義了2個值.觀察字体文件時能發現.
    checkB = checkB + 100
End If
Code128B = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(206)  'ChrW(32)拸楊淏&#63489;殿隙
End Function

要另外安裝code128b字型

小米亮

这个方法在excel中很好用，扫描一切正常。可是把条形码复制到word中，就无法扫描识别了。不知是什么原因。
我又试了一下，把条形码复制到写字板中，能够扫描

lovershome

感谢分享，非常有用，解决了大问题