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
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.
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.
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.
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
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 ?
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
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
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?
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?
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.
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
