neonabi / 我的圖書館 / 如何在Excel中制作條形碼

0 0

   

如何在Excel中制作條形碼

2011-09-22  neonabi
如何在Excel中制作條形碼
作者:admin 文章來源:本站原創 點擊數: 11927 更新時間:2009-9-12 8:02:54
 

    在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單元格中的條形碼數字改變后,將工作表中所有條形碼控件的高度改變后再還原,以實現打印時自動更新。

    本站是提供個人知識管理的網絡存儲空間,所有內容均由用戶發布,不代表本站觀點。如發現有害或侵權內容,請點擊這里 或 撥打24小時舉報電話:4000070609 與我們聯系。

    猜你喜歡

    0條評論

    發表

    請遵守用戶 評論公約

    類似文章
    喜歡該文的人也喜歡 更多

    雷竞技电竞