How to Generate Code 128 Barcode Font for Excel

What Is the Code 128 Barcode Font?

Code 128 is a modern and famous barcode font. It is a high-density barcode font that supports alphanumeric characters.

Code 128 consists of seven sections:

• Quiet Zone
• Start Symbol
• Encoded Data
• Check Symbol
• Stop Symbol
• Final Bar
• Quiet Zone

The code 128 barcode font has 3 subsets. They are described briefly below:

• Code 128A: It supports ASCII without lowercase characters.
• Code 128B: It supports ASCII without the initial special characters.
• Code 128C: This subset supports Numeric Values.

We will use a dataset that contains information about some products and their data. We will generate barcodes with Code 128 font for the data of each product.

Step 1 – Downloading the Code 128 Font

• Extract the downloaded folder to the C:\Windows\Fonts folder. Alternatively, unzip the downloaded folder, copy the Code 128 font and paste it to the C:\Windows\Fonts folder.
• Select Continue if the administrator permissions window appears.

Read More: How to Generate Barcode Numbers in Excel 

Step 2 – Using Excel VBA to Create a User-Defined Function

• Go to the Developer tab in the ribbon and select Visual Basic.
• This will open the Visual Basic window.

• Select Insert and choose Module in the Visual Basic window.
• The Module window will appear.

• Insert the following code into the Module window:

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
            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
        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% <= Len(SourceString) Then
            Do While mini% >= 0
                If Asc(Mid(SourceString, Counter + mini%, 1)) < 48 Or Asc(Mid(SourceString, Counter + mini%, 1)) > 57 Then Exit Do
            mini% = mini% - 1
            Loop
        End If
        Return
End Function

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

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

mini% = mini% - 1
If Counter + mini% <= Len(SourceString) Then
Do While mini% >= 0
If Asc(Mid(SourceString, Counter + mini%, 1)) < 48 Or Asc(Mid(SourceString, Counter + mini%, 1)) > 57 Then Exit Do
mini% = mini% - 1
Loop
End If

• Press Ctrl + S to save the file.
• Close the Visual Basic window.

Read More: How to Use EAN 13 Barcode Generator in Excel

Step 3 – Using the Code 128 Function

• Select Cell D5 and insert the formula below:

• Press Enter to see the result.

Read More: How to Calculate Barcode Check Digit with Excel Formula

Step 4 – Changing Excel Theme Font and Size

• Select Cell C5.
• Go to the Home tab and select Code 128 in the font theme box.
• Select 36 in the font size box.

Read More: How to Add Barcode Font in Excel 

Step 5 – Resizing the Column Width and Row Height

• We have set the width of Column D to 30 and the Row Height to 50.

Step 6 – Using the Fill Handle to Copy the Formula

• Select Cell D5 and drag the Fill Handle down to the rest of the cells.

Read More: How to Create Barcode Using 3 of 9 Font in Excel

Final Output of the Code 128 Barcode Font for Excel

• Change the Row Height of Row 6,7,8, and 9 to 50.

Read More: How to Use Code 39 Barcode Font for Excel

Download the Practice Book

Related Articles

• How to Create Barcode in Excel
• How to Convert Numbers to Barcode in Excel
• How to Generate 2D Barcode in Excel
• How to Create Barcode Without Font in Excel

<< Go Back to Barcode in Excel | Learn Excel