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
