Прескочи на основното съдържание

Как да създадете qr код въз основа на стойността на клетка в Excel?

Автор: Силувия Последна промяна: 2021-08-04

Знаете ли как да създадете QR код въз основа на конкретна стойност на клетка в Excel? Тази статия ще ви покаже метод за постигането му в детайли.

Създайте QR код въз основа на стойността на клетката с Barcode Control и VBA код
Създавайте лесно множество QR кодове групово въз основа на стойностите на клетките с невероятен инструмент


Създайте QR код въз основа на стойността на клетката с Barcode Control и VBA код

Контролът на баркод може да ви помогне бързо да създадете QR код въз основа на стойността на клетка в Excel. Моля, направете следното.

1. Отворете работния лист, който съдържа стойността на клетката, на базата на която ще създадете QR код.

2. кликване Софтуерен Инженер > Поставете > Повече контрол. Вижте екранна снимка:

3. В Повече контроли прозорец, проверете за Microsoft Barcode Control 16.0 or Microsoft Barcode Control 15.0.

4. Ако не сте намерили контрола на баркод в прозореца Още контроли или контролът на баркод не е 16.0 или 15.0, трябва да изтеглите файла за управление на баркод, като щракнете върху тези връзки: изтегляне на управление на баркод. Ако има Barcode Control 16.0 или 15.0 във вашия прозорец Още контроли, просто преминете към по-долу стъпка 10.

След като изтеглите файла, разархивирайте го и след това актуализирайте контролата на баркод с изтеглената контрола на баркод във вашия Excel, както следва.

5. Затворете всичките си работни книги на Excel, отидете на Начало раздел, намерете Excel приложение и щракнете с десния бутон върху него, след което изберете Изпълнявай като администратор от контекстното меню. Вижте екранна снимка:

6. В откриването Контролът на потребителските акаунти кликнете върху Да бутон.

7. След това се създава нова работна книга. Моля щракнете Софтуерен Инженер > Поставете > Повече контрол. Вижте екранна снимка:

8. В Повече контроли прозорец, кликнете Регистрирайте се по избор бутон, намерете и изберете един от изтеглените OCX файлове с qr код и след това щракнете върху отворено бутон. Вижте екранна снимка:

9. Щракнете върху OK бутон, когато върне Повече контроли прозорец, за да завършите актуализирания контрол на баркод. След това отворете отново работната книга, която съдържа стойностите на клетките, въз основа на които ще създадете QR кодове.

10. Щракнете с десния бутон върху раздела на листа и щракнете Преглед на кода от контекстното меню, за да отворите Microsoft Visual Basic за приложения прозорец. След това копирайте и поставете под VAB кода в прозореца на кода. И накрая натиснете Друг + Q клавиши за излизане от Microsoft Visual Basic за приложения прозорец.

VBA код: Създайте QR код в 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. кликване Софтуерен Инженер > Поставете > Бутон (контрола на формуляр) както е показано на екранната снимка по-долу.

12. Начертайте бутон в текущия работен лист. В изскачащите Присвояване на макрос диалогов прозорец, изберете setQR в полето и след това щракнете върху OK бутон.

13. Изключете Режим на проектиране като щракнете върху Софтуерен Инженер > Режим на проектиране.

14. Щракнете върху бутона в отвора Kutools за Excel изберете клетката, въз основа на която ще създадете QR код, и щракнете OK.

15. Във втория Kutools за Excel изберете клетка, за да поставите QR кода. Вижте екранна снимка:

След това QR кодът ще бъде вмъкнат веднага в определена клетка. Повторете стъпки от 14 до 15, за да завършите всички създадени QR кодове. Вижте екранна снимка:


Създавайте лесно множество QR кодове групово въз основа на стойностите на клетките с невероятен инструмент

Честно казано, горният метод не е лесен за работа, тъй като има своите ограничения. Тук силно препоръчвам Въведете QR код функция на Kutools за Excel. Тази функция може да ви помогне бързо да вмъкнете групово QR кодове въз основа на зададени стойности на клетки в Excel само с няколко кликвания. Моля, направете следното, за да го направите.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. Първо, подгответе вашите стойности, въз основа на които искате да създадете QR код.

2. кликване Kutools > Поставете > Въведете QR код.

Съвет: Ако не можете да намерите функцията с този път, моля, натиснете Друг + S клавиши едновременно, за да отворите Търсете функции на Kutools кутия, въведете ръчно QR Code в полето за търсене, след което можете да видите Въведете QR код функция е посочена, просто щракнете, за да активирате функцията. Вижте екранна снимка:

Сега панелът Вмъкване на QR код се показва от дясната страна на работната книга.

3. В Въведете QR код панел, трябва да конфигурирате както следва.

3.1) В Обхват на данните изберете диапазона от клетки, съдържащи стойностите, въз основа на които искате да създадете QR код;
3.2) В Вмъкване на диапазон изберете диапазон от празни клетки за извеждане на QR кода;
3.3) В Настроики раздел, конфигурирайте размер, цвят на линията, цвят на фона намлява Ниво на корекция на грешки за QR кода, колкото ви е необходим;
Забележка: Размерът на QR кода не може да надвишава 500 пиксела.
3.4) Щракнете върху Генериране бутон. Вижте екранна снимка:

4. След това a Kutools за Excel изскача диалогов прозорец, щракнете OK.

5. Тогава QR кодовете се създават едновременно. Трябва ръчно да затворите Въведете QR код прозорец, ако завършите създаването на всички QR кодове.

Кликнете, за да научете повече за тази функция...


Свързана статия:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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