Excel 如何在EXCEL中批量的自动生成条形码
条形码 (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会在条形码这一章专门讲述。
博思aippt
2024-07-20 广告
