Hướng dẫn cách tạo mã QR code trên Excel bằng VBA

Như các bạn đều biết rồi đấy, QR CODE đang dần thay thế những 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ý danh mục, thương hiệu….

Ở trong bài viết lần trước thì mình có chia sẻ với các bạn cách tạo mã vạch bằng Word hoặc Excel cực kỳ nhanh chóng, đơn giản mà không cần phải cài thêm phần mềm hay dùng thêm công cụ nào khác rồi.

Để nối tiếp cho chủ đề đang còn dang dở đó thì ngày hôm nay mình xin được tiếp tục chia sẻ tới các bạn cách tạo mã QR trên Excel bằng Code VBA nha. Thủ thuật này sẽ hỗ trợ các bạn trong việc mã hoá các ký tự hay các kết nối Website một cách đơn giản hơn, bảo mật hơn…

Đọc thêm:

viết chỉ số trên trong excel

đếm số lần lặp lại trong excel

lập trình vba trong excel 2007

phá mật khẩu file excel

hàm value trong excel là gì

tắt mở chế độ xem trước preview pane trong windows

chèn ảnh vào excel bằng vba

cài đặt tiếng việt cho office 2013

cách lấy dữ liệu từ file excel này sang file excel khác

#1. Cách tạo mã QR bằng Excel

+ Bước 1: Đầu tiên bạn mở ứng dụng Excel của bạn lên. Tại đây 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

=> Rồi mở tab Developer => và chọn Visual Basic. Hoặc bạn khả năng dùng tổ hợp phím Alt + F11 để mở trình VBA soạn code cho nhanh.

+ Bước 2: Hộp thoại Microsoft Visual Basic for Application hiện lên. Tại đây bạn mở tab Insert => và chọn Module.

+ Bước 3: Sau đó bạn hãy copy đoạn Code bên dưới….

Private Function pic_QR(ByVal QR_Value As String, ByVal Target As Range, Optional ByVal Size As Long = 150) As Shape
Dim sURL As String
On Error Resume Next
If Len(QR_Value) Then
sURL = “https://chart.googleapis.com/chart?chs=” & Size & “x” & Size & “&cht=qr&chl=”
sURL = sURL & QR_Value
Set pic_QR = Target.Parent.Shapes.AddPicture(sURL, True, True, Target.Left, Target.Top, Size, Size)
End If
End Function
Sub Main()
Dim shp As Shape
Set shp = pic_QR(Range(“A2“).Value, ActiveCell)
End Sub

….. Và Paste vào hộp thoại Module1 (Code) như hình bên dưới => Rồi chỉnh ô tham chiếu đối tượng mã QR tại vị trí ô bạn đã nhập dữ liệu => sau đó nhấn Run để thực thi.

// Các bạn nhớ thay ô A2 bằng vị trí tương ứng của bạn nha.

Vâng, ngay sau khi bạn nhấn Run để chạy thì khi quay trở lại file Excel đó thì bạn sẽ thấy một mã QC xuất hiện như thế này.

+ Bước 4: Bạn khả năng 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.

#2. Cách tạo mã QR code trực tuyến

Ngoài cách tạo mã QR bằng Excel này ra thì dùng công cụ trực tuyến để tạo QR CODE cũng không phải là một ý tưởng tồi.

+ Bước 1: Bạn khả năng truy cập vào kết nối tại đây. Và chọn vào tab QR Code => nhập đoạn ký tự/ nội dung/ hoặc URL… bạn cần Convert vào ô Donnees.

+ Bước 2: Sau khi nhập xong mã tại ô Donnees => sau đó bạn click Sauter để chuyển đổi.

+ Bước 3: Ngay lập tức ta sẽ có được kết quả mã QR như hình bên dưới. Bạn khả năng nhấn vào nút Télécharger để tải mã QR này về máy tính một cách đơn giản.

#3. Cách đọc/ quét mã QR code để hiện kết quả

Tips dành cho iPhone: Nếu bạn đang dùng điện thoại iPhone thì bạn khả năng quét mã QR CODE này một cách cực kỳ đơn giản mà chả cần phải dùng công cụ gì cả.

Bạn mở Camera ra => và quét vào QR CODE đó là sẽ ra kết quả ngay thôi ????

_____________________________

Có rất nhiều ứng dụng hỗ trợ quét QR CODE. mặc khác mình sẽ hướng dẫn các bạn dùng ngay ứng dụng Zalo để quét, vì mình thấy ứng dụng Zalo được dùng khá thường nhật ở Việt Nam.

Thực hiện: Bạn mở ứng dụng Zalo trên Smartphone lên => kích chọn icon 3 dấu chấm => rồi chọn icon QR CODE như hình dưới.

Lúc này trình quét mã QR code xuất hiện => bạn chỉ việc quay 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.

Ví dụ như hình bên dưới, ta có được kết quả trong một cửa sổ pop-up nổi.

#4. Lời Kết

Okay, như vậy là mình vừa hướng dẫn rất chi tiết với các bạn cách tạo mã QR CODE trên Excel, cũng như cách tạo QR CODE trực tuyến một cách vô cùng đơn giản rồi nha.

Đến đây thì bài hướng dẫn của mình cũng xin được tạm dừng. Hi vọng thủ thuật này sẻ hữu ích với các bạn.

Chúc các bạn thành công !

CTV: Lương Trung – Hocviencanboxd.edu.vn