条形码 mapping/scanning 个问题
Barcode mapping/scanning issues
这让我抓狂。
我在这里和 Google 搜索了解决方案,但找到了 none。
我的老板让我准备一个简单的 Excel sheet 来在数据太旧并且从我们的仓库管理系统中消失时重新打印标签。我想“非常简单!我只需要两个单元格:一个是人类字体,另一个是条形码”。我太快了。
我可以输入我们的产品
BZ-BB1/2589 B
但是当我扫描条形码时,我得到
BZ'BB1-2589 BB1
安装的条形码字体是“Free 3 of 9”。
为什么要转换减号和斜线符号?我该如何解决这个问题?最后似乎重复了一些文字。
任何帮助是极大的赞赏。
谢谢
字体“Free 3 of 9”还需要一个 VBA 代码
Public Function Code39$(chaine$)
'V 1.0.0
'Paramètres : une chaine
'Retour : * une chaine qui, affichée avec la police CODE39.TTF, donne le code barre
' * une chaine vide si paramètre fourni incorrect
Dim i%
Code39$ = ""
If Len(chaine$) > 0 Then
'Vérifier si caractères valides
For i% = 1 To Len(chaine$)
Select Case Asc(Mid$(chaine$, i%, 1))
Case 32, 36, 37, 43, 45 To 57, 65 To 90
Case Else
i% = 0
Exit For
End Select
Next
If i% > 0 Then
Code39$ = "*" & chaine$ & "*"
End If
End If
End Function
不过免费字体C39HrP24DhTt
只需要一个公式
="*"&A1&"*"
键盘布局问题,使用ENG布局键盘的人可以正确扫描条码。
这让我抓狂。 我在这里和 Google 搜索了解决方案,但找到了 none。 我的老板让我准备一个简单的 Excel sheet 来在数据太旧并且从我们的仓库管理系统中消失时重新打印标签。我想“非常简单!我只需要两个单元格:一个是人类字体,另一个是条形码”。我太快了。
我可以输入我们的产品
BZ-BB1/2589 B
但是当我扫描条形码时,我得到
BZ'BB1-2589 BB1
安装的条形码字体是“Free 3 of 9”。 为什么要转换减号和斜线符号?我该如何解决这个问题?最后似乎重复了一些文字。 任何帮助是极大的赞赏。 谢谢
字体“Free 3 of 9”还需要一个 VBA 代码
Public Function Code39$(chaine$)
'V 1.0.0
'Paramètres : une chaine
'Retour : * une chaine qui, affichée avec la police CODE39.TTF, donne le code barre
' * une chaine vide si paramètre fourni incorrect
Dim i%
Code39$ = ""
If Len(chaine$) > 0 Then
'Vérifier si caractères valides
For i% = 1 To Len(chaine$)
Select Case Asc(Mid$(chaine$, i%, 1))
Case 32, 36, 37, 43, 45 To 57, 65 To 90
Case Else
i% = 0
Exit For
End Select
Next
If i% > 0 Then
Code39$ = "*" & chaine$ & "*"
End If
End If
End Function
不过免费字体C39HrP24DhTt
只需要一个公式
="*"&A1&"*"
键盘布局问题,使用ENG布局键盘的人可以正确扫描条码。