在Excel中批量生成条形码,支持Code128、Code39、Jan13等等格式

1 篇文章 0 订阅
1 篇文章 0 订阅

将产品编码、物流号、客户订单号、送货单号、ISBN等等数据排量转换成条形码,支持Code128A、Code128B和Code128C、Code39、Jan13格式。

生成条形码前可以自定义形码的高度、存放位置、字体名称和字号,以及图片命名方式。
在这里插入图片描述
Code128A/B/C三种格式的区别:

Code128A:不支持小写字母,字符数量不限.

Code128B:支持大写、小写字母和数值,字符数量不限.

Code128C:只支持数值,字符数量必须是偶数,Code128C的宽度比其它两个更小,即生成的条形码更短。
工具下载地址:http://excelbbx.net

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
可以使用VBA编写一个生成Code128B条形码的函数,然后在Excel调用该函数来生成条形码。以下是一个示例代码: ``` Function GenerateCode128BBarcode(ByVal value As String) As String Dim barcode As String Dim checksum As Integer Dim i As Integer ' Start character barcode = "11010000100" checksum = 104 ' Encode each character For i = 1 To Len(value) Dim code As Integer Select Case Asc(Mid(value, i, 1)) Case 32 To 126 ' ASCII characters code = Asc(Mid(value, i, 1)) - 32 Case 128 To 255 ' Extended ASCII characters code = Asc(Mid(value, i, 1)) - 100 Case Else ' Invalid character GenerateCode128BBarcode = "" Exit Function End Select barcode = barcode & Code128BTable(code) checksum = checksum + code * i Next i ' Calculate checksum checksum = checksum Mod 103 barcode = barcode & Code128BTable(checksum) ' Stop character barcode = barcode & "1100011101011" GenerateCode128BBarcode = barcode End Function Function Code128BTable(ByVal code As Integer) As String Dim table As String Select Case code Case 0 To 9 table = "11011001100" Case 10 To 19 table = "11001101100" Case 20 To 29 table = "11001100110" Case 30 To 39 table = "10010011000" Case 40 To 49 table = "10010001100" Case 50 To 59 table = "10001001100" Case 60 To 69 table = "10011001000" Case 70 To 79 table = "10011000100" Case 80 To 89 table = "10001100100" Case 90 To 99 table = "11001001000" Case 100 To 109 table = "11001000100" Case 110 To 119 table = "11000100100" Case 120 To 129 table = "10110011100" Case 130 To 139 table = "10011011100" Case 140 To 149 table = "10011001110" Case 150 To 159 table = "10111001100" Case 160 To 169 table = "10011101100" Case 170 To 179 table = "10011100110" Case 180 To 189 table = "11001110010" Case 190 To 199 table = "11001011100" Case 200 To 209 table = "11001001110" Case 210 To 219 table = "11011100100" Case 220 To 229 table = "11001110100" Case 230 To 239 table = "11101101110" Case 240 To 249 table = "11101001100" Case 250 To 255 table = "11100101100" End Select Code128BTable = table End Function ``` 要在Excel生成条形码,只需在单元格输入以下公式: ``` =GenerateCode128BBarcode("VALUE") ``` 其,VALUE是要编码的字符串。将VALUE替换为实际的值即可生成条形码

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值