У цій статті ми навчимося генерувати шрифт штрих-коду code 128 для Excel Існує декілька методів використання шрифту штрих-коду code 128 в Excel, але більшість з них є складними у застосуванні і працюють не у всіх версіях Excel. Сьогодні ми продемонструємо метод генерації шрифту штрих-коду code 128 за допомогою простих кроків в Excel. Після прочитання статті ви зможете використовувати шрифт штрих-коду code 128 дуже легко. Отже, не відкладаючи, давайте почнемо обговорення прямо зараз.

Завантажити Практичний посібник

Практикум можна завантажити за посиланням.

Що таке шрифт штрих-коду Code 128?

Код 128 сучасний і відомий шрифт для штрих-кодів, популярність якого зростає з кожним днем, адже це шрифт для штрих-кодів високої щільності, що підтримує алфавітно-цифрові символи.

Загалом код 128 складається з семи розділів, а саме:

• Тиха зона
• Стартовий символ
• Закодовані дані
• Контрольний символ
• Стоп-символ
• Заключний бар
• Тиха зона

На сьогоднішній день, на жаль, це не так. код 128 Шрифт штрих-коду має 3 Вони коротко описані нижче:

• Код 128А : Він підтримує 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 "Неприпустимий символ у рядку штрих-коду" & vbCrLf & vbCrLf & "Будь ласка, використовуйте тільки стандартні символи ASCII", 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_ШтрихКод & Mid(SourceString, Counter, 1) Counter = Counter + 1 End If Loop For Counter = 1 To Len(Code128_ШтрихКод) dummy% = Asc(Mid(Code128_ШтрихКод, 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 шрифт, якщо рядок допустимий.
• В іншому випадку буде виведено порожній рядок.

 Загальнодоступна функція Code128(SourceString As String) 

Ця частина позначає ім'я функції, а саме Code128() Потрібно вставити рядок всередині круглих дужок.

 Dim Counter As Integer Dim CheckSum As Long Dim mini As Integer Dim dummy As Integer Dim UseTableB As Bolean 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 "Недопустимий символ у рядку штрих-коду" & vbCrLf & vbCrLf & "Будь ласка, використовуйте тільки стандартні символи ASCII", 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 

У цій частині код обчислює CheckSum 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: Використання функції Code 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 Насамкінець, якщо у вас є якісь пропозиції чи запитання, будь ласка, задавайте їх у розділі коментарів нижче.