EXCEL制作条形码.docx

在 Excel 中制作条形码可以用字体和控件的方法，本文介绍在 Excel 2003 中用 Excel 内置的“ Microsoft BarCode 控 件 9.0 ”控件来制作条形码， Excel 2007 中的制作方法大同小异1. 鼠标在菜单栏上右击，在弹出的快捷菜单中选择“控件工具箱”在弹出的“控件工具栏”中单击“其他控 件”，然后在列表中选择“Microsoft BarCode 控件 9.0” Microsoft BarCode 控件 9.0 MSBCODE9.OCX说明：这个是Microsoft OFFICE的条形码控件，用来插入自定义条形码需要用的简化的Microsoft OFFICE可能缺少这个 控件；1. 把MSBCODE9.RAR下载，解压打开2. 把 MSBCODE9.OCX 复制到路径：C:\WINDOWS\system323. 开始一一运行一一输入一一 regsvr32 MSBCODE9.OCX 一一弹出注册成功就OKAbF7 [abl <三i列 L 工控件丁具箱Microsoft BarCode:辽 ClassHHCtrl ObjectHtClassIIS证书向写Ins + ：=LllErLgi neC tl Obj e«:tJVi gw BliDocVi ew Class KooFlayer Contwl Li st Fad classLogUI控件Macromedi ：=l Flash Factory Obj ect Mi 亡itowoft jkgEnt Control 2. 0111亍控件盂巧天】2. 这时鼠标指针变成细十字形，在工作表中拖动鼠标绘制一个条形码控件并调整其位置和大小。

3. 我们可以将该条形码控件与某个单元格形成链接，在这个单元格中改变条形码数字后可以生成相应的条形码 例如让条形码控件链接到 A1 单元格在 A1 单元格中输入条形码数字，然后右击条形码控件，在弹出的快捷菜单中 选择“属性”弹出属性对话框，在“LinkedCell”属性右侧输入单元格地址，此处为“Al”，回车后可以看到其“Value”属 性变成了 A1 单元格中的数值3.在上述“属性”窗口中可以修改全部控件属性，但不够直观还可以在“ficrosoft BarCode控件9.0属性” 对话框中来修改属性关闭上述“属性”窗口，再次右击条形码控件，在弹出的快捷菜单中选择“Microsoft BarCode 控件9.0对象一属性”，弹出“Microsoft BarCode控件9.0属性”对话框，可以根据需要修改其属性，例如条 形码的方向、是否需要进行有效性验证等子样式QJ): 有效性验证(V): 线条宽度(V: 方向®:xMicrosoft TJarCade 控拌 9.D 屈性常规确定 | 取消 | 应用® | 帮助 ]样式⑨门竺 〒卡4. 完成属性设置后关闭该对话框单击“控件工具箱”中的“退出设计模式”按钮。

这一步很重要，否则当 A1 单元格中的条形码数字改变后，条形码无法自动更新这时，“控件工具箱”中的“退出设计模式”按钮变成了“设计模式”按钮，条形码控件也变成不可选择的状 态，如果要修改条形码控件属性，可以再次单击“控件工具箱”中的“设计模式”按钮如果出现当 A1 单元格中条形码数字改变后，条形码控件变成空白，可能是 A1 单元格中的条形码数字不正确所 致，例如，当使用默认的 EAN－13 条码时，如果其中包含字母或长度不为 13 位时，条形码控件就会变成空白5. 打印条形码打印条形码会出现不能自动刷新的问题，即当更改A1单元格中的条形码数字后，条形码会进行相应更改，但打 印预览还是上一次的条形码这个问题可能是该控件的一个Bug，解决的方法有下面两种：方法一：单击菜单“文件一页面设置一打印预览”，这时看到的就是更新后的条形码方法二：使用VBA代码按Alt+F11,打开VBA编辑器，在“工程”窗口中双击该工作簿中的当前工作表名称, 在右侧代码窗口中输入下列代码：Private Sub Worksheet_Change(ByVal Target As Range)For Each barcode In ActiveSheet.OLEObjectsIf LCase(barcode.Name) Like "barcodectrl*" ThenWith barcode m = .Height.Height = m - 1.Height = mEnd WithEnd IfNextEnd Sub上述代码利用了 “Worksheet_Change”事件，当A1单元格中的条形码数字改变后，将工作表中所有条形码控件 的高度改变后再还原，以实现打印时自动更新。