I den här artikeln kommer vi att lära oss att generera teckensnitt för streckkoder med kod 128 för Excel Det finns några metoder för att använda teckensnittet för streckkoder med kod 128 i Excel, men de flesta är svåra att tillämpa och fungerar inte på alla versioner av Excel. Idag kommer vi att visa en metod för att generera teckensnittet för streckkoder med kod 128 med enkla steg i Excel. Efter att ha läst artikeln kommer du att kunna använda teckensnittet för streckkoder med kod 128 mycket enkelt. Så utan dröjsmål, låt oss börja diskussionen nu.

Ladda ner övningsbok

Du kan ladda ner övningsboken här.

Vad är en streckkodsfont för kod 128?

Kod 128 är ett modernt och känt streckkodstexttypsnitt som ökar i popularitet dag för dag eftersom det är ett streckkodstexttypsnitt med hög täthet och stöd för alfanumeriska tecken.

Generellt sett består kod 128 av sju avsnitt, nämligen:

• Tyst zon
• Startsymbol
• Kodade uppgifter
• Kontrollsymbol
• Stoppsymbol
• Slutliga baren
• Tyst zon

kod 128 streckkodstexten har 3 De beskrivs kortfattat nedan:

• Kod 128A : Den stöder ASCII utan små bokstäver.
• Kod 128B : Den stöder ASCII utan de inledande specialtecknen.
• Kod 128C : Denna delmängd stöder Numeriska värden .

Steg-för-steg-förfaranden för att generera Code 128 Barcode Font för Excel

För att förklara stegen använder vi ett dataset som innehåller information om vissa produkter och deras uppgifter Med hjälp av metoden kommer vi att försöka generera streckkoder med Kod 128 typsnitt för uppgifterna om varje produkt.

STEG 1: Ladda ner kod 128-teckensnittet

• Först och främst måste du ladda ner Kod 128 Du kan Ladda ner teckensnittet från den här länken .
• Efter det, utdrag den nedladdade mappen till C:\Windows\Fonts mapp.
• Annars kan du packa upp den nedladdade mappen, kopiera den Kod 128 och klistra in den i C:\Windows\Fonts mapp.
• Välj också Fortsätt om fönstret för administratörsbehörigheter visas.

STEG 2: Använd VBA-kod

• För det andra, gå till Utvecklare i bandet och välj Visual Basic .
• Som ett resultat av detta kommer den att öppna Visual Basic fönster.

• Därefter väljer du Infoga och sedan Modul i den Visual Basic fönster.
• I detta ögonblick är Modul visas.

• Nu måste vi skriva en kod i Modul fönster.
• Du kan kopiera den nedan och klistra in den i Modul fönster:

 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 "Ogiltigt tecken i streckkodsträngen" & vbCrLf & vbCrLf & "Använd endast standard ASCII-tecken", 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 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 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 Nästa 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 Då avslutas Do mini% = mini% - 1 Loop End If Return End Function 

VBA-kodförklaring:

I den här koden kommer vi att skapa en funktion som konverterar en sträng till streckkoder. Kod 128 typsnitt.

• Ingångsparametern är en sträng.
• I utmatningen får vi en streckkod i Kod 128 typsnitt om strängen är giltig.
• Annars visas en tom sträng.

 Public Function Code128(SourceString As String) 

Denna del anger funktionsnamnet och är Code128() Du måste infoga strängen inom parentesen.

 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 

Detta är de variabler som kommer att användas i koden.

 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 "Ogiltigt tecken i streckkodsträng" & vbCrLf & vbCrLf & "Använd endast standard ASCII-tecken", vbCritical Code128 = "" Exit Function End Select Next 

I det här avsnittet kontrollerar koden om det finns giltiga tecken. Om den inte hittar något giltigt tecken ber den användaren att använda standard ASCII tecken.

 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 

I denna del beräknas värdet av den CheckSum variabel.

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

I den här delen beräknar koden CheckSum ASCII koden. Efter att ha lagt till ASCII kod, går den vidare till nästa del.

 mini% = mini% - 1 Om räknare + mini% = 0 Om Asc(Mid(SourceString, räknare + mini%, 1)) 57 Då avslutas Do mini% = mini% - 1 Loop Slut Om 

I den sista delen kontrollerar koden om det finns numeriska värden i den givna strängen.

Denna VBA koden hittades från myonlinetraininghub.com .

• När du har skrivit koden trycker du på Ctrl + S för att rädda den.
• I följande steg stänger du Visual Basic fönster.

STEG 3: Använd Code 128-funktionen

• För det tredje måste vi använda den funktion som vi skapade genom att tillämpa VBA .
• För att göra det väljer du Cell D5 och skriv in formeln nedan:

Här omvandlar funktionen uppgifterna i Cell C5 till en streckkod.

• I följande steg trycker du på Gå in på för att se resultatet.

STEG 4: Ändra tema och storlek på teckensnittet

• I det fjärde steget måste du ändra teckensnittets tema och storlek.
• För detta ändamål väljer du Cell C5 .
• Gå sedan till Hem och välj Kod 128 i rutan för teckensnittstema.
• Välj också 36 i rutan för teckenstorlek.

STEG 5: Ändra storleken på kolumnbredden och radhöjden

• Efter att ha ändrat teckensnittets tema och storlek måste vi ändra storleken på kolumnbredden och radhöjden.
• I vårt fall har vi ställt in bredden på Kolumn D till 30 och Höjd på rad till 50 .

STEG 6: Använd fyllningshandtaget för att kopiera formeln

• I följande steg väljer du Cell D5 och dra i Handtag för fyllning ner till resten av cellerna.

Slutligt resultat

• Slutligen ändrar du Höjd på rad på Rad 6 , 7 , 8 , och 9 till 50 .
• När du har slutfört alla steg kommer du att se resultat som bilden nedan.

Läs mer: Hur man använder streckkodsfont för kod 39 i Excel (med enkla steg)

Slutsats

I den här artikeln har vi visat steg-för-steg-förfaranden för att generera Skrift för streckkoder med kod 128 för Excel . Jag hoppas att den här artikeln kan hjälpa dig att skapa streckkoder Du kan dessutom använda arbetsboken för att öva. För att göra det kan du ladda ner arbetsboken. Vi har lagt till arbetsboken i början av artikeln. Du kan också gå till ExcelWIKI Om du har några förslag eller frågor är du välkommen att ställa dem i kommentarsfältet nedan.