- Trending Categories
- Data Structure
- Operating System
- MS Excel
- C Programming
- Social Studies
- Fashion Studies
- Legal Studies
- Selected Reading
- UPSC IAS Exams Notes
- Developer's Best Practices
- Questions and Answers
- Effective Resume Writing
- HR Interview Questions
- Computer Glossary
- Who is Who
How to Create QR Code Based on Cell Value in Excel
To convey information quickly and effectively, QR codes are becoming more and more popular. Excel offers a strong foundation to automate the process whether you want to generate QR codes for product labels, event tickets, or any other reason. In this tutorial, we'll look at detailed methods for making QR codes off of Excel cell values.
You will have a thorough understanding of the tools and methods required to generate QR codes dynamically based on the information in your Excel spreadsheet by the end of this tutorial. We'll go over everything you need to produce QR codes with ease, from adding the appropriate add−ins to creating the essential formulas. Let's start by revealing Excel's ability to make creating QR codes simpler, saving you time and effort while streamlining your workflow.
Creating QR Code Based on Cell Value
Here we will first check for Microsoft Barcode Control 16.0, then insert a VBA module, and then add the code to a button to complete the task. So let us see a simple process to learn how you can create QR codes based on cell values in Excel.
Consider an Excel sheet.
First, click on "Developer" and "More Controls," and verify whether you have Microsoft Barcode Control 16.0 or not. If you have installed it, proceed with the process, or else install the control first.
Developer > Insert > More Controls.
Then, right−click on the sheet name and select "View Code" to open the VBA application.
Right click > View code.
Then click on Insert, select Module, and copy the below code into the text box.
Insert > Module > Copy.
Sub setQR() 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", "Create Qr Code", , , , , , 8) If xSRg Is Nothing Then Exit Sub Set xRRg = Application.InputBox("Select a cell to place the QR code", "Create Qr Code", , , , , , 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
Then close the VBA using Alt + Q. Now insert a form control button. To do so, click on developer, then on insert, select the form control button, and draw.
Alt + Q > Developer > Insert > Button > Draw.
In the pop−up window, click on "Set QR" and click "OK”.
Setqr > Ok.
Then exit the design mode, click on the button, select the cell containing the text, and click OK.
Design > Select cell > Ok.
Then click on the cell to insert the Qr, and click OK to complete the task.
Select cell > Ok.
In this tutorial, we have used a simple example to demonstrate creating QR codes based on cell values in Excel to highlight a particular set of data.
Kickstart Your Career
Get certified by completing the courseGet Started