欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > Excel专区 > Excel函数 > excel如何利用最简单的方法批量制作条形码?

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

时间:2020-04-07 20:34作者:admin来源:未知人气:1063我要评论(0)

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

以下是具体的制作步骤:

1、插入Microsoft BarCode Control控件。需要特别说明的是,不同版本的EXCEL该控件的版本可能会有不同。

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

 

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

 

2、调整控件单元格关联属性

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

 

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

 

3、调整控件对象属性,选择条码相关参数。如条码类型、条码数据修正参数、显示参数等。一般情况下,日常使用Cord-39足够应付日常使用。如需二维码,请选择QR Code.

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

 

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

 

4、使用方式,在关联单元格输入条码参数,即可自动动态生成对应条码。

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

 

5、如需设置控件格式,右键,选择“设置控件格式”即可。

以上过程非常简单,前后就是几分钟的事。

相关阅读 Excel有哪些常用的数学函数?​Excel取消表格中虚线的两种方法Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式,发给心仪的她/他Excel表格如何自动求和

文章评论
发表评论

热门文章 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均

最新文章 Excel有哪些常用的数学函数?​Excel取消表格中虚线的两种方法 Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦

人气排行 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解,条件统计重复值,告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式

盖楼回复X

(您的评论需要经过审核才能显示)