如何在Excel中制作條形碼

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

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

???

??? 2.這時(shí)鼠標(biāo)指針變成細(xì)十字形，在工作表中拖動鼠標(biāo)繪制一個條形碼控件并調(diào)整其位置和大小。

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

??????

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

???

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

???

??? 4.完成屬性設(shè)置后關(guān)閉該對話框。單擊“控件工具箱”中的“退出設(shè)計(jì)模式”按鈕。這一步很重要，否則當(dāng)A1單元格中的條形碼數(shù)字改變后，條形碼無法自動更新。

???

??? 這時(shí)，“控件工具箱”中的“退出設(shè)計(jì)模式”按鈕變成了“設(shè)計(jì)模式”按鈕，條形碼控件也變成不可選擇的狀態(tài)，如果要修改條形碼控件屬性，可以再次單擊“控件工具箱”中的“設(shè)計(jì)模式”按鈕。

??? 如果出現(xiàn)當(dāng)A1單元格中條形碼數(shù)字改變后，條形碼控件變成空白，可能是A1單元格中的條形碼數(shù)字不正確所致，例如，當(dāng)使用默認(rèn)的EAN－13條碼時(shí)，如果其中包含字母或長度不為13位時(shí)，條形碼控件就會變成空白。

??? 5.打印條形碼。

??? 打印條形碼會出現(xiàn)不能自動刷新的問題，即當(dāng)更改A1單元格中的條形碼數(shù)字后，條形碼會進(jìn)行相應(yīng)更改，但打印預(yù)覽還是上一次的條形碼。這個問題可能是該控件的一個Bug，解決的方法有下面兩種：

??? 方法一：單擊菜單“文件→頁面設(shè)置→打印預(yù)覽”，這時(shí)看到的就是更新后的條形碼。

??? 方法二：使用VBA代碼。按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊該工作簿中的當(dāng)前工作表名稱，在右側(cè)代碼窗口中輸入下列代碼：

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”事件，當(dāng)A1單元格中的條形碼數(shù)字改變后，將工作表中所有條形碼控件的高度改變后再還原，以實(shí)現(xiàn)打印時(shí)自動更新。