In diesem Artikel werden wir lernen, wie man Code 128 Barcode-Schriftart für Excel Es gibt einige Methoden, um Code 128 Barcode-Schrift in Excel zu verwenden, aber die meisten sind schwierig anzuwenden und funktionieren nicht auf allen Versionen von Excel. Heute werden wir eine Methode demonstrieren, um Code 128 Barcode-Schrift mit einfachen Schritten in Excel zu generieren. Nach der Lektüre des Artikels werden Sie in der Lage sein, Code 128 Barcode-Schrift sehr einfach zu verwenden. Also, ohne Verzögerung, lassen Sie uns die Diskussion jetzt beginnen.

Übungsbuch herunterladen

Sie können das Übungsbuch hier herunterladen.

Was ist eine Code 128 Barcode-Schriftart?

Code 128 ist eine moderne und bekannte Barcode-Schriftart, deren Beliebtheit von Tag zu Tag zunimmt, da es sich um eine Barcode-Schriftart mit hoher Dichte handelt, die alphanumerische Zeichen unterstützt.

Im Allgemeinen besteht der Code 128 aus sieben Abschnitten, und zwar:

• Ruhige Zone
• Start-Symbol
• Kodierte Daten
• Symbol prüfen
• Stopp-Symbol
• Endleiste
• Ruhige Zone

Die Code 128 Barcode-Schriftart hat 3 Sie werden im Folgenden kurz beschrieben:

• Code 128A : Es unterstützt ASCII ohne Kleinbuchstaben.
• Code 128B : Es unterstützt ASCII ohne die anfänglichen Sonderzeichen.
• Code 128C Diese Teilmenge unterstützt Numerische Werte .

Schritt-für-Schritt-Verfahren zum Generieren von Code 128 Barcode-Schriftart für Excel

Um die Schritte zu erläutern, werden wir einen Datensatz verwenden, der Informationen über einige Produkte und ihre Daten Mit dieser Methode werden wir versuchen, Strichcodes zu erzeugen mit Code 128 Schriftart für die Daten der einzelnen Produkte.

SCHRITT 1: Code 128-Schriftart herunterladen

• Zunächst einmal müssen Sie Folgendes herunterladen Code 128 Sie können Laden Sie die Schriftart über diesen Link herunter .
• Und dann, Auszug den heruntergeladenen Ordner in den C:\Windows\Schriftarten Ordner.
• Andernfalls entpacken Sie den heruntergeladenen Ordner, kopieren die Code 128 Schriftart und fügen Sie sie in die C:\Windows\Schriftarten Ordner.
• Wählen Sie außerdem Weiter wenn das Fenster mit den Administratorrechten erscheint.

SCHRITT 2: VBA-Code anwenden

• Zweitens: Besuchen Sie die Entwickler in der Multifunktionsleiste und wählen Sie Visual Basic .
• Infolgedessen öffnet sie die Visual Basic Fenster.

• Wählen Sie danach einfügen. und dann Modul im Visual Basic Fenster.
• In diesem Moment wird die Modul Fenster erscheint.

