Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment créer un code QR basé sur la valeur de la cellule dans Excel?

Savez-vous comment créer un code QR basé sur une valeur de cellule spécifique dans Excel? Cet article vous montrera une méthode pour y parvenir en détail.

Créez un code QR basé sur la valeur de la cellule avec le contrôle de code à barres et le code VBA
Créez facilement plusieurs codes QR en masse en fonction des valeurs des cellules avec un outil incroyable


Créez un code QR basé sur la valeur de la cellule avec le contrôle de code à barres et le code VBA

Le contrôle de code à barres peut vous aider à créer rapidement un code QR basé sur la valeur de la cellule dans Excel. Veuillez faire comme suit.

1. Ouvrez la feuille de calcul contenant la valeur de cellule sur laquelle vous allez créer un code QR.

2. Cliquez Développeur > insérer > Plus de contrôle. Voir la capture d'écran:

3. dans le Plus de contrôles fenêtre, vérifiez la Contrôle de code à barres Microsoft 16.0 or Contrôle de code à barres Microsoft 15.0.

4. Si vous n'avez pas trouvé le contrôle de code-barres dans la fenêtre Plus de contrôles ou si le contrôle de code-barres ne contient pas le 16.0 ou 15.0, vous devez télécharger le fichier de contrôle du code-barres en cliquant sur ces liens: télécharger le contrôle de code-barres. S'il y a Barcode Control 16.0 ou 15.0 dans votre fenêtre Plus de contrôles, passez simplement à ci-dessous étape 10.

Après avoir téléchargé le fichier, décompressez-le, puis mettez à jour le contrôle de code-barres avec le contrôle de code-barres téléchargé dans votre Excel comme suit.

5. Fermez tous vos classeurs Excel, accédez à la Démarrer section, trouvez la Excel app et faites un clic droit dessus, puis sélectionnez Exécuter en tant qu'administrateur dans le menu contextuel. Voir la capture d'écran:

6. Dans l'ouverture Contrôle de compte d'utilisateur boîte de dialogue, cliquez sur le Oui .

7. Puis un nouveau classeur est créé. Cliquez s'il vous plait Développeur > insérer > Plus de contrôle. Voir la capture d'écran:

8. dans le Plus de contrôles fenêtre, cliquez sur S'inscrire personnalisé bouton, recherchez et sélectionnez l'un des fichiers OCX de code qr téléchargé, puis cliquez sur le Open bouton. Voir la capture d'écran:

9. Cliquez sur l' OK bouton quand il renvoie le Plus de contrôles fenêtre pour terminer la mise à jour du contrôle de code-barres. Ensuite, rouvrez le classeur contenant les valeurs de cellule sur lesquelles vous allez créer des codes QR.

10. Cliquez avec le bouton droit sur l'onglet de la feuille et cliquez sur Voir le code dans le menu contextuel pour ouvrir le Microsoft Visual Basic pour applications la fenêtre. Ensuite, copiez et collez ci-dessous le code VAB dans la fenêtre Code. Et enfin appuyez sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.

Code VBA: créer un code QR dans 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. Cliquez Développeur > insérer > Bouton (contrôle de formulaire) comme ci-dessous la capture d'écran montrée.

12. Dessinez un bouton dans la feuille de calcul actuelle. Dans le popping Attribuer une macro dialogue, sélectionnez setQR dans la boîte, puis cliquez sur le OK .

13. Éteignez le Mode de conception en cliquant Développeur > Mode de conception.

14. Cliquez sur le bouton, dans l'ouverture Kutools pour Excel boîte de dialogue, sélectionnez la cellule sur laquelle vous allez créer le code QR et cliquez sur OK.

15. Dans le second Kutools pour Excel boîte de dialogue, sélectionnez une cellule pour placer le code QR. Voir la capture d'écran:

Ensuite, le code QR sera inséré immédiatement dans la cellule spécifiée. Répétez les étapes 14 à 15 pour terminer tous les codes QR créés. Voir la capture d'écran:


Créez facilement plusieurs codes QR en masse en fonction des valeurs des cellules avec un outil incroyable

Pour être honnête, la méthode ci-dessus n'est pas facile à manipuler car elle a ses propres limites. Ici fortement recommandé le Insérer le code QR caractéristique de Kutools pour Excel. Cette fonctionnalité peut vous aider à insérer rapidement des codes QR en masse en fonction des valeurs de cellule spécifiées dans Excel en quelques clics seulement. Veuillez procéder comme suit pour le faire.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Tout d'abord, préparez les valeurs sur lesquelles vous souhaitez créer un code QR.

2. Cliquez Kutools > insérer > Insérer le code QR.

Conseils: Si vous ne trouvez pas l'entité avec ce chemin, veuillez appuyer sur le bouton autre + S touches simultanément pour ouvrir le Fonctions de recherche Kutools boîte, tapez manuellement QR Code dans le champ de recherche, vous pouvez voir le Insérer le code QR fonctionnalité est répertoriée, cliquez simplement pour activer la fonctionnalité. Voir capture d'écran :

Le volet Insérer un code QR est maintenant affiché sur le côté droit du classeur.

