Bỏ qua nội dung chính

Làm thế nào để tạo mã qr dựa trên giá trị ô trong Excel?

Bạn có biết cách tạo mã QR dựa trên giá trị ô cụ thể trong Excel không? Bài viết này sẽ chỉ cho bạn một phương pháp để đạt được nó một cách chi tiết.

Tạo mã QR dựa trên giá trị ô với Kiểm soát mã vạch và mã VBA
Dễ dàng tạo nhiều mã QR hàng loạt dựa trên các giá trị ô bằng một công cụ tuyệt vời


Tạo mã QR dựa trên giá trị ô với Kiểm soát mã vạch và mã VBA

Kiểm soát mã vạch có thể giúp bạn nhanh chóng tạo mã QR dựa trên giá trị ô trong Excel. Hãy làm như sau.

1. Mở trang tính chứa giá trị ô mà bạn sẽ tạo Mã QR dựa trên đó.

2. nhấp chuột Nhà phát triển > Chèn > Điều khiển nhiều hơn. Xem ảnh chụp màn hình:

3. bên trong Kiểm soát nhiều hơn cửa sổ, kiểm tra Kiểm soát mã vạch của Microsoft 16.0 or Kiểm soát mã vạch của Microsoft 15.0.

4. Nếu bạn không tìm thấy Kiểm soát mã vạch trong cửa sổ Điều khiển khác hoặc Kiểm soát mã vạch không phải là 16.0 hoặc 15.0, bạn cần tải xuống tệp kiểm soát mã vạch bằng cách nhấp vào liên kết sau: tải xuống kiểm soát mã vạch. Nếu có Kiểm soát mã vạch 16.0 hoặc 15.0 trong cửa sổ Điều khiển khác của bạn, chỉ cần chuyển đến bên dưới bước 10.

Sau khi tải xuống tệp, hãy giải nén nó và sau đó cập nhật Kiểm soát mã vạch với kiểm soát mã vạch đã tải xuống trong Excel của bạn như sau.

5. Đóng tất cả các sổ làm việc Excel của bạn, đi tới Bắt đầu phần, tìm Excel ứng dụng và nhấp chuột phải vào nó, sau đó chọn Run as administrator từ menu ngữ cảnh. Xem ảnh chụp màn hình:

6. Trong phần mở đầu User Account Control hộp thoại, nhấp vào .

7. Sau đó, một sổ làm việc mới được tạo. Vui lòng bấm vào Nhà phát triển > Chèn > Điều khiển nhiều hơn. Xem ảnh chụp màn hình:

8. bên trong Kiểm soát nhiều hơn cửa sổ, nhấp Đăng ký tùy chỉnh , tìm và chọn một trong các tệp OCX mã qr đã tải xuống rồi nhấp vào Mở cái nút. Xem ảnh chụp màn hình:

9. Nhấp vào OK khi nó trả về Kiểm soát nhiều hơn để kết thúc Kiểm soát mã vạch được cập nhật. Sau đó, mở lại sổ làm việc chứa các giá trị ô mà bạn sẽ tạo Mã QR dựa trên đó.

10. Nhấp chuột phải vào tab trang tính và nhấp vào Mã Chế độ xem từ menu ngữ cảnh để mở Microsoft Visual Basic cho các ứng dụng cửa sổ. Sau đó sao chép và dán mã VAB bên dưới vào cửa sổ Mã. Và cuối cùng nhấn nút Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.

Mã VBA: Tạo mã QR trong Excel

Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

11. nhấp chuột Nhà phát triển > Chèn > Nút (Kiểm soát biểu mẫu) như ảnh chụp màn hình dưới đây.

12. Vẽ một nút vào trang tính hiện tại. Trong cửa sổ bật lên Chỉ định Macro hộp thoại, chọn đặtQR trong hộp và sau đó nhấp vào OK .

13. Tắt Chế độ thiết kế bằng cách nhấp chuột Nhà phát triển > Chế độ thiết kế.

