Генератор штрих кода code 128 excel

Надстройка Labels позволяет вставлять штрихкоды формата Code 128 в создаваемые этикетки.

В каждой этикетке может присутствовать один или несколько таких штрихкодов.
 

Для формирования штрихкодов Code 128, в шаблоне этикетки необходимо:

1. Вставить в ячейку шаблона подстановочный код вида {5(code128)}, где 5 — это номер столбца, в котором находятся коды для отображения в штрихкоде.
   Эта запись подразумевает, что программа возьмёт исходные данные из столбца 5, и модифицирует (перекодирует) значение для корректного отображения штрихкода с использованием шрифта code128.ttf
    

2. Установить в системе шрифт code128.ttf
   Для этого скачиваем файл шрифта code128.ttf, и копируем его в системную папку Fonts

   В настройках программы на вкладке «Дополнительно» присутствует ссылка, при щелке по которой откроется 2 папки: одна со скачанным файлом шрифта, а вторая — системная папка Fonts.

   

   Вам останется только скопировать файл из одной папку в другую, и шрифт будет установлен в системе.

3. Назначить ячейке установленный шрифт.
   В данном случае, это шрифт с названием Code 128.
   Чтобы вновь установленный шрифт появился в Excel в списке доступных шрифтов, потребуется перезапустить Excel (закрыть и открыть Excel заново)
    
4. Задать подходящий размер шрифта

   

Code128 Генератор штрих-кодов MS Excel Электронные таблицы

FAQ (Часто задаваемые вопросы)

• ❓ Как сгенерировать Code128 баркод?

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

• ❓ Как генерируется Code128 баркод?

  Штрих-код Code128 генерируется программным обеспечением на основе типа штрихкода Code128 и текста. Тип штрихкода Code128 определяет алгоритм кодирования текста штрихкода в представление изображения и декодирования этого изображения обратно в текст. Тип штрихкода Code128 также указывает ограниченный набор символов, поддерживаемый этим штрихкодом.

• ❓ Как отсканировать Code128 баркод?

  Штрих-код Code128 может быть отсканирован и декодирован в текст с помощью GroupDocs.Signature программного обеспечения. Когда загруженный документ Excel или изображение содержит штрих-код, программное обеспечение определяет его тип и возвращает текст.

При ведении учета в торговле, создании личных каталогов используются штрих-коды. Для их последующего считывания существуют сканеры. А создать можно с помощью программных продуктов разработанных специально для Excel.

Как сделать штрих-код в Excel

Сформировать генератор штрих-кодов в Excel можно разными способами: с помощью макроса, инструмента ActiveX и разработанных модулей. Рассмотрим на примере одного из специализированных продуктов. Он является абсолютно бесплатным. Поэтому расценивать статью как рекламную нельзя.

Самый простой способ это установить в Windows шрифты штрих кодов и тогда они буду доступны в Excel на панели «Главная»-«Шрифт».

Пару шрифтов-штрихкодов можно скачать в конце статьи

Так же можно скачать по адресу http://www.idautomation.com/font-encoders/word-excel-addin/ надстройку для ввода штрихкодов в программе Excel или Word.

Перед началом работы убедитесь, что в программе Excel доступен Visual Basic. А в настройках безопасности – сняты ограничения для макросов.

1. Откройте сайт http://www.idautomation.com/font-encoders/vba-macro/. В списке бесплатных продуктов найдите «VBA Macros for Excel & Access». (Данный файл также можно скачать в конце статьи).



2. Нажмите на ссылку и скачайте продукт на свой компьютер.
3. Программа стачивается архивом. Разархивируйте файл с названием «BarcodeFunctions.zip».



4. Одновременным нажатием клавиш Alt + F11 вызовите редактор Visual Basic. В верхнем поле нажмите кнопку File. Нам нужно импортировать загруженный из Интернета код.



5. Находим скачанный файл. В папке Windows VBA выбираем IDAutomation.bas. Импортированный модуль «добавляет» в книгу Excel шрифты и функции, чтобы преобразовывать набор цифр и букв в штрих-код.
6. После импорта он появляется в папке «Модули».



7. Далее нужно выйти из редактора Visual Basic. В ячейку A2 ввести пробный код (например, 11223344) и нажать «Разработчик»-«Макрос».



8. В появившемся меню выбираем макрос для генерации 8-ми значного штрихкода и нажимаем «выполнить».

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

Еще один способ формирования штрих-кодов – написать макрос (реализовано тут).

Чтобы добавить штрих-код в Excel 2007, нужно выполнить следующую последовательность:

1. Нажать кнопку «Файл» — «Параметры». В основных параметрах – поставить галочку «Показывать вкладку «Разработчик» на ленте.
2. Вкладка «Разработчик». Находим кнопку «Вставить» — «Элементы управления ActiveX». Выбираем «Другие элементы управления».
3. В открывшемся меню находим StrokeScribe Objekt. Нажимаем ОК. Рисуем мышью прямоугольник в любом месте страницы.
4. Появляется штрих-код. Открываем меню правой кнопки мыши. «Свойства». Alphabet – для выбора типа штрих-кода.

