Nếu bạn thường xuyên đi mua sắm thì có thể để ý ở trên bao bì sản phẩm hay để một hình ảnh mà người ta gọi là mã vạch, dùng để tính tiền, tra cứu thông tin hàng hóa, chống hàng giả....vậy ý nghĩa của nó như thế nào, cách tạo ra nó, với công việc văn phòng thì ứng dụng nó như thế nào, tất cả những điều đó các bạn sẽ được giới thiệu dưới đây.
Trước khi đi vào thủ thuật, chúng ta cũng nên tìm hiểu qua các khái niệm cơ bản luôn, khỏi mất công đi tìm ở nơi khác.
#1. Barcode Là Gì?
Barcode là tên gọi của tiếng Anh và khi dịch ra tiếng Việt được gọi là Mã Vạch, và các thông tin có trong barcode sẽ được mã hóa bằng cách hình ảnh, đường kẻ dọc, và khi muốn xem thông tin chúng ta sẽ dùng máy để đọc, hoặc dùng smarphone để đọcbarcode.
#2. Có Mấy Loại Barcode.
Có hai loại barcode và các bạn có thể quan sát ở ví dụ bên dưới, chúng ta không tìm hiểu rõ mỗi loại có các dụng gì vì ở bài viết này không phải nói về sản phẩm trên thị trường, mà chỉ nói về ứng dụng nó thế nào cho dân văn phòng mà thôi.
#3. Cách Tạo Và Đọc Barcode.
➤Có rất nhiều cách tạo ra barcode, có thể sử dụng website tạo online, hoặc dùng phần mềm, nhưng ở bài viết này chúng ta sẽ tạo từ excel bằng code vba.
➤Cách đọc barcode thì rất đơn giản, bạn có smartphone chỉ cần tải app đọc barcode về và chĩa thẳng vào hình barcode đó là thông tin sẽ hiển thị.
#4. Cách Tạo Barcode Bằng Excel.
➤ Cách Tạo Barcode Ma Trận Hay Còn Gọi Là QR Code.
Đầu tiên mở file excel lên. Sau đó vẽ một cái hình bất kỳ bạn muốn.
Sau đó Edit Text vào, cài này thì tùy, không điền cũng chả sao. Nhưng điền để còn biết nó là cái nào.
Sau đó click phải vào hình vừa tạo và chọn Assign Macro
Đặt tên là INSERT_QRCODE và nhấn New
Copy đoạn code bên dưới và dán vào khung soạn thảo sau đó tắt nó đi.
Sub INSERT_QRCODE()
Const BarcodeWidth As Integer = 156
Dim ws As Worksheet, WdApp
Set ws = ActiveSheet
Set WdApp = CreateObject("Word.Application")
With WdApp.Documents.Add
.PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
'.Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " CODE39 \d \t", PreserveFormatting:=False).Copy
.Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " QR \q 3", PreserveFormatting:=False).Copy
End With
ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
WdApp.Quit SaveChanges:=False
Set WdApp = Nothing
End Sub
Sau đó quay lại file excel, bạn gõ nội dung mà bạn muốn tạo QR Code vào một ô bất kỳ, sau đó nhấn vào hình mà bạn vẽ lúc nãy.
QR Code ngay lập tức được tạo, hãy lấy điện thoại của bạn để đọc xem nội dung đúng không nhé.
Muốn lưu file này lại dùng cho những lần kế tiếp thì hãy chọn kiểu file là Excel Macro-Enabled Workbook
Lúc này file được lưu có hình dạng như thế này.
➤ Cách Tạo BarCode Dọc.
Tương tự cách làm như trên các bạn cũng có thể tạo ra BarCode dạng dọc bằng Code bên dưới.
Sub INSERT_BARCODE()
Const BarcodeWidth As Integer = 156
Dim ws As Worksheet, WdApp
Set ws = ActiveSheet
Set WdApp = CreateObject("Word.Application")
With WdApp.Documents.Add
.PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
.Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " CODE39 \d \t", PreserveFormatting:=False).Copy
'.Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " QR \q 3", PreserveFormatting:=False).Copy
End With
ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
WdApp.Quit SaveChanges:=False
Set WdApp = Nothing
End Sub
#5. Ứng Dụng QR Code Trong Văn Phòng.
Tùy mỗi người sẽ có nhiều cách ứng dụng khác nhau, còn với cá nhân người viết bài này thì hay tạo ra các QR Code chứa thông tin số điện thoại, tên công ty, mã số thuế...rồi chèn vào các báo cáo, gửi mail cho chuyên nghiệp và bào mật, tránh thông tin bị trôi trên môi trường internet nhiều.
Như vậy là chúng ta vừa tìm hiểu cách tạo ra mã vạch một cách độc đáo bằng excel rồi, nếu thấy hay thì like và share bài viết để mọi người cùng xem nhé.
