Vai al contenuto principale

Come creare un codice qr basato sul valore della cella in Excel?

Sai come creare un codice QR basato su un valore di cella specifico in Excel? Questo articolo ti mostrerà un metodo per ottenerlo nei dettagli.

Crea codice QR in base al valore della cella con il controllo del codice a barre e il codice VBA
Crea facilmente più codici QR in blocco in base ai valori delle celle con uno strumento straordinario


Crea codice QR in base al valore della cella con il controllo del codice a barre e il codice VBA

Il controllo del codice a barre può aiutarti a creare rapidamente un codice QR basato sul valore della cella in Excel. Si prega di fare quanto segue.

1. Apri il foglio di lavoro che contiene il valore della cella su cui creerai il codice QR.

2. Clic Costruttori > inserire > Più controllo. Vedi screenshot:

3. Nel Più controlli finestra, controlla il file Controllo codici a barre Microsoft 16.0 or Controllo codici a barre Microsoft 15.0.

4. Se non hai trovato il controllo del codice a barre nella finestra Altri controlli o il controllo del codice a barre non ha la 16.0 o la 15.0, devi scaricare il file di controllo del codice a barre facendo clic su questo link: scarica il controllo del codice a barre. Se nella finestra Altri controlli è presente il controllo del codice a barre 16.0 o 15.0, salta semplicemente sotto step 10.

Dopo aver scaricato il file, decomprimilo e quindi aggiorna il controllo del codice a barre con il controllo del codice a barre scaricato in Excel come segue.

5. Chiudi tutte le cartelle di lavoro di Excel, vai al file Inizia sezione, trova il file Excel app e fai clic destro su di essa, quindi seleziona Eseguire come amministratore dal menu contestuale. Vedi screenshot:

6. In apertura Controllo account utente finestra di dialogo, fare clic su pulsante.

7. Quindi viene creata una nuova cartella di lavoro. Fare clic su Costruttori > inserire > Più controllo. Vedi screenshot:

8. Nel Più controlli finestra, fare clic Registra personalizzato , trova e seleziona uno dei file OCX del codice qr scaricato, quindi fai clic su Apri pulsante. Vedi screenshot:

9. Fare clic sul OK quando ritorna il Più controlli finestra per completare l'aggiornamento del controllo del codice a barre. Quindi riapri la cartella di lavoro che contiene i valori delle celle su cui creerai i codici QR.

10. Fare clic con il pulsante destro del mouse sulla scheda del foglio e fare clic Visualizza codice dal menu contestuale per aprire il file Microsoft Visual Basic, Applications Edition finestra. Quindi copia e incolla sotto il codice VAB nella finestra del codice. E infine premere il pulsante altro + Q tasti per uscire da Microsoft Visual Basic, Applications Edition finestra.

Codice VBA: crea codice QR in 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. Clic Costruttori > inserire > Pulsante (controllo modulo) come mostrato nell'immagine sottostante.

12. Disegna un pulsante nel foglio di lavoro corrente. Nel spuntare Assegna macro finestra di dialogo, selezionare impostaQR nella casella e quindi fare clic su OK pulsante.

13. Spegnere il Modalità di progettazione cliccando Costruttori > Modalità di progettazione.

14. Fare clic sul pulsante, nell'apertura Kutools for Excel finestra di dialogo, seleziona la cella su cui creerai il codice QR e fai clic su OK.

15. Nella seconda Kutools for Excel finestra di dialogo, selezionare una cella per posizionare il codice QR. Vedi screenshot:

Quindi il codice QR verrà inserito immediatamente nella cella specificata. Ripeti i passaggi da 14 a 15 per completare tutto il codice QR creato. Vedi screenshot:


Crea facilmente più codici QR in blocco in base ai valori delle celle con uno strumento straordinario

Ad essere onesti, il metodo di cui sopra non è facile da gestire in quanto ha i suoi limiti. Qui altamente raccomandato il Inserisci il codice QR caratteristica di Kutools for Excel. Questa funzione può aiutarti a inserire rapidamente codici QR in blocco in base a valori di cella specificati in Excel con solo pochi clic. Si prega di fare quanto segue per farlo fare.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. In primo luogo, prepara i valori su cui vuoi creare il codice QR.

2. Clic Kutools > inserire > Inserisci il codice QR.

Suggerimenti: Se non riesci a trovare la funzione con questo percorso, premi il pulsante altro + S tasti contemporaneamente per aprire il file Cerca le funzioni di Kutools casella, digitare manualmente QR Code nella casella di ricerca, puoi vedere il Inserisci il codice QR funzione è elencata, basta fare clic per attivare la funzione. Vedi screenshot:

Ora il riquadro Inserisci codice QR viene visualizzato sul lato destro della cartella di lavoro.

3. Nel Inserisci il codice QR riquadro, è necessario configurare come segue.

3.1) nel Intervallo di dati casella, selezionare l'intervallo di celle contenente i valori su cui si desidera creare il codice QR in base;
3.2) nel Inserisci intervallo casella, selezionare un intervallo di celle vuote per emettere il codice QR;
3.3) nel Opzioni sezione, configurare il dimensione, colore della linea, colore di sfondo ed Livello di correzione degli errori per il codice QR di cui hai bisogno;
Nota: La dimensione del codice QR non può superare i 500 pixel.
3.4) Fare clic su Generare pulsante. Vedi screenshot:

4. Quindi a Kutools for Excel finestra di dialogo si apre, fare clic OK.

5. Quindi i codici QR vengono creati contemporaneamente. Devi chiudere manualmente il Inserisci il codice QR pannello se finisci di creare tutti i codici QR.

Fare clic per saperne di più su questa funzione...


Articolo correlato:

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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