Чтобы нарисованный код «заработал» (адаптировался под введенные пользователем цифры), нужно писать макрос.



Как подключить сканер штрих-кода к Excel

Процесс подключения зависит от модели сканера и его возможностей. Иногда ничего делать не нужно. Достаточно подключить сканер к компьютеру, используя включение «разъем клавиатуры», и открыть во время работы книгу Excel (должен быть установлен USB-драйвер сканера).

Сканер не воспринимает штрих-код как графический объект – он преобразует его в набор цифр. Во время работы в активную ячейку вставляется числовое значение, считываемое устройством, и срабатывает перевод строки. Детектор посылает символ Enter, что заставляет курсор перейти в следующую строку.

Ряд моделей сканеров работает как клавиатура. При вводе кода данные сразу попадают в активную ячейку листа.

Скачать макрос генератор штрих кодов в Excel

Скачать шрифты штрих-кодов

Для ряда устройств требуется специальная надстройка: стандартное меню не справится с задачей.

Here’s how I do it:

Column A is the text I want to encode.

Column B is a formula for wrapping that text in asterisks (which is what, for me qualifies the entry as text): =CONCATENATE("*",A2,"*")

The text in column B is formatted with the barcode font, with the size adjusted for legibility, printing, and scanning.

I hope that helps in some way.

ADDENDUM

I found the following macro, authored by Eric Townsend Schmidt. All credit goes to him.

 Public Function code128$(chaine$)
  'This function is governed by the GNU Lesser General Public License (GNU LGPL)
  'V 2.0.0
  'Parameters : a string
  'Return : * a string which give the bar code when it is dispayed with CODE128.TTF font
  '         * an empty string if the supplied parameter is no good
  Dim i%, checksum&, mini%, dummy%, tableB As Boolean
  code128$ = ""
  If Len(chaine$) > 0 Then
  'Check for valid characters
    For i% = 1 To Len(chaine$)
      Select Case Asc(Mid$(chaine$, i%, 1))
      Case 32 To 126, 203
      Case Else
        i% = 0
        Exit For
      End Select
    Next
    'Calculation of the code string with optimized use of tables B and C
    code128$ = ""
    tableB = True
    If i% > 0 Then
      i% = 1 'i% devient l'index sur la chaine / i% become the string index
      Do While i% <= Len(chaine$)
        If tableB Then
          'See if interesting to switch to table C
          'yes for 4 digits at start or end, else if 6 digits
          mini% = IIf(i% = 1 Or i% + 3 = Len(chaine$), 4, 6)
          GoSub testnum
          If mini% < 0 Then 'Choice of table C
            If i% = 1 Then 'Starting with table C
              code128$ = Chr$(205)
            Else 'Switch to table C
              code128$ = code128$ & Chr$(199)
            End If
            tableB = False
          Else
            If i% = 1 Then code128$ = Chr$(204) 'Starting with table B
          End If
        End If
        If Not tableB Then
          'We are on table C, try to process 2 digits
          mini% = 2
          GoSub testnum
          If mini% < 0 Then 'OK for 2 digits, process it
            dummy% = Val(Mid$(chaine$, i%, 2))
            dummy% = IIf(dummy% < 95, dummy% + 32, dummy% + 100)
            code128$ = code128$ & Chr$(dummy%)
            i% = i% + 2
          Else 'We haven't 2 digits, switch to table B
            code128$ = code128$ & Chr$(200)
            tableB = True
          End If
        End If
        If tableB Then
          'Process 1 digit with table B
          code128$ = code128$ & Mid$(chaine$, i%, 1)
          i% = i% + 1
        End If
      Loop
      'Calculation of the checksum
      For i% = 1 To Len(code128$)
        dummy% = Asc(Mid$(code128$, i%, 1))
        dummy% = IIf(dummy% < 127, dummy% - 32, dummy% - 100)
        If i% = 1 Then checksum& = dummy%
        checksum& = (checksum& + (i% - 1) * dummy%) Mod 103
      Next
      'Calculation of the checksum ASCII code
      checksum& = IIf(checksum& < 95, checksum& + 32, checksum& + 100)
      'Add the checksum and the STOP
      code128$ = code128$ & Chr$(checksum&) & Chr$(206)
    End If
  End If
  Exit Function
testnum:
  'if the mini% characters from i% are numeric, then mini%=0
  mini% = mini% - 1
  If i% + mini% <= Len(chaine$) Then
    Do While mini% >= 0
      If Asc(Mid$(chaine$, i% + mini%, 1)) < 48 Or Asc(Mid$(chaine$, i% + mini%, 1)) > 57 Then Exit Do
      mini% = mini% - 1
    Loop
  End If
Return
End Function