Přejít k hlavnímu obsahu

Jak vytvořit QR kód na základě hodnoty buňky v aplikaci Excel?

Víte, jak vytvořit QR kód na základě konkrétní hodnoty buňky v aplikaci Excel? Tento článek vám podrobně představí způsob, jak toho dosáhnout.

Vytvořte QR kód na základě hodnoty buňky pomocí Barcode Control a VBA kódu
Pomocí úžasného nástroje snadno vytvoříte hromadně více QR kódů na základě hodnot buněk


Vytvořte QR kód na základě hodnoty buňky pomocí Barcode Control a VBA kódu

Ovládání čárových kódů vám pomůže rychle vytvořit QR kód na základě hodnoty buňky v aplikaci Excel. Postupujte prosím následovně.

1. Otevřete list obsahující hodnotu buňky, podle které vytvoříte QR kód.

2. cvaknutí Vývojka > Vložit > Více ovládání. Viz snímek obrazovky:

3. V Více ovládacích prvků okno, zkontrolujte, zda Microsoft Barcode Control 16.0 or Microsoft Barcode Control 15.0.

4. Pokud jste v okně Více ovládacích prvků nenalezli ovládací prvek čárových kódů nebo ovládací prvek čárových kódů není 16.0 nebo 15.0, musíte si stáhnout ovládací soubor čárových kódů kliknutím na tyto odkazy: stáhnout kontrolu čárových kódů. Pokud je v okně Další ovládací prvky čárový kód 16.0 nebo 15.0, jednoduše přejděte dolů kroku 10.

Po stažení souboru jej rozbalte a poté aktualizujte ovládací prvek čárového kódu pomocí ovládacího prvku staženého čárového kódu v aplikaci Excel následujícím způsobem.

5. Zavřete všechny sešity aplikace Excel, přejděte na stránku Home část, vyhledejte vynikat aplikaci a klikněte na ni pravým tlačítkem a poté vyberte Spustit jako správce z kontextové nabídky. Viz snímek obrazovky:

6. V otvoru Řízení uživatelských účtů dialogové okno, klepněte na tlačítko Ano .

7. Poté se vytvoří nový sešit. prosím klikněte Vývojka > Vložit > Více ovládání. Viz snímek obrazovky:

8. V Více ovládacích prvků okno, klepněte na tlačítko Zaregistrujte se na zakázku Klepněte na tlačítko, najděte a vyberte jeden ze stažených souborů qr kódu OCX a poté klepněte na Otevřená knoflík. Viz screenshot:

9. Klepněte na tlačítko OK tlačítko, když vrátí Více ovládacích prvků okno k dokončení aktualizace Barcode Control. Poté znovu otevřete sešit obsahující hodnoty buněk, podle kterých vytvoříte QR kódy.

10. Klikněte pravým tlačítkem na kartu listu a klikněte na Zobrazit kód z kontextové nabídky otevřete Microsoft Visual Basic pro aplikace okno. Poté zkopírujte a vložte pod kód VAB do okna Kód. A nakonec stiskněte Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

Kód VBA: Vytvořte QR kód v aplikaci 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. cvaknutí Vývojka > Vložit > Tlačítko (ovládání formuláře) jak je ukázáno níže.

12. Nakreslete tlačítko do aktuálního listu. Ve vyskakovacím okně Přiřadit makro , vyberte setQR v poli a poté klikněte na OK .

13. Vypni Režim návrhu Kliknutím Vývojka > Režim návrhu.

14. Klikněte na tlačítko v otvoru Kutools pro Excel V dialogovém okně vyberte buňku, na které vytvoříte QR kód, a klikněte OK.

15. Ve druhé Kutools pro Excel V dialogovém okně vyberte buňku a vložte QR kód. Viz snímek obrazovky:

Poté bude QR kód okamžitě vložen do určené buňky. Opakováním kroků 14 až 15 dokončete veškerý vytvořený QR kód. Viz snímek obrazovky:


Pomocí úžasného nástroje snadno vytvoříte hromadně více QR kódů na základě hodnot buněk

Abych byl upřímný, výše uvedenou metodu není snadné zvládnout, protože má své vlastní omezení. Zde velmi doporučujeme Vložte QR kód vlastnost Kutools pro Excel. Tato funkce vám pomůže rychle hromadně vkládat QR kódy na základě zadaných hodnot buněk v Excelu pouze několika kliknutími. Chcete -li to provést, postupujte následovně.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Nejprve si připravte hodnoty, na jejichž základě chcete vytvořit QR kód.

2. cvaknutí Kutools > Vložit > Vložte QR kód.

Tip: Pokud tuto funkci nemůžete najít, stiskněte Další + S současně otevřete Hledat funkce Kutools pole, zadejte ručně QR kód ve vyhledávacím poli pak uvidíte Vložte QR kód funkce je uvedena, kliknutím ji aktivujete. Viz screenshot:

Nyní se na pravé straně sešitu zobrazí podokno Vložit QR kód.

3. V Vložte QR kód v podokně musíte nakonfigurovat následujícím způsobem.

3.1) V Rozsah dat pole, vyberte rozsah buněk obsahujících hodnoty, na jejichž základě chcete vytvořit QR kód;
3.2) V Vložte rozsah pole, vyberte rozsah prázdných buněk pro výstup QR kódu;
3.3) V možnosti sekci, nakonfigurujte velikost, barva čáry, barva pozadí a Úroveň opravy chyb pro QR kód, jak potřebujete;
Poznámka: Velikost QR kódu nesmí překročit 500 pixelů.
3.4) Klikněte na Generovat knoflík. Viz screenshot:

4. Pak a Kutools pro Excel objeví se dialogové okno, klikněte OK.

5. Poté se současně vytvoří QR kódy. Musíte ručně zavřít Vložte QR kód podokno, pokud dokončíte vytváření všech QR kódů.

Klikněte na vědět více o této funkci ...


Související článek:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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