3. dans le Insérer le code QR volet, vous devez configurer comme suit.

3.1) Dans le Plage de données , sélectionnez la plage de cellules contenant les valeurs sur lesquelles vous souhaitez créer un code QR ;
3.2) Dans le Insérer une plage case, sélectionnez une plage de cellules vides pour générer le code QR ;
3.3) Dans le Options : section, configurez le taille, couleur de ligne, couleur de fond et Niveau de correction d'erreur pour le code QR selon vos besoins ;
A Noter: La taille du code QR ne peut pas dépasser 500 pixels.
3.4) Cliquez sur le Générer bouton. Voir la capture d'écran:

4. Puis un Kutools pour Excel la boîte de dialogue apparaît, cliquez sur D'ACCORD.

5. Ensuite, les codes QR sont créés en même temps. Vous devez fermer manuellement le Insérer le code QR volet si vous avez terminé de créer tous les codes QR.

Cliquez pour en savoir plus sur cette fonctionnalité...


Article connexe:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lucas Roberto · 4 months ago
    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
  • To post as a guest, your comment is unpublished.
    Jörg · 5 months ago
    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 ?

  • To post as a guest, your comment is unpublished.
    ChavdarHarchev · 5 months ago
    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 
    • To post as a guest, your comment is unpublished.
      Pierre Galuszka · 5 months ago
      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.
  • To post as a guest, your comment is unpublished.
    Chavdar · 5 months ago
    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 
  • To post as a guest, your comment is unpublished.
    Mayank Kumar · 10 months ago
    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?
    • To post as a guest, your comment is unpublished.
      ChavdarHarchev · 5 months ago
      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 
  • To post as a guest, your comment is unpublished.
    oom · 1 years ago
    how to make qr code with many field for one qr?
    • To post as a guest, your comment is unpublished.
      ChavdarHarchev · 5 months ago
      you need to merge all cells into one cell then use that info to create QR code 
  • To post as a guest, your comment is unpublished.
    Daniel · 1 years ago
    Hello

    I just installed Kutool program to make QR code from Excel. I will test this program and if it works then I will purchaSE IT.

    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?

    Please let me know how to solve the problem.

    Thanks

    Daniel Park
  • To post as a guest, your comment is unpublished.
    Helton · 1 years ago
    Can I change the QR code size? Not manually, but paste the selected size?
  • To post as a guest, your comment is unpublished.
    VinRoo · 1 years ago
    It helps to solve my BIG problem! THANK YOU!!!!
  • To post as a guest, your comment is unpublished.
    Bobby Lee · 1 years ago
    If i use the download file. Is this free of company? or only free of person?
  • To post as a guest, your comment is unpublished.
    Michel S · 2 years ago
    Does anyone know how to print the generated QR codes once they are created? After creating said code you aren't able to select them unless you switch to "designer mode" and even then you are only able to get into properties or format object. There is a checkbox for a "print object" under the format object selection but haven't been able to actually print the code itself. Any help would be appreciated.

    Thanks!
  • To post as a guest, your comment is unpublished.
    mitterkit@gmail.com · 2 years ago
    when register custom : error the select file dies not contain any self-registering ActiveX controls
  • To post as a guest, your comment is unpublished.
    Sryx43 · 2 years ago
    Hello,
    Is it possible to link a QR Code to the value of a cell in an online Excel spreadsheet ? Meaning that if one would edit the value of the cell, the QR Code would give the edited value of the cell ?
    Thank you
  • To post as a guest, your comment is unpublished.
    Fred · 2 years ago
    wie kann ich die Grösse der QR Code ändern oder wieder löschen?
  • To post as a guest, your comment is unpublished.
    James · 2 years ago
    Can you create a QR code from information across multiple cells? Anytime I do this I get a blank insert
  • To post as a guest, your comment is unpublished.
    Deaw215 · 2 years ago
    This one is great but I need to do more than 4K QR, so Could you please suggest to do by batch?
  • To post as a guest, your comment is unpublished.
    eric tan · 2 years ago
    how to run it without administrator right?
  • To post as a guest, your comment is unpublished.
    bayu · 2 years ago
    msbcode not found
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi bayu,
      Some mistake for the link, fix now. Sorry for the inconvenience.
  • To post as a guest, your comment is unpublished.
    arthur · 2 years ago
    Microsoft Barcode Control 16.0 tidak nge-link..minta dong pak
  • To post as a guest, your comment is unpublished.
    Augusto · 2 years ago
    no puedo descargar Microsoft Barcode Control 16.0
  • To post as a guest, your comment is unpublished.
    febrian · 2 years ago
    MSBCODE.zip error 404 not found
    please reupload
  • To post as a guest, your comment is unpublished.
    diego · 2 years ago
    prezados, preciso de A1:A5 em um único QR, é possivel?
  • To post as a guest, your comment is unpublished.
    شاهین · 2 years ago
    سلام لینک دانلود کارنمیکنه
  • To post as a guest, your comment is unpublished.
    vo hong minh · 2 years ago
    Khong the tai duoc Microsoft Barcode Control 16.0 admin oi