自动批量生成条形码，可能你用得上，欢迎进来看看

jackzgs

这个很好用，正是我要的，找了好久。

mohican1997

感谢，感谢！下载后学习，受益匪浅。

gambol974

非常感谢程序，解决了一大问题。

jyb2002

huang1314wei 发表于 2016-12-23 19:11
原因找到了，该条形码网站可耻的加了防盗链，看来得找下一家网站了

为什么不用excel自带的条码控件？

jyb2002

sucx007 发表于 2017-1-8 15:28
论坛里搜索来的，直接用excel自带的条形码

这个帖子是我看到关于条形码最好的解决方案！

jyb2002

Sub AddBarcode()
Dim iCount&, i
Call del '删除已有的条形码
iCount = Sheet1.[a65536].End(xlUp).Row
Sheet1.Range("b:b").ColumnWidth = 25
Sheet1.Rows.RowHeight = 50
For i = 1 To iCount
    With Sheet1.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
        .Object.Style = 7
        .Object.Value = Format(Sheet1.Cells(i, 1).Value, "000000000000") '12位及以上
        .Height = Sheet1.Cells(i, 2).Height
        .Width = Sheet1.Cells(i, 2).Width
        .Left = Sheet1.Cells(i, 2).Left
        .Top = Sheet1.Cells(i, 2).Top
    End With
Next
End Sub
Sub del()
Dim txm As Shape
For Each txm In Sheet1.Shapes
    If txm.Type <> 8 Then txm.Delete
Next
End Sub

liangdinghu

win7 64位 EXCEL2010使用出错了。

qunzhujunjun

huang1314wei 发表于 2016-12-23 16:40
一楼代码及附件由于网站规则改变，导致不能使用，现更新代码如下：

如何实现生成的条码是纯图片？就是条码下方不要有数字！谢谢！

Illidanstorms

看了教程，可以实现批量生成条码了，但有几个问题，请大神帮忙看看：
1、批量生成条码出现的位置是重复的；
2、无法批量删除条码；
3、无法打印预览。
不知道是不是后面的代码木有了。。。

好莱坞刺客

A1列輸入編碼（比如：20190321A020004），A2列出現一維碼；怎麼弄？
1.1碼別請幫忙選擇3 of 9 Barcode碼
1.2 轉換成條碼時需在數字前后加“*”否則條碼槍掃讀不出來
1.3 異動單編碼原則為“月+日+控制員（字母+2位數字）+4位流水號”（月與日必須為2位數）
1.4 條碼字體用24號字體