如何在Excel中製作條形碼

  作者:admin 文章來源:本站原創 點擊數: 11927 更新時間:2009-9-12 8:02:54

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

1.滑鼠在菜單欄上右擊,在彈出的快捷菜單中選擇「控件工具箱」。在彈出的「控件工具欄」中單擊「其他控件」,然後在列表中選擇「Microsoft BarCode 控件 9.0」。

如何在Excel中製作條形碼

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

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

如何在Excel中製作條形碼

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

如何在Excel中製作條形碼

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

如何在Excel中製作條形碼

4.完成屬性設置後關閉該對話框。單擊「控件工具箱」中的「退出設計模式」按鈕。這一步很重要,否則當A1單元格中的條形碼數字改變後,條形碼無法自動更新。

如何在Excel中製作條形碼

這時,「控件工具箱」中的「退出設計模式」按鈕變成了「設計模式」按鈕,條形碼控件也變成不可選擇的狀態,如果要修改條形碼控件屬性,可以再次單擊「控件工具箱」中的「設計模式」按鈕。

如果出現當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單元格中的條形碼數字改變後,將工作表中所有條形碼控件的高度改變後再還原,以做到列印時自動更新。