Как сделать штрихкод в Excel: 4 рабочих способа с примерами

Зачем нужны штрихкоды в Excel и где их применяют

Штрихкоды в Microsoft Excel — это не просто набор чёрных полосок, а мощный инструмент автоматизации. Представьте: вместо ручного ввода артикулов в базу вы просто сканируете код с этикетки — и данные мгновенно попадают в систему. Такой подход экономит до 70% времени на инвентаризацию, приёмку товаров или обработку заказов.

Где конкретно применяют штрихкоды из Excel? Во-первых, это логистика и складское хозяйство: маркировка коробов, паллет, мест хранения. Во-вторых, розничная торговля — ценники, этикетки для полок, инвентарные номера оборудования. Даже в офисах штрихкоды используют для учёта оргтехники или документооборота. А если вы занимаетесь e-commerce, то без штрихкодов не обойтись при печати наклеек для заказов или маркеров мест на складе.

Но тут возникает ключевой вопрос: как перенести эти коды из специализированных программ (типа BarTender или NiceLabel) в привычный Excel? Оказывается, есть как минимум 4 способа сгенерировать штрихкоды прямо в таблицах — от простых (с использованием шрифтов) до продвинутых (через VBA или надстройки). И все они не требуют покупки дорогостоящего ПО.

Способ 1: Штрихкод через специальные шрифты (самый простой метод)

Если вам нужно быстро создать штрихкоды EAN-13, Code 128 или Code 39 без программирования, специальные шрифты — ваш спаситель. Принцип работы прост: вы вводите данные в ячейку, а затем применяете шрифт, который преобразует текст в графический код. Главное преимущество — не нужен интернет или дополнительное ПО.

Где взять такие шрифты?

  • 🔹 IDAutomation — бесплатные шрифты для Code 39 и Code 128 (доступны на официальном сайте).
  • 🔹 Free 3 of 9 — универсальный шрифт для Code 39, поддерживает буквы и цифры.
  • 🔹 Barcode Fonts от Aztec Software — платные, но с расширенными возможностями (включая QR-коды).

Как установить и использовать:

  1. Скачайте шрифт (например, IDAutomationHC39M для Code 39) и установите его на компьютер.
  2. В Excel введите в ячейку данные, которые нужно закодировать. Для Code 39 обязательно добавьте в начале и конце символ * (например, 12345678).
  3. Выделите ячейку, перейдите на вкладку Главная → выберите установленный шрифт из списка.
  4. Увеличьте размер шрифта до 36–72 pt для чёткости сканирования.
⚠️ Внимание: Не все сканеры читают штрихкоды, сгенерированные через шрифты. Перед массовой печатью проверьте совместимость с вашим оборудованием! Особенно это касается Code 128, где важна точная ширина полос.

Установить шрифт на ПК|Добавить символы - для Code 39|Выбрать шрифт в Excel|Увеличить размер до 36+ pt|Проверить сканирование тестовым образцом-->

Способ 2: Формулы Excel для генерации штрихкодов (без надстроек)

Если шрифты не подходят (например, нужен EAN-13 с контрольной суммой), можно использовать формулы Excel. Этот метод требует немного больше усилий, но даёт гибкость: вы контролируете каждый символ кода, включая проверочные цифры.

Рассмотрим пример для EAN-13 (самый распространённый формат для товаров):

  1. В ячейке A1 введите 12 цифр (например, 460700123456).
  2. В ячейке B1 добавьте формулу для расчёта контрольной суммы: 
    =МОД(СУММ(ЛЕВСИМВ(A1;1)*1;СРЗНАЧ(ЛЕВСИМВ(A1;3)*1;ЛЕВСИМВ(A1;5)*1;ЛЕВСИМВ(A1;7)*1;ЛЕВСИМВ(A1;9)*1;ЛЕВСИМВ(A1;11)*1)*3)+СУММ(ЛЕВСИМВ(A1;2)*3;СРЗНАЧ(ЛЕВСИМВ(A1;4)*3;ЛЕВСИМВ(A1;6)*3;ЛЕВСИМВ(A1;8)*3;ЛЕВСИМВ(A1;10)*3;ЛЕВСИМВ(A1;12)*3)*1);10)
    Формула может выглядеть сложно, но она просто суммирует цифры с весами 1 и 3 по алгоритму EAN-13.
  3. В ячейке C1 объедините исходный код и контрольную сумму: 
    =A1&B1
  4. Примените к ячейке C1 шрифт IDAutomationEAN13 (если установлен).

