Cách tạo mã QR Code bằng VBA trong Excel
Giới thiệu: Trong kỷ nguyên số, QR Code ngày càng trở nên phổ biến trong nhiều lĩnh vực: từ thanh toán điện tử, marketing, đăng nhập tài khoản cho đến quản lý kho. Trong bài viết này, bạn sẽ học cách tạo mã QR Code trực tiếp trong Excel bằng VBA, mà không cần cài đặt phần mềm ngoài.
Như các bạn đã thấy, QR CODE đang dần thay thế các loại mã số, mã vạch trong các thanh toán điện tử, cũng như các đăng nhập, xác nhận tài khoản hay đăng ký sản phẩm, thương hiệu…
Với Microsoft Excel, bạn có thể tạo và sử dụng QR CODE để hỗ trợ công việc của mình. Ở trong bài đăng này, thì mình có chia sẻ với các bạn một chức năng mới cho bạn thấy bạn có thể tạo mã QR hoặc Mã vạch bằng mã VBA dễ dàng, nhanh chóng, đơn giản mà không cần phải cài thêm phần mềm hay sử dụng thêm công cụ nào khác nào. Và bạn có thể quét hoặc in nó ra để phục vụ cho công việc của mình. Đối với bài viết này, tôi sẽ chỉ cho bạn cách tạo mã QR bằng cách sử dụng mã Ứng dụng Visual Basic (VBA) với Google API. Lưu ý rằng máy tính của bạn phải được kết nối internet trước khi tạo vì Google API tạo mã QR trực tuyến cho bạn.
Tạo mã QR Code bằng mã VBA trong Excel
Đầu tiên bạn mở ứng dụng Excel của bạn lên. Tại đây bạn Thêm văn bản của bạn, nhập mã số hoặc URL, hay bất cứ nội dung nào mà bạn cần tạo mã QR CODE.
Mở Tab Developer > chọn Trình soạn thảo Visual Basic từ nhóm Code hoặc bạn cũng có thể nhấn tổ hợp phím Alt + F11 để mở. Nhấn vào Insert > chọn Module để tạo mô-đun và sau khi tạo mô-đun để bạn có thể viết mã, hãy tạo một hàm. Hãy nhập đoạn code sau:
Function Pic_QR(qr_val As String)
Dim URL As String
Dim STarget As Range
Set STarget = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&&cht=qr&chl=" & qr_val
On Error Resume Next
ActiveSheet.Pictures("My_QR_CODE_" & STarget.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "My_QR_CODE_" & STarget.Address(False, False)
.Left = STarget.Left + 10
.Top = STarget.Top + 10
End With
Pic_QR = ""
End Function
Sau khi viết mã xong, bạn quay trở lại Workbook Excel và gọi hàm rồi nhấn phím Enter.
Kết quả bạn sẽ thấy mã QR xuất hiện như thế này.
Bạn có thể lưu lại mã QR Code này bằng cách chụp ảnh màn hình máy tính và Crop nó cho phù hợp với kích thước mà bạn mong muốn là xong rồi.
Cách quét mã QR code để hiện kết quả
Đối với điện thoại iPhone: Nếu bạn đang dùng điện thoại iPhone thì bạn có thể quét mã QR CODE này một cách dễ dàng mà không cần phải dùng công cụ gì cả.
Bạn mở Camera lên > sau đó hướng vào QR CODE để quét, khi đó sẽ hiện ra kết quả ngay.
Có rất nhiều ứng dụng hỗ trợ quét QR CODE. Tuy nhiên mình sẽ hướng dẫn các bạn sử dụng ứng dụng Zalo để quét, vì đây là ứng dụng được sử dụng khá phổ biến ở Việt Nam.
Cách thực hiện: Bạn mở ứng dụng Zalo trên Smartphone của bạn > chọn biểu tượng QR CODE ở phía trên bên phải màn hình (xem hình phía dưới).
Lúc này trình quét mã QR code xuất hiện > bạn chỉ việc hướng Camera vào mã QR để Smartphone tự động nhận diện và trả về kết quả tại hộp thoại Thông báo là xong.
3 Ví dụ ứng dụng thực tế
Ví dụ 1: Quản lý sản phẩm
Tạo mã QR chứa thông tin sản phẩm (mã SKU, giá, hạn sử dụng) để dán nhãn trên bao bì.
Ví dụ 2: Chia sẻ link nhanh
Tạo mã QR chứa đường dẫn đến file Google Drive để chia sẻ nhanh cho đồng nghiệp.
Ví dụ 3: Check-in sự kiện
Tạo mã QR cho từng người tham dự để quét khi vào cửa, giúp quản lý khách mời hiệu quả.
chs=150x150 thành kích thước mong muốn.Case Study: Doanh nghiệp sử dụng QR Code
Một công ty bán lẻ đã ứng dụng VBA để tạo hàng nghìn mã QR dán trên sản phẩm. Khi khách hàng quét, họ nhận được thông tin sản phẩm, hướng dẫn sử dụng và cả khuyến mãi. Điều này giúp tăng doanh số 20% chỉ sau 3 tháng.
Kết luận
Bằng VBA trong Excel, bạn hoàn toàn có thể tự động tạo QR Code nhanh chóng, tiết kiệm chi phí và tích hợp ngay vào công việc. Hãy áp dụng ngay để tối ưu hóa quy trình làm việc của bạn.
Câu hỏi thường gặp (FAQ)
1. Select Case khác gì If...ElseIf?
👉 Select Case gọn gàng hơn khi có nhiều điều kiện rẽ nhánh.
2. Có thể dùng điều kiện logic phức tạp trong Select Case không?
👉 Có, bạn có thể dùng Case Is > 10 hoặc Case 1 To 5.
3. VBA có hỗ trợ Case nhảy nhiều giá trị không?
👉 Có, ví dụ: Case 2, 3, 4.