excel中如何批量将文本内容生成条形码，便于扫描？-office 条码生成,怎样生成条形码

目前最短的百公式
=RIGHT(SUM(LEFT($A$1,{0,1}+{1;3;5;7;9;11})*{9,7}))

还有一度个长一个字知符的
=RIGHT(SUM(MID($A$1,{0,1}+{1;3;5;7;9;11},1)*{9,7}))

更多道的请参见 参考版资料权链接

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

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

3、上面用于生成空白图片的代码涉及Foxtable之外的知识，大家只需套用即可，无需刻意理解。 

你可以下载条形码字体，网上很百多网站都有各种各样度的条形码字体。
例如：A列是您的数据，那么你可以将问B列转换为条形码字体，B列可以用公答式“=CONCATENATE("*",A1,"*")”，再将内公式拖动，生成的条形码就可用。
我们一直容就是这样操作的。

条形码 (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列的e79fa5e98193e78988e69d83363内容设置为: [&&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会在条形码这一章专门讲述。