excel批量生成条形码求助

钱途迷茫

有1000多条数据需要批量生成条形码，参考视频里的这个效果，如果能照着视频里写个vba代码就是最好的了，其他法子也可以，简单好用就行
https://www.bilibili.com/video/B ... a68cc29befea5b51f94

indusrain

钱途迷茫 发表于 2023-9-9 13:20
方方格子有具体的步骤吗，我安装上了，没有找到在哪里生成条形码

点会员工具  里面有图片工具 然后下载就行了

m99

[Asm] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub GenerateBarcodes()     Dim Barcode As Range     Dim Code As String     Dim i As Integer           ' 假设条形码要保存在A列，从A2开始     Set Barcode = ThisWorkbook.Sheets("Sheet1").Range("A2")           ' 假设条形码代码存储在B列，从B2开始     Set Barcode = ThisWorkbook.Sheets("Sheet1").Range("B2")           ' 循环遍历所有条形码     Do Until Barcode.Value = ""         ' 将条形码代码复制到剪贴板         Code = Barcode.Value         Application.CutCopyMode = False         Barcode.Copy                   ' 创建EAN-13条形码         With ActiveSheet.Pictures.Insert("https://barcode.io/barcode-generator-ean13.php?code=" & Code & "&style=1&size=300&type=png")             ' 将条形码保存在相应的单元格中             .Top = Barcode.Offset(0, 1).Top             .Left = Barcode.Offset(0, 1).Left             .ShapeRange.LockAspectRatio = msoFalse             .ShapeRange.Width = Barcode.Width             .ShapeRange.Height = Barcode.Height         End With                   ' 下一个条形码         Set Barcode = Barcode.Offset(1, 0)     Loop End Sub

indusrain

用Barcode Studio  这个就可以批量生成条码 要么用excel的插件 方方格子

钱途迷茫

senmsenm2010 发表于 2023-9-8 16:26
[mw_shl_code=asm,true]Sub GenerateBarcodes()
    Dim Barcode As Range
    Dim Code As String

能帮我封装成excel形式的吗，这样用不好，vba刚接触

zpy2

https://club.excelhome.net/threa ... tml?_dsign=2c368ce3

wyl0205

随便找个条码打印软件导入进去就行，如果字体不对，Excel生成的有的识别不了

钱途迷茫

indusrain 发表于 2023-9-8 16:30
用Barcode Studio  这个就可以批量生成条码 要么用excel的插件 方方格子

方方格子有具体的步骤吗，我安装上了，没有找到在哪里生成条形码

lengbingling

链接: https://pan.baidu.com/s/1OIrNJpXY4MaRgLszbOomIw?pwd=wh1k 提取码: wh1k 复制这段内容后打开百度网盘手机App，操作更方便哦
--来自百度网盘超级会员v8的分享

下载后,里面有源代码,打印模块有点问题,

钱途迷茫

lengbingling 发表于 2023-9-9 15:56
链接: https://pan.baidu.com/s/1OIrNJpXY4MaRgLszbOomIw?pwd=wh1k 提取码: wh1k 复制这段内容后打开百度网 ...

感谢。。