如何在Excel中制作條形碼

在Excel中制作條形碼可以用字體和控件的方法，本文介紹在Excel 2003中用Excel內置的“Microsoft BarCode 控件 9.0”控件來制作條形碼，Excel 2007中的制作方法大同小異。

??? 1.鼠標在菜單欄上右擊，在彈出的快捷菜單中選擇“控件工具箱”。在彈出的“控件工具欄”中單擊“其他控件”，然后在列表中選擇“Microsoft BarCode 控件 9.0”。

???

??? 2.這時鼠標指針變成細十字形，在工作表中拖動鼠標繪制一個條形碼控件并調整其位置和大小。

??? 3.我們可以將該條形碼控件與某個單元格形成鏈接，在這個單元格中改變條形碼數字后可以生成相應的條形碼，例如讓條形碼控件鏈接到A1單元格。在A1單元格中輸入條形碼數字，然后右擊條形碼控件，在彈出的快捷菜單中選擇“屬性”。

??????

???彈出屬性對話框 ，在“LinkedCell”屬性右側輸入單元格地址，此處為“A1”，回車后可以看到其“Value”屬性變成了A1單元格中的數值。

???

??? 3.在上述“屬性”窗口中可以修改全部控件屬性，但不夠直觀。還可以在“Microsoft BarCode 控件 9.0 屬性”對話框中來修改屬性。關閉上述“屬性”窗口，再次右擊條形碼控件，在彈出的快捷菜單中選擇“Microsoft BarCode 控件 9.0 對象→屬性”，彈出“Microsoft BarCode 控件 9.0 屬性”對話框，可以根據需要修改其屬性，例如條形碼的方向、是否需要進行有效性驗證等。

???

??? 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.OLEObjects
??? If LCase(barcode.Name) Like "barcodectrl*" Then
??????? With barcode
??????? m = .Height
??????? .Height = m - 1
??????? .Height = m
??????? End With
??? End If
Next
End Sub

??? 上述代碼利用了“Worksheet_Change”事件，當A1單元格中的條形碼數字改變后，將工作表中所有條形碼控件的高度改變后再還原，以實現打印時自動更新。