Dans cet article, nous allons apprendre à générer police de codes à barres code 128 pour Excel Il existe quelques méthodes pour utiliser la police de code-barres code 128 dans Excel, mais la plupart sont difficiles à appliquer et ne fonctionnent pas sur toutes les versions d'Excel. Aujourd'hui, nous allons démontrer une méthode pour générer la police de code-barres code 128 avec des étapes faciles dans Excel. Après avoir lu l'article, vous serez en mesure d'utiliser la police de code-barres code 128 très facilement. Donc, sans aucun retard, commençons la discussion maintenant.

Télécharger le livre de pratique

Vous pouvez télécharger le livre d'exercices à partir d'ici.

Qu'est-ce que la police de codes à barres du Code 128 ?

Code 128 est une police de codes-barres moderne et célèbre, dont la popularité augmente de jour en jour car il s'agit d'une police de codes-barres à haute densité qui prend en charge les caractères alphanumériques.

En général, le code 128 se compose de sept sections, à savoir :

• Zone de calme
• Symbole de départ
• Données codées
• Symbole de contrôle
• Symbole d'arrêt
• Barre finale
• Zone de calme

Le site code 128 police de code à barres a 3 Ils sont décrits brièvement ci-dessous :

• Code 128A Il prend en charge ASCII sans caractères minuscules.
• Code 128B Il prend en charge ASCII sans les caractères spéciaux initiaux.
• Code 128C Ce sous-ensemble prend en charge Valeurs numériques .

Procédures pas à pas pour générer la police de codes à barres du Code 128 pour Excel

Pour expliquer les étapes, nous utiliserons un ensemble de données qui contient des informations sur certains types de produits. produits et leurs données En utilisant cette méthode, nous allons essayer de générer des codes-barres avec Code 128 pour les données de chaque produit.

ÉTAPE 1 : Télécharger la police Code 128

• Tout d'abord, vous devez télécharger Code 128 Vous pouvez téléchargez la police à partir de ce lien .
• Après ça, extrait le dossier téléchargé dans le C:\Windows\Fonts dossier.
• Sinon, dézippez le dossier téléchargé, copiez le fichier Code 128 et la coller dans le C:\Windows\Fonts dossier.
• En outre, sélectionnez Continuer si la fenêtre des autorisations de l'administrateur apparaît.

ÉTAPE 2 : Appliquer le code VBA

• Deuxièmement, allez sur le site Développeur dans le ruban et sélectionnez Visual Basic .
• En conséquence, il ouvrira le Visual Basic fenêtre.

• Après cela, sélectionnez Insérer et ensuite Module dans le Visual Basic fenêtre.
• À ce moment-là, le Module apparaît.

