In dit artikel zullen we leren om Code 128 barcode-lettertype voor Excel Er zijn enkele methoden om code 128 barcode font in Excel te gebruiken, maar de meeste zijn een uitdaging om toe te passen en werken niet op alle versies van Excel. Vandaag zullen we een methode demonstreren om code 128 barcode font te genereren met eenvoudige stappen in Excel. Na het lezen van het artikel, zult u in staat zijn om code 128 barcode font zeer gemakkelijk te gebruiken. Dus, zonder enige vertraging, laten we nu beginnen met de discussie.

Oefenboek downloaden

U kunt het oefenboek hier downloaden.

Wat is Code 128 Barcode Font?

Code 128 is een modern en beroemd barcode-lettertype. Zijn populariteit neemt met de dag toe omdat het een barcode-lettertype met hoge dichtheid is dat alfanumerieke tekens ondersteunt.

In het algemeen bestaat code 128 uit zeven secties, te weten:

• Rustige zone
• Start Symbool
• Gecodeerde gegevens
• Check Symbool
• Stop Symbool
• Eindbalk
• Rustige zone

De code 128 barcode font heeft 3 Ze worden hieronder kort beschreven:

• Code 128A Het ondersteunt ASCII zonder kleine letters.
• Code 128B Het ondersteunt ASCII zonder de eerste speciale tekens.
• Code 128C Deze subset ondersteunt Numerieke waarden .

Stap-voor-stap procedures om Code 128 Barcode Font voor Excel te genereren

Om de stappen uit te leggen gebruiken we een dataset die informatie bevat over een aantal producten en hun gegevens Met de methode zullen we proberen barcodes te genereren met Code 128 lettertype voor de gegevens van elk product.

STAP 1: Download Code 128 lettertype

• Allereerst moet u het volgende downloaden Code 128 U kunt download het lettertype van deze link .
• Daarna, extract de gedownloade map naar de C:\Windows lettertypes map.
• Anders pakt u de gedownloade map uit en kopieert u de Code 128 lettertype en plak het in de C:\Windows lettertypes map.
• Selecteer ook Ga verder als het venster met de beheerdersrechten verschijnt.

STAP 2: VBA-code toepassen

• Ten tweede, ga naar de Ontwikkelaar tabblad in het lint en selecteer Visual Basic .
• Als gevolg daarvan zal het de Visual Basic raam.

• Selecteer daarna Plaats en dan Module in de Visual Basic raam.
• Op dit moment is de Module venster verschijnt.

• Nu moeten we een code typen in de Module raam.
• U kunt het hieronder kopiëren en plakken in de Module raam:

 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 "Invalid character in barcode string" & vbCrLf & vbCrLf & "Please only use standard ASCII characters", 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 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 If UseTableB Then Code128_Barcode =Code128_Barcode & Mid(SourceString, Counter, 1) Counter = Counter + 1 End If Loop Voor Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Counter, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) Als Counter = 1 Dan 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 Dan Exit Do mini% = mini% - 1 Loop End If Return End Function 

VBA-code uitleg:

In deze code zullen we een functie maken die een string omzet in barcodes. Hier zullen we de Code 128 lettertype.

• De invoerparameter is een string.
• In de uitvoer krijgen we een streepjescode in de Code 128 lettertype als de string geldig is.
• Anders wordt een lege tekenreeks weergegeven.

 Openbare functie Code128(SourceString als string) 

Dit deel geeft de functienaam aan en het is Code128() Je moet de string binnen de haakjes invoegen.

 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 

Dit zijn de variabelen die in de code zullen worden gebruikt.

 Als Len(SourceString)> 0 Dan Voor Counter = 1 Tot Len(SourceString) Selecteer Case Asc(Mid(SourceString, Counter, 1)) Case 32 Tot 126, 203 Case Else MsgBox "Ongeldig karakter in barcode string" & vbCrLf & "Gelieve enkel standaard ASCII karakters te gebruiken", vbCritical Code128 = "" Exit Functie Einde Select Volgende 

In dit deel zal de code controleren op geldige karakters. Als het geen geldig karakter vindt, dan zal het de gebruiker vragen om de standaard ASCII karakters.

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

Hier berekent dit deel de waarde van de CheckSum variabel.

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

In dit deel berekent de code de CheckSum ASCII code. Na het toevoegen van de ASCII code, gaat het naar het volgende deel.

 mini% = mini% - 1 Als Teller + mini% = 0 Als Asc(Mid(SourceString, Teller + mini%, 1)) 57 Dan Exit Do mini% = mini% - 1 Loop End If 

In het laatste deel controleert de code de numerieke waarden binnen de gegeven string.

Deze VBA code werd gevonden van myonlinetraininghub.com .

• Nadat u de code hebt getypt, drukt u op Ctrl + S om het te redden.
• In de volgende stap sluit u de Visual Basic raam.

STAP 3: Gebruik de Code 128-functie

• Ten derde moeten we de functie gebruiken die we gemaakt hebben door de VBA .
• Om dat te doen, selecteert u Cel D5 en typ de onderstaande formule in:

Hier zal de functie de gegevens van Cel C5 in een barcode.

• In de volgende stap drukt u op Ga naar om het resultaat te zien.

STAP 4: Lettertype en -grootte wijzigen

• In de vierde stap moet u het thema en de grootte van het lettertype wijzigen.
• Selecteer daartoe Cel C5 .
• Ga dan naar de Home tabblad en selecteer Code 128 in het lettertype thema vak.
• Selecteer ook 36 in het vakje voor de lettergrootte.

STAP 5: Kolombreedte en rijhoogte aanpassen

• Nadat we het thema en de grootte van het lettertype hebben veranderd, moeten we de kolombreedte en rijhoogte aanpassen.
• In ons geval hebben we de breedte van Kolom D naar 30 en de Rij Hoogte naar 50 .

STAP 6: Gebruik Vulgreep om Formule te kopiëren

• In de volgende stap selecteert u Cel D5 en sleep de Vulgreep naar de rest van de cellen.

Definitieve output

• Verander ten slotte de Rij Hoogte van Rij 6 , 7 , 8 en 9 naar 50 .
• Na het voltooien van alle stappen zult u resultaten zien zoals de afbeelding hieronder.

Lees meer: Hoe Code 39 Barcode Font voor Excel te gebruiken (met eenvoudige stappen)

Conclusie

In dit artikel hebben we stapsgewijze procedures gedemonstreerd voor het genereren van Code 128 barcode lettertype voor Excel Ik hoop dat dit artikel je zal helpen om barcodes aanmaken Bovendien kunt u het werkboek gebruiken om te oefenen. Download daarvoor het werkboek. We hebben het werkboek aan het begin van het artikel toegevoegd. U kunt ook een bezoek brengen aan de ExcelWIKI website voor meer artikelen als deze. Tot slot, als je suggesties of vragen hebt, voel je vrij om ze te stellen in de commentaarsectie hieronder.