Excel 如何在EXCEL中批量的自动生成条形码

2020-10-10 科技 157阅读

条形码 (barcode)是将宽度不等的多个黑条和空白,按照一定的编码规则排列,用以表达一组信息的图形标识符。在商场中的商品上都有条形码,用扫码器或者扫码软件对其扫描就能获得该商品的相关信息。

以下步骤介绍如何在excel中批量自动生成条形码:

1、添加开发工具

点击【文件】→【选项】→【自定义功能区】;在该面板上勾选主选项卡中的【开发工具】栏。

2、插入条形码

点击刚刚添加到主选项卡中的【开发工具】→【插入】;选择ActiveX控件栏右下角的【其他控件】按钮

3、   在弹出的【其他控件】对话框中选择Microsoft Barcode Control 15.0;然后点击确定;此时鼠标变为一个十字光标

4、   接着用鼠标在屏幕上拖动就会出现一个系统默认的条形码,如图所示:

5、编辑条形码

右键点击条形码,在弹出的菜单中选择Microsoft Barcode Control 15.0对象→属性;在弹出的属性对话框中样式选择7-code-128;如图所示

6、 小编把我想要条形码表示的信息“999999999”输入A10单元格中;接着右键点击条形码;选择【属性】,在弹出的【属性】对话框中的Linkecell栏中输入a10;这时我们会发现条形码变为我想要的形式了。

条形码制作完成,批量制作还有步骤:

工具:条形码与Excel报表.Table。

该文件包括两个表,分别是SaleOrder(订单)和SaleOrderDetail(订单明细),希望用Excel报表打印订单,其中Lot列以条形码的形式打印:

1、首先在设计Excel报表模板的时候,如下图所示将Lot列的内容设置为: [&&BarCode.gif,2,2,60,20]

2、最后将BuildDetail事件代码设置为:

If e.Book.TempLate = "SalesInvoice" Then
If e.region = "SaleOrderDetail" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("Lot") Then '如果是空行或者Lot列为空
Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
img.Save(ProjectPath & "Images\BarCode.gif")
Else '否则生成条形码图片
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = e.DataRow("Lot")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
End If
End If
End If

提示:

1、上面用于生成空白图片的代码涉及Foxtable之外的知识,只需套用即可,无需刻意理解。
2、BarCodeBuilder会在条形码这一章专门讲述。

声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com