• Maintenant, nous devons taper un code dans le champ Module fenêtre.
• Vous pouvez copier le texte ci-dessous et le coller dans la section Module fenêtre :

 Option Explicit Public Function Code128(SourceString As String) Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String If Len(SourceString)> ; 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126,203 Case Else MsgBox "Caractère invalide dans la chaîne de code à barres" & ; vbCrLf & ; vbCrLf & ; "Veuillez utiliser uniquement des caractères ASCII standard", vbCritical Code128 = "" Exit Function End Select Next Code128_Barcode = "" UseTableB = True Counter = 1 Do While Counter <= =Len(SourceString) If UseTableB Then mini = IIf(Counter = 1 Or Counter + 3 = Len(SourceString), 4, 6) GoSub testnum If mini% <; 0 Then If Counter = 1 Then Code128_Barcode = Chr(205) Else Code128_Barcode = Code128_Barcode & ; Chr(199)End If UseTableB = False Else If Counter = 1 Then Code128_Barcode = Chr(204) End If End If Not UseTableB Then mini% = 2 GoSub testnum If mini% <; 0 Then dummy% = Val(Mid(SourceString, Counter, 2)) dummy% =IIf(dummy% <; 95, dummy% + 32, dummy% + 100) Code128_Barcode = Code128_Barcode & ; Chr(dummy%) Counter = Counter + 2 Else Code128_Barcode = Code128_Barcode & ; Chr(200) UseTableB = True End If End If UseTableB Then Code128_Barcode =Code128_Barcode & ; Mid(SourceString, Counter, 1) Counter = Counter + 1 End If Loop For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <; 127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& ; = dummy% CheckSum& ; = (CheckSum& ; +(Counter - 1) * dummy%) Mod 103 Next CheckSum& ; = IIf(CheckSum& ; <; 95, CheckSum& ; + 32, CheckSum& ; + 100) Code128_Barcode = Code128_Barcode & ; Chr(CheckSum& ;) & ; Chr$(206) End If Code128 = Code128_Barcode Exit Function testnum : mini% = mini% - 1 If Counter + mini% = 0 If Asc(Mid(SourceString, Counter +mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

Explication du code VBA :

Dans ce code, nous allons créer une fonction qui va convertir une chaîne de caractères en codes-barres. Ici, nous allons utiliser la fonction Code 128 police.

• Le paramètre d'entrée est une chaîne de caractères.
• Dans la sortie, nous obtiendrons un code-barres dans le champ Code 128 police si la chaîne est valide.
• Sinon, il affichera une chaîne vide.

 Public Function Code128(SourceString As String) 

Cette partie désigne le nom de la fonction et elle est Code128() Vous devez insérer la chaîne de caractères à l'intérieur des parenthèses.

 Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Boolean Dim Code128_Barcode As String 

Ce sont les variables qui seront utilisées dans le code.

 If Len(SourceString)> ; 0 Then For Counter = 1 To Len(SourceString) Select Case Asc(Mid(SourceString, Counter, 1)) Case 32 To 126, 203 Case Else MsgBox "Invalid character in barcode string" & ; vbCrLf & ; vbCrLf & ; "Please only use standard ASCII characters", vbCritical Code128 = "" Exit Function End Select Next 

Dans cette section, le code vérifie la présence de caractères valides. S'il n'en trouve aucun, il demande à l'utilisateur d'utiliser les caractères standard de l'alphabet. ASCII des personnages.

 For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <; 127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& ; = dummy% CheckSum& ; = (CheckSum& ; + (Counter - 1) * dummy%) Mod 103 Next 

Ici, cette partie calcule la valeur de la CheckSum variable.

 CheckSum& ; = IIf(CheckSum& ; <; 95, CheckSum& ; + 32, CheckSum& ; + 100) Code128_Barcode = Code128_Barcode & ; Chr(CheckSum& ;) & ; Chr$(206) End If 

Dans cette partie, le code calcule le Somme de contrôle ASCII Après avoir ajouté le code ASCII le code, il passe à la partie suivante.

 mini% = mini% - 1 If Counter + mini% = 0 If Asc(Mid(SourceString, Counter + mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If 

Dans la dernière partie, le code vérifiera les valeurs numériques à l'intérieur de la chaîne donnée.

Ce site VBA a été trouvé dans myonlinetraininghub.com .

• Après avoir tapé le code, appuyez sur Ctrl + S pour le sauver.
• Dans l'étape suivante, fermez le Visual Basic fenêtre.

ÉTAPE 3 : Utiliser la fonction Code 128

• Troisièmement, nous devons utiliser la fonction que nous avons créée en appliquant la fonction VBA .
• Pour ce faire, sélectionnez Cellule D5 et tapez la formule ci-dessous :

Ici, la fonction va convertir les données de Cellule C5 en un code-barres.

• Dans l'étape suivante, appuyez sur Entrez pour voir le résultat.

ÉTAPE 4 : Modifier le thème et la taille de la police

• Dans la quatrième étape, vous devez modifier le thème et la taille de la police.
• À cette fin, sélectionnez Cellule C5 .
• Ensuite, allez dans le Accueil et sélectionnez Code 128 dans la case du thème de la police.
• En outre, sélectionnez 36 dans la case de la taille de la police.

ÉTAPE 5 : Redimensionnement de la largeur des colonnes et de la hauteur des rangées

• Après avoir modifié le thème et la taille de la police, nous devons redimensionner la largeur des colonnes et la hauteur des lignes.
• Dans notre cas, nous avons réglé la largeur de Colonne D à 30 et le Hauteur des rangs à 50 .

ÉTAPE 6 : Utiliser la poignée de remplissage pour copier la formule

• Dans l'étape suivante, sélectionnez Cellule D5 et faites glisser le Poignée de remplissage jusqu'au reste des cellules.

Résultat final

• Enfin, modifiez le Hauteur des rangs de Rangée 6 , 7 , 8 et 9 à 50 .
• Après avoir terminé toutes les étapes, vous verrez des résultats comme l'image ci-dessous.

Lire la suite : Comment utiliser la police de codes-barres Code 39 pour Excel (avec des étapes faciles)

Conclusion

Dans cet article, nous avons démontré les procédures étape par étape pour générer des Code 128 Barcode Font for Excel J'espère que cet article vous aidera à créer des codes-barres De plus, vous pouvez utiliser le cahier d'exercices pour vous entraîner. Pour ce faire, téléchargez le cahier d'exercices. Nous avons ajouté le cahier d'exercices au début de l'article. Vous pouvez également visiter le site suivant l'ExcelWIKI Enfin, si vous avez des suggestions ou des questions, n'hésitez pas à les poser dans la section des commentaires ci-dessous.