В этой статье мы научимся генерировать шрифт штрихкода code 128 для Excel Существуют некоторые методы использования шрифта штрихкода code 128 в Excel, но большинство из них сложны в применении и не работают на всех версиях Excel. Сегодня мы продемонстрируем метод генерации штрихкода code 128 с помощью простых шагов в Excel. После прочтения статьи вы сможете легко использовать шрифт штрихкода code 128. Итак, без промедления, давайте начнем обсуждение прямо сейчас.

Скачать книгу по практике

Вы можете скачать учебник по практике отсюда.

Что такое шрифт штрихкода Code 128?

Код 128 это современный и известный шрифт штрихкода, популярность которого растет с каждым днем, поскольку это шрифт штрихкода высокой плотности, поддерживающий буквенно-цифровые символы.

В целом, код 128 состоит из семи разделов:

• Тихая зона
• Стартовый символ
• Кодированные данные
• Контрольный символ
• Символ остановки
• Финальный бар
• Тихая зона

Сайт код 128 шрифт штрихкода 3 Они кратко описаны ниже:

• Код 128A : Он поддерживает ASCII без строчных символов.
• Код 128B : Он поддерживает ASCII без начальных специальных символов.
• Код 128C : Этот поднабор поддерживает Числовые значения .

Пошаговые процедуры для генерации шрифта штрихкода Code 128 для Excel

Чтобы объяснить шаги, мы будем использовать набор данных, который содержит информацию о некоторых продукция и их данные Используя этот метод, мы попытаемся сгенерировать штрихкоды с Код 128 шрифт для данных каждого продукта.

ШАГ 1: Скачать шрифт Code 128

• Прежде всего, вам необходимо загрузить Код 128 Вы можете скачать шрифт по этой ссылке .
• После этого, извлечь загруженную папку в C:\Windows\Fonts папка.
• В противном случае распакуйте загруженную папку, скопируйте файл Код 128 шрифт и вставьте его в C:\Windows\Fonts папка.
• Также выберите Продолжить если появится окно разрешений администратора.

ШАГ 2: Применить код VBA

• Во-вторых, зайдите на Разработчик на вкладке ленты и выберите Visual Basic .
• В результате откроется Visual Basic окно.

• После этого выберите Вставка а затем Модуль в Visual Basic окно.
• В этот момент Модуль появится окно.

• Теперь нам нужно ввести код в поле Модуль окно.
• Вы можете скопировать его ниже и вставить в поле Модуль окно:

 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 If Not UseTableB Then mini% = 2 GoSub testnum If mini% <0 Then dummy% = Val(Mid(SourceString, Counter, 2)) dummy% = 0.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% = 0 If Asc(Mid(SourceString, Counter +mini%, 1)) 57 Then Exit Do mini% = mini% - 1 Loop End If Return End Function 

Объяснение кода VBA:

В этом коде мы создадим функцию, которая будет преобразовывать строку в штрих-коды. Здесь мы будем использовать функцию Код 128 шрифт.

• Входным параметром является строка.
• На выходе мы получим штрихкод в формате Код 128 шрифт, если строка действительна.
• В противном случае будет выведена пустая строка.

 Public Function Code128(SourceString As String) 

Эта часть обозначает имя функции и является Code128() Вам нужно вставить строку внутрь круглых скобок.

 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 

В этом разделе код будет проверять наличие допустимых символов. Если он не найдет ни одного допустимого символа, то попросит пользователя использовать стандартный символ ASCII персонажи.

 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 переменная.

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

В этой части код вычисляет Контрольная сумма ASCII код. После добавления ASCII код, он переходит к следующей части.

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

В последней части код будет проверять наличие числовых значений внутри заданной строки.

Это VBA код был найден из myonlinetraininghub.com .

• После ввода кода нажмите кнопку Ctrl + S чтобы спасти его.
• На следующем этапе закройте Visual Basic окно.

ШАГ 3: Использование функции кода 128

• В-третьих, нам нужно использовать функцию, которую мы создали, применив функцию VBA .
• Для этого выберите Ячейка D5 и введите приведенную ниже формулу:

Здесь функция преобразует данные Клетка C5 в штрихкод.

• На следующем этапе нажмите Войти чтобы увидеть результат.

ШАГ 4: Изменение темы и размера шрифта

• На четвертом этапе необходимо изменить тему и размер шрифта.
• Для этого выберите Клетка C5 .
• Затем перейдите к Главная вкладку и выберите Код 128 в поле темы шрифта.
• Также выберите 36 в поле размера шрифта.

ШАГ 5: Изменение размеров ширины столбцов и высоты строк

• После изменения темы и размера шрифта нам нужно изменить ширину столбцов и высоту строк.
• В нашем случае мы установили ширину Колонка D на 30 и Высота ряда на 50 .

ШАГ 6: Использование ручки заливки для копирования формулы

• На следующем этапе выберите Ячейка D5 и перетащите Наполнительная рукоятка до остальных клеток.

Окончательный вывод

• Наконец, измените Высота ряда из Ряд 6 , 7 , 8 и 9 на 50 .
• После выполнения всех шагов вы увидите результаты, как на рисунке ниже.

Подробнее: Как использовать шрифт штрихкода Code 39 для Excel (с простыми шагами)

Заключение

В этой статье мы продемонстрировали пошаговые процедуры для создания Шрифт штрихкода Code 128 для Excel Я надеюсь, что эта статья поможет вам создавать штрихкоды Более того, вы можете использовать рабочую тетрадь для практики. Для этого скачайте рабочую тетрадь. Мы добавили рабочую тетрадь в начало статьи. Также, вы можете посетить ExcelWIKI И последнее, если у вас есть какие-либо предложения или вопросы, не стесняйтесь задавать их в разделе комментариев ниже.