14. Nhấp vào nút, trong phần mở Kutools cho Excel hộp thoại, chọn ô bạn sẽ tạo Mã QR dựa trên và nhấp vào OK.

15. Trong giây Kutools cho Excel , chọn một ô để đặt Mã QR. Xem ảnh chụp màn hình:

Sau đó, Mã QR sẽ được chèn vào ô được chỉ định ngay lập tức. Lặp lại bước 14 đến bước 15 để hoàn tất tất cả Mã QR đã tạo. Xem ảnh chụp màn hình:


Dễ dàng tạo nhiều mã QR hàng loạt dựa trên các giá trị ô bằng một công cụ tuyệt vời

Thành thật mà nói, phương pháp trên không dễ xử lý vì nó có hạn chế riêng. Đây rất khuyến khích Chèn mã QR tính năng của Kutools cho Excel. Tính năng này có thể giúp bạn nhanh chóng chèn mã QR hàng loạt dựa trên các giá trị ô được chỉ định trong Excel chỉ với một vài cú nhấp chuột. Hãy làm như sau để hoàn thành.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Đầu tiên, chuẩn bị các giá trị của bạn mà bạn muốn tạo mã QR dựa trên.

2. nhấp chuột Kutools > Chèn > Chèn mã QR.

Lời khuyên: Nếu bạn không thể tìm thấy tính năng bằng đường dẫn này, vui lòng nhấn Khác + S các phím đồng thời để mở Tìm kiếm các chức năng của Kutools hộp, loại thủ công Mã QR trong hộp tìm kiếm, sau đó bạn có thể thấy Chèn mã QR tính năng được liệt kê ra, chỉ cần nhấp để kích hoạt tính năng. Xem ảnh chụp màn hình:

Bây giờ ngăn Chèn mã QR được hiển thị ở phía bên phải của sổ làm việc.

3. bên trong Chèn mã QR , bạn cần cấu hình như sau.

3.1) Trong Dải dữ liệu , chọn phạm vi ô chứa các giá trị mà bạn muốn tạo Mã QR dựa trên đó;
3.2) Trong Chèn Phạm vi , chọn một loạt các ô trống để xuất mã QR;
3.3) Trong Các lựa chọn , cấu hình kích thước, màu đường, màu nềnMức độ sửa lỗi cho mã QR khi bạn cần;
Lưu ý: Kích thước của mã QR không được vượt quá 500 pixel.
3.4) Nhấp vào Tạo ra cái nút. Xem ảnh chụp màn hình:

4. Sau đó a Kutools cho Excel hộp thoại bật lên, nhấp vào OK.

5. Sau đó, các mã QR được tạo cùng một lúc. Bạn cần phải đóng Chèn mã QR nếu hoàn tất việc tạo tất cả mã QR.

Bấm vào để biết thêm về tính năng này ...


Bài viết liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to make a payment qr code in excel?
f.e. In cell A1 I've an amout of 10 euro, and in cell B2 I want to have an qr code so anyone can pay me with the qr code?

Thanks.
This comment was minimized by the moderator on the site
Hi Ruben,

Thank you for reaching out with your question. While Kutools for Excel does feature QR code generation, creating a payment QR code directly in Excel for transactional purposes is beyond the scope of this feature. Payment QR codes usually require integration with financial services or payment platforms to ensure secure transactions. I recommend exploring services specifically designed for creating payment QR codes, such as those offered by banks or digital payment systems. These platforms can generate a QR code linked to your payment details securely. Once you have the payment QR code, you could then include it in your Excel document as an image.
This comment was minimized by the moderator on the site
Hello

The download link provided in step 4 appears to be only Microsoft Barcode Control 14.0. Can anyone suggest a correct link for 16.0 please?

Thank you.
This comment was minimized by the moderator on the site
1 Sheets waar in de cellen van de rij random QR codes binnen komen. Waarvan elke QR code automatisch de juiste Sheets openend?
Of de BVA commando codes van de Button om de koppeling maken naar een andere sheets.
Dan ben erg dankbaar voor.
(dit is voor vrijwilligerswerk)

