Как да генерирате баркод шрифт Code 128 за Excel (с лесни стъпки)

Hugh West

16-10-2023 Основи на Excel
  • Споделя Това
Hugh West

В тази статия ще се научим да генерираме код 128 баркод шрифт за Excel . Съществуват някои методи за използване на шрифт за баркод код 128 в Excel, но повечето от тях са трудни за прилагане и не работят на всички версии на Excel. Днес ще демонстрираме метод за генериране на шрифт за баркод код 128 с лесни стъпки в Excel. След като прочетете статията, ще можете много лесно да използвате шрифт за баркод код 128. Така че, без никакво забавяне, нека да започнем дискусията сега.

Изтегляне на книга за практика

Можете да изтеглите учебника за упражнения от тук.

Код 128 Баркод Font.xlsm

Какво е шрифт за баркод 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 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% = 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 като String)

Тази част обозначава името на функцията и е Код128() . Трябва да вмъкнете символния низ в скобите. 

 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

В тази част кодът изчислява 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 и въведете формулата по-долу:
=Код128(C5)

Тук функцията ще преобразува данните от Клетка C5 в баркод.

  • На следващата стъпка натиснете Въведете за да видите резултата.

СТЪПКА 4: Промяна на темата и размера на шрифта

  • В четвъртата стъпка трябва да промените темата и размера на шрифта.
  • За тази цел изберете Клетка C5 .
  • След това отидете в Начало и изберете Код 128 в полето за тема на шрифта.
  • Също така изберете 36 в полето за размер на шрифта.

СТЪПКА 5: Промяна на размера на ширината на колоната и височината на реда

  • След като сменим темата и размера на шрифта, трябва да променим ширината на колоната и височината на реда.
  • В нашия случай сме задали ширината на Колона D към 30 и Височина на реда към 50 .

СТЪПКА 6: Използвайте дръжката за запълване, за да копирате формулата

  • В следващата стъпка изберете Клетка D5 и плъзнете Дръжка за пълнене до останалите клетки.

Окончателен резултат

  • Накрая променете Височина на реда на Ред 6 , 7 , 8 , и 9 към 50 .
  • След като завършите всички стъпки, ще видите резултати като на снимката по-долу.

Прочетете още: Как да използвате шрифт за баркод Code 39 за Excel (с лесни стъпки)

Заключение

В тази статия демонстрирахме процедури стъпка по стъпка за генериране на Код 128 Баркод шрифт за Excel . Надявам се, че тази статия ще ви помогне да създаване на баркодове Освен това можете да използвате работната тетрадка, за да се упражнявате. За да направите това, изтеглете работната тетрадка. Добавихме работната тетрадка в началото на статията. Също така можете да посетите ExcelWIKI уебсайта за още статии като тази. И накрая, ако имате някакви предложения или запитвания, не се колебайте да попитате в раздела за коментари по-долу.

Предишна публикация Как да актуализирате автоматично таблица Pivot при промяна на изходните данни
Следваща публикация Как да изчислим вариацията, като използваме Pivot таблица в Excel (с лесни стъпки)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.