excel如何利用最简单的方法批量制作条形码？

office教程网 2023-04-20 17:49:00

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

在做仓储管理的时候发觉了一个很奇葩的问题，所有进货的瓷砖均没有相关的条码。这就意味着只能自己编码、生成条码然后粘贴。可找遍全网，虽然制作条码的工具很多，但是可以按模板批量打印的基本没有。因此，就想着用什么给他做一个条码制作，批量打印的东西。考虑了好几种开发方案，最后还是觉得杀鸡焉用牛刀，于是乎，果断的上了EXCEL。给他捣鼓出了。以下是截图：

1、输入编码自动生成二维码

2、生成批量打印模板

总结，最关键的还是这个生成批量打印模板这个过程，这里用到了循环输出方式。大致代码如下：

Sub make_plmt()
 On Error Resume Next
 Dim n As Integer
 Dim i As Integer
 Dim j As Integer
 Dim r As Integer
 Dim codewidth As Double
 Dim codeheight As Double
 codewdh = Sheet1.Shapes.Range(Array("BarCode")).Width
 codehet = Sheet1.Shapes.Range(Array("BarCode")).Height
 Application.ScreenUpdating = False
 
 '清空模板
 For Each ctrl In Sheet2.Shapes
 ctrl.Delete
 Next ctrl
 
 '复制生成的二维码
 Sheet1.Shapes.Range(Array("BarCode")).Select
 Selection.Copy
 Sheet2.Select
 Sheet2.Range("A1").Select
 
 '批量粘贴96个二维码到模板，这里可以换成动态数
 For i = 1 To 96
 ActiveSheet.Paste
 Next i
 
 '设置首行二维码位置，以便后面各列做对齐排列
 For j = 1 To 8
 Sheet2.Shapes.Range(Array("BarCodeCtrl" & j)).Select
 With Sheet2.Shapes("BarCodeCtrl" & j)
 .Top = 0
 .Left = (j - 1) * codewdh
 End With
 Next j
 
 '使用二层循环，设置第二行至尾行二维码位置
 '外层循环，设置首列二维码位置
 For k = 2 To 12
 n = 1   8 * (k - 1) 
 Sheet2.Shapes.Range(Array("BarCodeCtrl" & n)).Select
 With Sheet2.Shapes("BarCodeCtrl" & n)
 .Top = (k - 1) * codehet
 .Left = Sheet2.Shapes("BarCodeCtrl1").Left
 End With
 
 '内层循环，逐行设置二维码位置
 For r = n   1 To n   7
 With Sheet2.Shapes("BarCodeCtrl" & r)
 .Top = Sheet2.Shapes("BarCodeCtrl" & n).Top
 .Left = Sheet2.Shapes("BarCodeCtrl" & r - 1).Left   codewdh
 End With
 Next r
 Next k
 Sheet2.PageSetup.CenterHeader = Sheet1.Range("D3")
 Application.PrintCommunication = True 
 Application.ScreenUpdating = True
 If MsgBox("打印模板已生成！", vbOKOnly, "提示") = vbOK Then
 Sheet2.Activate
 End If 
End Sub