表格中如何快速批量制作条形码和二维

　　生产企业,销售企业,产品ID和信息以条形码的形式记录,方便机器读取,现在又多了二维码,我们又习惯用excel处理数据,那能否用excel批量生成二维码和条码呢,答案是肯定的,这里介绍一个excel条码机二维码函数库的用法,顺便加上我写的一段vba代码来达到批量生成的效果,希望大家能够用得上!
　　私信回复05571即可获得代码文件
　　这里还有视频讲解地址,图文没看明白的同学可以看视频讲解http://toutiao.com/item/6520899925906031111/
　　动图展示效果
　　批量生成条形码二维码
　　第一步 下载 EXCEL API 网络函数库
　　搜索EXCEL API 网络函数库,可看到下载地址,按照提示下载安装,然后在excel加载项里启用
　　excelapinet add-in
　　第二步 在表格对应位置写条形码和二维码公式
　　第三步 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
　　第四步 运行宏
　　回到表格界面,选中写入了条形码和二维码公式的单元格区域,alt+F8,运行宏&lt;批量生成二维码或条形码&gt; 就可看到依次批量生成了二维码和条形码<!--批量生成二维码或条形码-->