Перейти до основного матеріалу

Як створити qr-код на основі значення комірки в Excel?

Чи знаєте ви, як створити QR-код на основі конкретного значення комірки в Excel? Ця стаття покаже вам спосіб досягти цього в деталях.

Створіть QR-код на основі значення комірки за допомогою контролю штрих-коду та коду VBA
Легко створюйте кілька QR -кодів оптом на основі значень комірок за допомогою чудового інструменту


Створіть QR-код на основі значення комірки за допомогою контролю штрих-коду та коду VBA

Контроль штрих-коду може допомогти вам швидко створити QR-код на основі значення комірки в Excel. Будь ласка, виконайте наступне.

1. Відкрийте аркуш, що містить значення комірки, на основі якої ви створите QR-код.

2. клацання Розробник > Insert > Більше контролю. Дивіться знімок екрана:

3 В Додаткові елементи керування вікно, перевірте наявність Управління штрих-кодом Microsoft 16.0 or Управління штрих-кодом Microsoft 15.0.

4. Якщо ви не знайшли елемент керування штрих-кодом у вікні Більше елементів керування або елемент керування штрих-кодом не відповідає 16.0 або 15.0, вам потрібно завантажити файл контролю штрих-коду, натиснувши це посилання: завантажити контроль штрих-коду -. Якщо у вікні Додаткові елементи керування є Штрих-код 16.0 або 15.0, просто перейдіть нижче step 10.

Завантаживши файл, розпакуйте його, а потім оновіть елемент керування штрих-кодом за допомогою завантаженого елемента управління штрих-кодом у вашому Excel наступним чином.

5. Закрийте всі книги Excel, перейдіть до Start розділ, знайдіть перевершувати додаток і клацніть правою кнопкою миші на ньому, а потім виберіть Запуск від імені адміністратора з контекстного меню. Дивіться знімок екрана:

6. На відкритті Служба захисту користувачів у діалоговому вікні натисніть Так кнопки.

7. Потім створюється нова робоча книга. Клацніть Розробник > Insert > Більше контролю. Дивіться знімок екрана:

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. клацання Розробник > Insert > Кнопка (контроль форми) як показано на знімку екрана.

12. Намалюйте кнопку на поточному аркуші. У спливаючому Призначити макрос діалог, виберіть встановитиQR у полі, а потім клацніть на 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. клацання Кутулс > Insert > Вставте QR-код.

Порада: Якщо ви не можете знайти функцію з цим шляхом, натисніть клавішу інший + S клавіші одночасно, щоб відкрити Пошук функцій Kutools коробку, введіть вручну QR-код у вікні пошуку, тоді ви можете побачити Вставте QR-код функція перерахована, просто натисніть, щоб активувати цю функцію. Дивіться скріншот:

Тепер панель Вставити QR -код відображається у правій частині книги.

3 В Вставте QR-код панелі, вам потрібно налаштувати наступним чином.

3.1) У Діапазон даних поле, виберіть діапазон клітинок, що містить значення, на основі яких потрібно створити QR -код;
3.2) У Вставити діапазон поле, виберіть діапазон порожніх клітинок для виведення QR -коду;
3.3) У Опції розділ, налаштуйте розмір, колір лінії, колір фону та Рівень виправлення помилок для QR -коду, як вам потрібно;
Примітка: Розмір QR -коду не може перевищувати 500 пікселів.
3.4) Клацніть на Генерувати кнопку. Дивіться знімок екрана:

4. Тоді a Kutools для Excel спливає діалогове вікно, клацніть ОК.

5. Потім одночасно створюються QR -коди. Вам потрібно закрити файл вручну Вставте QR-код панелі, якщо завершити створення всіх QR -кодів.

Натисніть, щоб дізнатися більше про цю функцію ...


Пов'язана стаття:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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