• Nun müssen wir einen Code in das Feld Modul Fenster.
• Kopieren Sie den Text und fügen Sie ihn in das Feld Modul Fenster:

 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 "Ungültiges Zeichen im Barcode-String" & vbCrLf & vbCrLf & "Bitte nur Standard-ASCII-Zeichen verwenden", 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 UseTableB Then Code128_Barcode =Code128_Barcode & Mid(SourceString, Zähler, 1) Zähler = Zähler + 1 End If Loop For Counter = 1 To Len(Code128_Barcode) dummy% = Asc(Mid(Code128_Barcode, Zähler, 1)) dummy% = IIf(dummy% <127, dummy% - 32, dummy% - 100) If Counter = 1 Then CheckSum& = dummy% CheckSum& = (CheckSum& +(Zähler - 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 

VBA-Code Erläuterung:

In diesem Code werden wir eine Funktion erstellen, die eine Zeichenkette in Barcodes umwandelt, wobei wir die Funktion Code 128 Schriftart.

• Der Eingabeparameter ist eine Zeichenkette.
• In der Ausgabe erhalten wir einen Barcode im Feld Code 128 Schriftart, wenn die Zeichenkette gültig ist.
• Andernfalls wird eine leere Zeichenfolge angezeigt.

 Public Function Code128(SourceString As String) 

Dieser Teil gibt den Namen der Funktion an und lautet Code128() Sie müssen die Zeichenfolge innerhalb der Klammern einfügen.

 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 

Dies sind die Variablen, die im Code verwendet werden sollen.

 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 "Ungültiges Zeichen im Barcode-String" & vbCrLf & vbCrLf & "Bitte nur Standard-ASCII-Zeichen verwenden", vbCritical Code128 = "" Exit Function End Select Next 

In diesem Abschnitt prüft der Code auf gültige Zeichen. Wenn er kein gültiges Zeichen findet, wird er den Benutzer auffordern, die Standard ASCII Zeichen.

 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 

Hier berechnet dieser Teil den Wert der Prüfsumme variabel.

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

In diesem Teil berechnet der Code die Prüfsumme ASCII Nach dem Hinzufügen des Codes ASCII Code, geht er zum nächsten Teil über.

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

Im letzten Teil wird der Code auf die numerischen Werte innerhalb der angegebenen Zeichenkette geprüft.

Diese VBA Code wurde gefunden von myonlinetraininghub.com .

• Nachdem Sie den Code eingegeben haben, drücken Sie Strg + S um es zu retten.
• Im folgenden Schritt schließen Sie das Visual Basic Fenster.

SCHRITT 3: Code 128-Funktion verwenden

• Drittens müssen wir die Funktion verwenden, die wir durch Anwendung der VBA .
• Wählen Sie dazu Zelle D5 und geben Sie die folgende Formel ein:

Hier konvertiert die Funktion die Daten von Zelle C5 in einen Strichcode umzuwandeln.

• Im folgenden Schritt drücken Sie Eingabe um das Ergebnis zu sehen.

SCHRITT 4: Schriftart und -größe ändern

• Im vierten Schritt müssen Sie das Thema und die Größe der Schriftart ändern.
• Wählen Sie zu diesem Zweck Zelle C5 .
• Gehen Sie dann zum Startseite und wählen Sie Code 128 in das Feld Schriftthema ein.
• Wählen Sie außerdem 36 in das Feld Schriftgröße ein.

SCHRITT 5: Ändern der Spaltenbreite und Zeilenhöhe

• Nach der Änderung von Schriftart und -größe müssen wir die Spaltenbreite und Zeilenhöhe anpassen.
• In unserem Fall haben wir die Breite von Säule D zu 30 und die Zeilenhöhe zu 50 .

SCHRITT 6: Verwenden Sie den Füllgriff zum Kopieren der Formel

• Wählen Sie im folgenden Schritt Zelle D5 und ziehen Sie die Füllen Griff auf den Rest der Zellen übertragen.

Endgültige Ausgabe

• Ändern Sie schließlich die Zeilenhöhe von Reihe 6 , 7 , 8 und 9 zu 50 .
• Nach Beendigung aller Schritte werden Sie Ergebnisse wie in der folgenden Abbildung sehen.

Lesen Sie mehr: Code 39 Barcode-Schriftart für Excel verwenden (mit einfachen Schritten)

Schlussfolgerung

In diesem Artikel haben wir Schritt für Schritt gezeigt, wie man Code 128 Barcode-Schriftart für Excel Ich hoffe, dieser Artikel wird Ihnen helfen Barcodes erstellen Außerdem können Sie die Arbeitsmappe zum Üben verwenden. Laden Sie dazu die Arbeitsmappe herunter. Wir haben die Arbeitsmappe am Anfang des Artikels eingefügt. Außerdem können Sie unter das ExcelWIKI Wenn Sie Anregungen oder Fragen haben, können Sie diese gerne im Kommentarbereich unten stellen.