Groetjes,
H. van Schaijk
This comment was minimized by the moderator on the site
Hi H. van Schaijk,
I can't fix this problem. Sorry about that.
This comment was minimized by the moderator on the site
Hi folks,
Below code works fine with me, which is linked to cell range & generates the QR at each row cell 5000 nos, however I would like to stop the QR object generation if the reference cell value is zero / otherway round should generate the QR at adjucent cell if the value at reference cell is more than zero or <>""

Please seek experts assistance!!

thank you in advance

Sub Gen_StockOut_QR()
MsgBox ("Will Generate QR Code for Stock_Out Items at In@Out Sheet")
Sheets("In@Out_Data").Select
ActiveSheet.Unprotect Password:=" "
'Column range set at QR_Code
Range("QR_Code").Select

For Each cell In Selection
'cell.Offset(0, 23).Select ' 1 indicates the position of excel column A1 from the formula/webaddress/site/characters to be used to generate QR code
cell.Offset(0, 0).Select

' My case QRCode is at column 24 hence 24 as column from A1, QR Size 100*100
FilePath = "http://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & WorksheetFunction.EncodeURL(cell.Value) ' here is the cell value

With ActiveSheet.Pictures.Insert(FilePath)
'.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
'.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

End With
Next cell
End Sub
This comment was minimized by the moderator on the site
Interesting article - thank you.  How do I remove the custom control from the list please?
This comment was minimized by the moderator on the site
Hi,Do you mean to remove the Form Control inserted in the VBA code method? If so, you just need to right click it (when there is a context menu listed, click anywhere outside it to hide the context menu), and then press Delete to remove it.
This comment was minimized by the moderator on the site
Olá! Para mim, nenhum dos comentários ou esse post funcionou corretamente, mas utilizando o Visual Basic com o código que deixarei abaixo funcionou, pois criou uma função para mim. E para usar a função é só abrir a planilha e digitar: "=QrCode("célula desejada")"




Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
'Para gerar o código, precisa a máquina ter acesso a internet
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 15
.PictureFormat.CropRight = 15
.PictureFormat.CropTop = 15
.PictureFormat.CropBottom = 15
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 2
.Top = MyCell.Top + 2
End With
QrCode = ""
End Function
This comment was minimized by the moderator on the site
Wie lösche ich die QR Code Grafik wieder ? wenn ich mit den Skript Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel? einen QR Code erzeugt habe ?
This comment was minimized by the moderator on the site
Hi All,

I modified the VBA code for creation a multi QR codes from selection in excel column

Follow until step 10 then add this code

Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12
Assign Macro
Chose: Sheet1.setQR

QR codes will be populated in next column

Hope that helps for you all
This comment was minimized by the moderator on the site
Hi ChavdarHarchev.
First of all thank You very much for Your nice work.

Is it possible for You to show how the VBA code looks like when it is finished?
Best regards
Pierre Galuszka.
This comment was minimized by the moderator on the site
Hi All,
I modified the VBA code for creation a multi QR codes from selection in excel column
Follow until step 10 then add this code
Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12 Assign Macro Chose: Sheet1.setQR
QR codes will be populated in next column
Hope that helps for you all
This comment was minimized by the moderator on the site
I didn't have "Microsoft Barcode Control 16.0" so I down loaded per instruction. And open Excel with Admin mode. Then try to "Register Custom" . But I opened Barcode control folder and select MSBCODE964,OCX. Then there is error message came out. It said "The selected file does not contain self-registrating ActiveX control". What it means? What is the problem. And how can I install that?
This comment was minimized by the moderator on the site
1)Click File > Options.

2)Click Trust Center > Trust Center Settings > ActiveX Settings.

Click the options below, and then click OK.
* Enable all controls without restrictions and without prompting (not recommended)
3)Click Ok
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations