Tạo mã vạch QR Code với Excel

1. Tạo mã vạch thông thường
   • Dùng Font Barcode (Đơn giản)
   • Dùng VBA để Tạo Mã Vạch (Tự động)
   • Sử dụng Hàm Google API (Dễ nhất)
2. Tạo mã vạch QRCode trong Excel
   • Sử dụng API
   • Dùng Add-in (Không cần VBA)
   • Sử dụng VBA để tạo QR Code (Tự động)

Dưới đây là hai cách phổ biến

1. Tạo mã vạch thông thường

Dùng Font Barcode (Đơn giản)

    Tải xuống font mã vạch như Code 39, Code 128 từ trang web miễn phí (ví dụ: IDAutomation Code 39).

    Link download font mã vạch: https://www.idautomation.com/downloads/IDAutomationCode39.zip

    Cài đặt font vào máy tính.

    Trong Excel, nhập mã số và định dạng bằng font barcode:

        Ví dụ: nhập *12345* (với Code 39, cần thêm * ở đầu và cuối).

        Chọn ô → Đổi font thành Code 39 hoặc Code 128.

    Excel sẽ hiển thị mã vạch.

Dùng VBA để Tạo Mã Vạch (Tự động)

    Mở Excel → Nhấn ALT + F11 để mở trình VBA.

    Vào Insert → Module, dán code sau:

Function Code128Barcode(myText As String) As String
    Dim i As Integer, checksum As Integer, result As String
    checksum = 104 ' Giá trị khởi đầu cho Code 128
    result = Chr(204) ' Ký tự Start cho Code 128

    For i = 1 To Len(myText)
        result = result & Mid(myText, i, 1)
        checksum = checksum + (Asc(Mid(myText, i, 1)) - 32) * i
    Next i

    checksum = (checksum Mod 103) + 32
    result = result & Chr(checksum) & Chr(206) ' Thêm checksum & Stop

    Code128Barcode = result
End Function

    Quay lại Excel, nhập mã số vào ô A1, rồi dùng công thức:

    =Code128Barcode(A1)

    Chọn ô → Đổi font sang Code 128.

2. Tạo mã vạch QRCode trong Excel

Sử dụng Hàm từ các web API (Dễ nhất)

Bạn có thể tạo mã QR Code trực tiếp trong Excel bằng cách sử dụng Google API.
Các bước thực hiện:

    Mở Excel, nhập dữ liệu cần tạo mã QR vào cột A (ví dụ: https://example.com ở ô A1).

    Trong ô B1, nhập công thức sau:

    =IMAGE("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & A1)

    Nhấn Enter, Excel sẽ hiển thị hình ảnh QR Code.

Lưu ý:

    Cách này yêu cầu máy có kết nối internet.

    Nếu Excel không hỗ trợ hàm IMAGE(), có thể chèn ảnh thủ công bằng cách copy đường link vào trình duyệt.

Dùng Add-in (Không cần VBA)

    Vào Insert → Get Add-ins.

    Tìm QR4Office → Nhấn Add để cài đặt.

    Chọn Add-in, nhập dữ liệu cần tạo QR Code.

    Chỉnh kích thước & màu sắc → Nhấn Insert.

Sử dụng VBA để tạo QR Code (Tự động)

    Nhấn ALT + F11 để mở trình VBA.

    Vào Insert → Module, dán code sau:

Sub GenerateQRCode()
    Dim QRText As String
    Dim URL As String
    Dim Cell As Range

    ' Duyệt qua từng ô có dữ liệu trong cột A
    For Each Cell In Range("A1:A10")
        If Cell.Value <> "" Then
            QRText = Cell.Value
            URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & QRText
            
            ' Thêm ảnh QR vào cột B
            ActiveSheet.Pictures.Insert(URL).Select
            With Selection.ShapeRange
                .LockAspectRatio = msoTrue
                .Left = Cell.Offset(0, 1).Left
                .Top = Cell.Top
                .Width = 70
                .Height = 70
            End With
        End If
    Next Cell
End Sub

    Chạy macro GenerateQRCode(), mã QR sẽ hiển thị ở cột B.

Tìm kiếm: