如何用VBA实现自动生成条形码？

首先在 B1 单元格内插入 BarCode 控件。如下图所示，选择 Microsoft BarCode Control xx.x 对象 → 属性：

在“样式”中下拉选择 7 - Code-128。然后点击确认。

然后再次选中这个条码控件，右击，选择 “属性”。如下图所示：

在属性窗口中，把 LinkedCell 的值设置成 A1 单元格（手动输入）。然后点击确定按钮即可：

经过这些步骤的设置以后，你只要修改 A1 单元格内的值，然后 B1 单元格内的条码自动跟随变化！

按Alt+F11进入VBA，插入一个模块，粘贴以下代码：

Sub 在条码表中插入150条记录()

For i = 1 To 150

'insert into 条码表(条码,批次) values('A000001','JJJ1-1')

CurrentDb.Execute ("insert into 条码表(条码,批次) values('A" &Right(CStr(1000000 + i), 6) &"','JJJ1-1')")

Next

End Sub

光标定位到“在条码表中插入150条记录()”，按F5执行这个过程。

先要下载一个控件qrmaker，下载的文件解压后，将QRMaker文件夹里的所有文件复制到c:windowssystem32下。通过“开始→运行”，在运行窗口里输入regsvr32c:windowssystem32QRmaker.ocx注册组件。

2.打开Excel，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”，切换到开发工具选项卡，单击VisualBasic打开VBA编辑器，选择“工具→引用→浏览”，找到c:windowssystem32QRMaker.ocx，关闭编辑器。

3.回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。

4.同时插入其他控件中的QRMakerControl，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件。

5.再次打开VBA编辑器，在左边找到模块1，双击后清空右边所有内容，输入以下代码：Subprint2d()DimQRString1AsString'定义变量QRString1=Sheet1.Range(\"A1\")'将A1单元格的值传递给

QRString1Sheet1.SelectSheet1.QRmaker1.AutoRedraw=ArOn'启用QRmaker的自动重画属性Sheet1.QRmaker1.InputData=QRString1'将QRString1的值传递给QRmaker1EndSub保存关闭VBA编辑器，回到Excel，单击Print2D按钮就可以将A1单元格的内容生成二维码。

制作完毕，就可以使用这个二维码了。

---