生产企业,销售企业,产品ID和信息以条形码的形式记录,方便机器读取,现在又多了二维码,我们又习惯用excel处理数据,那能否用excel批量生成二维码和条码呢,答案是肯定的,这里介绍一个excel条码机二维码函数库的用法,顺便加上我写的一段vba代码来达到批量生成的效果,希望大家能够用得上! 动图展示效果![](http://image109.360doc.com/DownloadImg/2020/11/0913/206883061_1_20201109015527368)
批量生成条形码二维码 第一步 下载 EXCEL API 网络函数库![](http://image109.360doc.com/DownloadImg/2020/11/0913/206883061_2_20201109015527852_wm)
excelapinet add-in 第二步 在表格对应位置写条形码和二维码公式![](http://image109.360doc.com/DownloadImg/2020/11/0913/206883061_3_20201109015527915_wm)
第三步 alt+f11 插入模块,粘贴下面代码Sub DelPicByRng(rng As Range) '删除指定单元格区域内的图片 Dim i As Integer Set shps = rng.Worksheet.Shapes For i = shps.Count To 1 Step -1 '倒序循环图片 If Not Intersect(shps(i).TopLeftCell, rng) Is Nothing Then '检测到图片位置与本区域重叠 则删除 shps(i).Delete End If Next i End Sub Sub 批量生成二维码或条形码() Dim e As Range For Each e In Selection e.Select DelPicByRng e e.FormulaLocal = e.FormulaLocal Next End Sub
第四步 运行宏
|