Для Code 128 алгоритм сложнее — потребуется VBA или надстройка. Но если вам нужны только цифры, можно использовать бесплатный генератор от TBarCode, который вставляет штрихкоды как картинки.

Формат штрихкода Макс. длина Поддерживаемые символы Формула Excel
EAN-13 13 цифр Только цифры Требуется расчёт контрольной суммы
Code 39 Неограничено Цифры, буквы, символы - . $ / + % Добавить * в начало и конец
Code 128 Неограничено Все символы ASCII Требуется VBA или надстройка

Способ 3: Надстройки для Excel (автоматизация без формул)

Если вам нужно генерировать штрихкоды регулярно, надстройки сэкономят часы работы. Они интегрируются прямо в ленту Excel и позволяют создавать коды в один клик. Рассмотрим топ-3 решения:

  • 📌 TBarCode Office — платная надстройка (от $199), но с пробным периодом. Поддерживает QR-коды, DataMatrix и все стандартные линейные штрихкоды. Генерирует коды как картинки или векторы.
  • 📌 ActiveBarcode — бесплатная версия с ограничениями (например, водяной знак на печатных кодах). Умеет экспортировать в PDF и PNG.
  • 📌 Barcode Add-In for Excel от IDAutomation — плагин с поддержкой GS1-128 и PDF417. Идеален для логистики.

Как установить ActiveBarcode (бесплатный вариант):

  1. Скачайте установщик с официального сайта.
  2. Запустите установку и выберите интеграцию с Microsoft Office.
  3. Откройте Excel — на ленте появится новая вкладка ActiveBarcode.
  4. Выделите ячейки с данными → нажмите Insert Barcode → выберите формат (например, Code 128).
  5. Коды появятся рядом с исходными данными в виде картинок.
⚠️ Внимание: Бесплатные надстройки часто добавляют на печатные коды едва заметный водяной знак (например, логотип разработчика). Если вам нужны "чистые" этикетки для коммерческого использования, придётся купить лицензию.

EAN-13 (товарные этикетки)|Code 128 (логистика)|Code 39 (универсальный)|QR-код (ссылки, визитки)|Другой-->

Способ 4: VBA-скрипты для продвинутых пользователей

Если вы работаете с тысячами штрихкодов или нуждаетесь в кастомных решениях (например, генерация кодов по шаблону), VBA — ваш лучший друг. Скрипты позволяют:

  • 🔄 Автоматически создавать коды для всего столбца данных.
  • 🖼️ Сохранять штрихкоды как изображения с заданным разрешением.
  • 📤 Экспортировать этикетки в PDF или на принтер напрямую.

Пример скрипта для генерации Code 128 (требуется подключить библиотеку BarcodeLib):

Sub GenerateBarcode()

Dim ws As Worksheet


Dim rng As Range


Dim cell As Range


Dim barcode As Object



' Создаём объект для генерации штрихкодов


Set barcode = CreateObject("BarcodeLib.Barcode")



' Указываем лист и диапазон с данными


Set ws = ThisWorkbook.Sheets("Лист1")


Set rng = ws.Range("A1:A10") ' Диапазон с исходными данными



' Генерируем штрихкоды


For Each cell In rng


If cell.Value <> "" Then


barcode.Type = 12 ' Code 128


barcode.Data = cell.Value


barcode.SaveImage ws.Path & "\" & cell.Value & ".png", 300 ' Сохраняем как PNG с разрешением 300 DPI


End If


Next cell


End Sub

Чтобы этот код заработал:

  1. Скачайте BarcodeLib.dll и зарегистрируйте её в системе командой: 
    regsvr32 C:\путь\к\файлу\BarcodeLib.dll
  2. В Excel нажмите Alt + F11, вставьте скрипт в модуль.
  3. Запустите макрос (F5).
