vba条形码写入信息

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

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

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

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

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

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

2、我想问下扫描枪在EXCEL表扫描条码时录入数据 用VBA怎么实现几个功能

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub
Dim sh1 As Worksheet
Set sh1 = Target.Worksheet
Dim tempvalue As String
tempvalue = Target.Value
Dim F As WorksheetFunction
Set F = WorksheetFunction
If F.CountIf(sh1.UsedRange, tempvalue) > 1 Then
Target = ""
Target.Select
End If
End Sub

上面代码拷贝到 ThisWorkBook 模块里专面属

3、用excel制作条码，可以实现随着某单元格内容改变而变，最好有VBA实现。感谢啊！

点击开发工具选项卡。（如果没有。鼠标右键上方功能区，自定义功能区，选内择容开发工具，打上勾，点确定，就出来了。）

然后点击插入--选择其他控件

然后选择:Microsoft BarCode Control 15.0，不同的office 版本不一样。注意office 2010貌似是Microsoft BarCodeControl14.0

插入了一个条形码控件。

选中它，鼠标右键--点Microsoft BarCode Control 15.0对象--属性

在弹出来的属性对话框选择：6-code-39

接下来鼠标再次右键--属性，在linkedcell 的后面输入A1

这样条形码就制作好了

你在A1输入什么，条形码就自动根据A1的内容变了。

下面是附件。

4、在线求答案，excel vba写了个条码录入的程序卡位数和重复等，目前基本功能已经实现。

你写的代码中是不是循环次数是固定成500了？循环结束条件改成循环次数为最后一行写有数据的行番号试试。

5、Excel，VBA窗体条形码控件，说明：

增加一句，示例代码如下：

6、Excel中怎么用VBA实现 code128 auto条码

vba寄生于office，在office中BarCode Control 9.0只有code128，想实现code128auto，除非有code128auto对应的控件。

7、有没有一种条码识别软件，可以实现条码扫描后触发打印的功能？

你的需求不是很明确，你的数据库和扫描条码有什么关系？
你是扫描一个条码后，这个条码还要到你的EXCEL里面检索出对应的信息，必须这个条码对应的地址，然后调出这个条码和地址再输出到打印机打印条码和地址信息，是这个意思不？
如果是这个需求，解决办法很多了，随便说两个吧：
1，购买可编程键盘。这种设备一般条码机的供应商都有对应的产品，这种设备可以对他编程，你可以把你的EXCEL中 条码与地址对应表通过编程写入键盘，然后触发扫描。这种方式的优点是可以脱机使用，不需要有电脑，直接扫描枪串口接到键盘上，键盘再接打印机，扫描一个打印一个。
2，EXCEL宏命令。自己通过VBA编程直接做成宏，实现EXCEL表输入条码后自动检索列后输出打印标签。
当然，上面这两种方法都是最经济实惠的，但是需要你具备相当专业的技巧。最通用的做法还是直接写个打印软件方便些吧，找专门的人给你开发个打印软件，接收条码枪数据，触发打印动作。