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表輸入條碼後自動檢索列後輸出列印標簽。
當然，上面這兩種方法都是最經濟實惠的，但是需要你具備相當專業的技巧。最通用的做法還是直接寫個列印軟體方便些吧，找專門的人給你開發個列印軟體，接收條碼槍數據，觸發列印動作。