Как ускорить генерацию 10 000 штрихкодов?

Используйте массив данных вместо обработки каждой ячейки по отдельности. Например, загрузите все значения в массив VBA, а затем пакетно сгенерируйте изображения. Это сократит время выполнения с часов до минут. Также отключите обновление экрана во время выполнения скрипта:

Application.ScreenUpdating = False

' Ваш код здесь


Application.ScreenUpdating = True

Как распечатать штрихкоды из Excel: настройки и лайфхаки

Сгенерировать штрихкод — половина дела. Главное, чтобы он корректно печатался и сканировался. Вот ключевые моменты:

  • 🖨️ Разрешение печати: не менее 300 DPI (для мелких кодов — 600 DPI).
  • 📏 Размер: минимальная высота штрихкода — 10 мм (для EAN-13), ширина зависит от количества символов.
  • 🎨 Цвета: только чёрный код на белом фоне. Красно-зелёные "дизайнерские" штрихкоды не сканируются!
  • 📄 Бумага: для этикеток используйте матовые самоклеящиеся листы (глянцевая бумага даёт блики при сканировании).

Пошаговая инструкция по печати:

  1. Выделите диапазон с штрихкодами (или ячейками, где они сгенерированы как картинки).
  2. Перейдите на вкладку Файл → Печать.
  3. В настройках принтера выберите:
    • 🔘 Качество: Высокое (или 600 DPI).
    • 🔘 Масштаб: 100% (без уменьшения!).
    • 🔘 Ориентация: Альбомная (если коды широкие).
  • Для этикеток используйте функцию Макет страницы → Разметка, чтобы разместить несколько кодов на одном листе.
    • ⚠️ Внимание: Если штрихкоды печатаются как картинки, убедитесь, что в настройках принтера отключено "Экономия чернил" или "Быстрая печать". Эти режимы снижают контрастность, и сканер может не распознать код.

    Типичные ошибки и как их избежать

    Даже опытные пользователи Excel сталкиваются с проблемами при генерации штрихкодов. Вот TOP-5 ошибок, которые портят 90% проектов:

    1. Неверная контрольная сумма. Например, для EAN-13 последняя цифра рассчитывается по алгоритму, а не берётся произвольно. Если сумма неверна, сканер выдаст ошибку. Решение: используйте проверенные формулы или онлайн-калькуляторы.
    2. Слишком маленький или размытый код. Штрихкод высотой 5 мм может не сканироваться с первого раза. Решение: минимальная высота — 10 мм, печать с разрешением 300+ DPI.
    3. Использование нестандартных шрифтов. Шрифты типа Arial или Times New Roman не преобразуют текст в штрихкод! Решение: устанавливайте только специализированные шрифты (например, IDAutomation).
    4. Печать на цветном фоне. Штрихкод должен быть чёрным на белом. Зелёный код на красном фоне не распознаётся. Решение: проверяйте контрастность перед печатью.
    5. Отсутствие тихого поля (quiet zone). По стандарту вокруг штрихкода должно быть свободное пространство (минимум 3 мм с боков). Решение: добавьте отступы в макете этикетки.

      6. Как проверить штрихкод перед массовой печатью?

      • 🔍 Используйте бесплатные приложения для сканирования (например, Barcode Scanner для Android/iOS).
      • 💻 Онлайн-валидаторы типа Barcode Island.
      • 🖨️ Распечатайте тестовую этикетку и просканируйте её реальным оборудованием.

      FAQ: Частые вопросы по штрихкодам в Excel

      Можно ли создать QR-код в Excel без надстроек?

      Да, но с ограничениями. Самый простой способ — использовать бесплатные онлайн-генераторы (например, GOQR), которые создают QR-код по вашей ссылке или тексту. Затем сохраните картинку и вставьте её в Excel.

      Для автоматизации можно написать VBA-скрипт с использованием библиотек вроде MessagingToolkit.QRCode. Пример кода:

      Sub GenerateQR()

      Dim QR As Object
      

      Set QR = CreateObject("MessagingToolkit.QRCode.QRCodeEncoder")
      

      QR.QRCodeScale = 8
      

      QR.QRCodeData = "Ваш текст или ссылка"
      

      QR.QRCodeEncodeMode = 0 ' Byte mode
      

      QR.QRCodeErrorCorrect = 1 ' Средний уровень коррекции
      

      QR.QRCodeVersion = 0 ' Автоопределение версии
      

      QR.SaveImage "C:\QR.png"
      

      End Sub

      Но учтите: для работы скрипта потребуется установить библиотеку MessagingToolkit.

      Как сделать штрихкод для GS1 DataBar (бывший RSS)?

      GS1 DataBar — это компактный штрихкод, который используется для маркировки мелких товаров (например, фруктов или косметики). В Excel его можно сгенерировать только через:

      • 🔹 Платные надстройки (например, TBarCode).
      • 🔹 VBA с подключением внешних библиотек (например, Zen.Barcode.Rendering.Framework).

    Бесплатных шрифтов для DataBar нет из-за сложности алгоритма кодирования.

    Почему сканер не читает мой штрихкод?

    Причин может быть несколько:

    1. Низкое качество печати. Проверьте разрешение принтера и бумагу.
    2. Неправильный формат. Например, вы сгенерировали Code 39, а сканер настроен на EAN-13.
    3. Повреждённые штрихи. Если код помят или испачкан, сканер не распознает его.
    4. Отсутствует контрольная сумма. Для EAN-13 и UPC она обязательна.

    Для диагностики используйте приложение Barcode Scanner на смартфоне — оно покажет, какой именно символ не распознаётся.

    Можно ли экспортировать штрихкоды из Excel в PDF?

    Да, и есть несколько способов:

    • 🔹 Сохранение листа как PDF: Файл → Экспорт → Создать PDF/XPS. Подходит, если штрихкоды сгенерированы как картинки или через шрифты.
    • 🔹 Надстройки: ActiveBarcode и TBarCode умеют экспортировать коды в PDF с заданными параметрами (размер, разрешение).
    • 🔹 VBA: с помощью скрипта можно создать PDF для каждого кода отдельно: 
      Sub ExportToPDF()

      Dim ws As Worksheet
      

      Set ws = ThisWorkbook.Sheets("Лист1")
      

      ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Штрихкоды.pdf", Quality:=xlQualityStandard
      

      End Sub

    Как автоматически заполнить штрихкоды для 1000 товаров?

    Для массовой генерации:

    1. Создайте столбец с артикулами или названиями товаров.
    2. Используйте формулы для расчёта контрольных сумм (если нужен EAN-13).
    3. Примените VBA-скрипт для пакетной генерации кодов (пример см. в разделе про VBA).
    4. Для печати используйте функцию Макет страницы → Разметка, чтобы разместить несколько кодов на листе.

    Если товаров действительно много (10 000+), лучше использовать специализированное ПО типа BarTender или NiceLabel — оно оптимизировано для работы с большими объёмами данных.

    📖 Читайте также

    Как создать защищенный файл Excel: пароли и шифрование Узнайте, как создать защищенный файл Excel, установить пароли на открытие и редактирование, а также Как защитить лист Excel от копирования: 7 работающих способов Пошаговые инструкции по защите данных в Excel от копирования: пароли, макросы, скрытые листы и други Поиск решения в Excel: где найти и как включить надстройку Пошаговая инструкция, где в Excel 2010-2023 находится инструмент «Поиск решения» и как его активиров Как найти связь между данными в Excel — 7 работающих методов Пошаговые инструкции по поиску зависимостей, совпадений и связей между таблицами в Excel. Формулы, P Как в Excel найти связанные ячейки: 5 проверенных способов Пошаговое руководство по поиску зависимостей между ячейками в Excel: от простых инструментов до прод Как включить вкладку Разработчик в Excel 2016: инструкция Пошаговое руководство: как включить вкладку Разработчик в Excel 2016. Настройка интерфейса для работ