Passer au contenu principal

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 Accueil 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 Ouvert 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 définirQR 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 for 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 for 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 for 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 for 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 code QR 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 ;
Remarque: 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 for 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:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
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