Создание ean 13 в excel

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

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

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

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

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

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

   

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

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

   

формула для генерации ean-13

norkin79 Дата: Воскресенье, 21.02.2021, 16:27 | Сообщение № 1 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Добрый день! Помогите создать формулу для генерации ean-13 как на сайте https://service-online.su/text/generator-shtrih-koda/ она полностью меня устраивает. Задача такая, в эксель есть две колонки: штрихкод и артикул, нужно-напечатав в ячейке артикул этот артикул сгенерировался в ean-13 в колонке штрихкод по формату как на сайте (пример: артикул R11010210 превращается в штрихкод 1101021000006). Заранее благодарю!   Ответить

Egyptian Дата: Воскресенье, 21.02.2021, 18:38 | Сообщение № 2 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Здесь обсуждали это.   Ответить

norkin79 Дата: Воскресенье, 21.02.2021, 19:12 | Сообщение № 3 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Наверно я не верно выразился, мне не сами штрихкоды нужны а цифровые значения штрихкода. То есть буквально из артикула сделать цифры штрихкода. «Для примера рассмотрим расчет контрольной суммы для штрих-кода под номером 215000000001Х, где Х — контрольная сумма. В числе используется 12 цифр, проведем расчет 13 знака: Сначала сложим все цифры, стоящие на четных местах: 1+0+0+0+0+0+1=2 Полученную сумму умножим на три: 2х3=6 Далее сложим цифры, стоящие на нечетных местах:2+5+0+0+0+0=7 Затем сложим полученные цифры в пункта 2 и 3: 6+7=13 Отбрасываем десятки, получим 3 Наконец, из 10 вычетаем число из п.5 и получаем контрольную сумму: 10-3=7″ Только у меня артикул короче чем 12 цифр, задача как раз состоит в том, что бы формула откидывала букву, основную часть артикула оставляла в штрих коде, подставляла нули вместо не достающих цифр и рассчитывала контрольную сумму. пример артикул R11010210 превращается в штрихкод 1101021000006 или артикул R11010201 превращается в штрихкод 1101020100004. Мне не нужно что бы эксель делала штрихкоды для печати (сами полосочки не нужны) только цифры.   Ответить

Egyptian Дата: Воскресенье, 21.02.2021, 20:02 | Сообщение № 4 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Так вам же вроде дали решение там же Кстати, по правилам этого форума, да и того тоже кроссы надо обозначать. Вот чуток подправленная формула от Игоря (чтобы тянулась). Код =IFERROR(RIGHTB(A2,LEN(A2)-1) & REPT(«0″,13-LEN(A2)) & ROUNDUP(SUMPRODUCT(MID(A2,ROW($A$2:INDEX($A$1:$A$100,LEN(A2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(A2))),2)*2+1)),-1)-SUMPRODUCT(MID(A2,ROW($A$2:INDEX($A$1:$A$100,LEN(A2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(A2))),2)*2+1)),»») Первый Артикул в А2, формулу в В2 и далее вниз… З.Ы. В целях уменьшения ресурсопотребляемости — диапазон ограничил до 100 записей. Можно легко увеличить, если нужно. Сообщение отредактировал Egyptian — Воскресенье, 21.02.2021, 20:05   Ответить

norkin79 Дата: Воскресенье, 21.02.2021, 21:10 | Сообщение № 5 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Спасибо за формулу, теперь не могу нормально работать с этим файлом, постоянно зависает и не отвечает (((   Ответить

Egyptian Дата: Воскресенье, 21.02.2021, 21:19 | Сообщение № 6 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 Выложите файл.   Ответить

norkin79 Дата: Воскресенье, 21.02.2021, 21:38 | Сообщение № 7 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Не знаю что было. Удалил все и заново вписал формулу, сейчас все хорошо. До этого файл открывался примерно минуту. Любое действие вызывало зависание.   Ответить

norkin79 Дата: Пятница, 26.02.2021, 21:30 | Сообщение № 8 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Egyptian, Добрый вечер! Огромное спасибо за формулу! Облегчили мне жизнь )) Не подскажите, что нужно поменять в Вашей формуле что бы добиться того же результата (тот же штрих код), если артикул немного видоизмениться: с R11010210 на 1R1010210? Спасибо!   Ответить

Egyptian Дата: Пятница, 26.02.2021, 23:18 | Сообщение № 9 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Как-то так. Код =IFERROR(RIGHTB(SUBSTITUTE(A4,»R»,»»,1),LEN(A4)-1) & REPT(«0″,13-LEN(A4)) & ROUNDUP(SUMPRODUCT(MID(A4,ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),2)*2+1)),-1)-1-SUMPRODUCT(MID(A4,ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),2)*2+1)),»»)   Ответить

Egyptian Дата: Пятница, 26.02.2021, 23:21 | Сообщение № 10 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Формула не моя, а Игоря Я ее лишь слегка подправил. артикул немного видоизмениться: с R11010210 на 1R1010210? Спасибо! Как-то так. Код =IFERROR(RIGHTB(SUBSTITUTE(A4,»R»,»»,1),LEN(A4)-1) & REPT(«0″,13-LEN(A4)) & ROUNDUP(SUMPRODUCT(MID(A4,ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),2)*2+1)),-1)-1-SUMPRODUCT(MID(A4,ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(A4))),2)*2+1)),»»)   Ответить

norkin79 Дата: Пятница, 26.02.2021, 23:55 | Сообщение № 11 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Egyptian, Теперь нужно артикул вписывать в А4? а саму формулу так же в В2?   Ответить

norkin79 Дата: Пятница, 26.02.2021, 23:57 | Сообщение № 12 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Egyptian, Хм, в генераторе штрих котов контрольная сумма другая: артикул 2R2110401 штрихкод 2211040100003 Ваша формула выдает 2211040100004 Причем первая формула так же считает как генератор артикул R22110401 штрихкод 2211040100003 а с артикулами R11010210 и 1R1010210 и первая и вторая формула считают одинаково 1101021000006 Сообщение отредактировал norkin79 — Суббота, 27.02.2021, 00:05   Ответить

Egyptian Дата: Суббота, 27.02.2021, 00:38 | Сообщение № 13 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Добавил определение впереди стоящего номера до 4-х. Артикул должен быть в ячейке D4. Можете переправить на другие ячейки. Код =IFERROR(—RIGHTB(SUBSTITUTE(D2,»R»,»»,1),LEN(D2)-1) & REPT(«0″,13-LEN(D2)) & ROUNDUP(SUMPRODUCT(MID(D2,ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),2)*2+1)),-1)-LOOKUP(—LEFT(D2,1),{1,2,3,4},{1,2,3,4})-SUMPRODUCT(MID(D2,ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),2)*2+1)),»») Бегло проверил на сайте, вроде правильно. С артикулами где R стоит впереди эта формула несовместима. Наверное можно заморочиться и сделать что-то универсальное, но мне если честно неохота Добавлено. Хотя нет, все таки заморочился, проверяйте универсальную формулу)) Код =IFERROR(IF(LEFTB(D2)=»R»,RIGHTB(D2,LEN(D2)-1),LEFTB(D2)&RIGHTB(D2,LEN(D2)-2)) & REPT(«0″,13-LEN(D2)) & ROUNDUP(SUMPRODUCT(MID(D2,ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),2)*2+1)),-1)-IF(LEFTB(D2)=»R»,1,LOOKUP(—LEFT(D2,1),{1,2,3,4},{1,2,3,4}))-SUMPRODUCT(MID(D2,ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),1)*(MOD(ROW($A$3:INDEX($A$1:$A$100,LEN(D2))),2)*2+1)),»») Поддерживает до 4 номеров впереди R. Сообщение отредактировал Egyptian — Суббота, 27.02.2021, 01:00   Ответить

norkin79 Дата: Суббота, 27.02.2021, 01:30 | Сообщение № 14 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Egyptian, Хех )) теперь наоборот 2211040100004=R22110401, а 2211040100003=2R2110401   Ответить

Egyptian Дата: Суббота, 27.02.2021, 01:47 | Сообщение № 15 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 norkin79, Выложите файл с несколькими правильными артикулами/кодами и я посмотрю в чем загвоздка.   Ответить

norkin79 Дата: Суббота, 27.02.2021, 02:33 | Сообщение № 16 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Проверил несколько артикулов, составил таблицу, если допустим взять артикул R41110407 и на конце его будет 07 (10, 17, 24, 31), то штрихкод выходит формата 411104070000-1, если 4R1110407 то 411104070000-4 К сообщению приложен файл: 1976429.xlsx (11.1 Kb)   Ответить

Egyptian Дата: Суббота, 27.02.2021, 04:05 | Сообщение № 17 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 Новый вариант с кучей костылей. Работает со всеми номерами, что были в файле (выделено фиолетовым), рядом проверенные через сайт номера, но честно говоря почти уверен, что 100% гарантии, что ничто и нигде не вылезет наверное не даст и сам автор)) Код =IFERROR(IF(LEFTB(D2)=»R»;RIGHTB(D2;LEN(D2)-1);LEFTB(D2)&RIGHTB(D2;LEN(D2)-2)) & REPT(«0″;13-LEN(D2)) & ROUNDUP(SUMPRODUCT(IFERROR(MID(D2;ROW($A$2:INDEX($A$1:$A$100;LEN(D2)));1)*(MOD(ROW($A$2:INDEX($A$1:$A$100;LEN(D2)));2)*2+1);0));-1)-IF(LEFTB(D2)=»R»;;LOOKUP(—LEFT(D2;1);{1;2;3;4;5};{1;2;3;4;5}))-SUMPRODUCT(IFERROR(MID(D2;ROW($A$2:INDEX($A$1:$A$100;LEN(D2)));1)*(MOD(ROW($A$2:INDEX($A$1:$A$100;LEN(D2)));2)*IFERROR(LOOKUP(—LEFT(D2;1);{4;5};{1;1});2)+IFERROR(LOOKUP(—LEFT(D2;1);{4;5};{0,5;0,5});1));0))-IFERROR(IF(—LEFT(D2;1)=4;10;0);0);»») К сообщению приложен файл: shtrix.xlsx (12.8 Kb)   Ответить

norkin79 Дата: Суббота, 27.02.2021, 12:58 | Сообщение № 18 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Egyptian, Добрый день! Спасибо за труды, но (((… например артикул 3R1110407 выдает 311104070000-3, артикул 5R1110411 показал совсем длинное число 51110411000013,5; с этим артикулом 5R1110410 только если на конце 10 выдает правильное значение, если любая другая (проверял от 01 до 12) выдает количество цифр больше и где то с запятой.   Ответить

norkin79 Дата: Суббота, 27.02.2021, 13:03 | Сообщение № 19 Группа: Пользователи Ранг: Новичок Сообщений: 22 Репутация: 0 ± Замечаний: 0% ± Может быть построить как то формулу которая исключала бы буквы, а цифры складывала как в формуле расчета штрихкода из третьего поста. ПС артикул будет постоянный формата ХRХХХХХХХ (1R2345678) то есть восемь цифр и одна буква на втором месте.   Ответить

Egyptian Дата: Суббота, 27.02.2021, 15:12 | Сообщение № 20 Группа: Проверенные Ранг: Обитатель Сообщений: 473 Репутация: 162 ± Замечаний: 0% ± Excel 2013/2016 ПС артикул будет постоянный формата ХRХХХХХХХ (1R2345678) то есть восемь цифр и одна буква на втором месте. Ну если постоянный то можно без извращений)) Код =IFERROR(LEFTB(E2)&RIGHTB(E2,LEN(E2)-2) & REPT(«0″,13-LEN(E2)) & ROUNDUP(SUMPRODUCT(MID(REPLACE(E2,2,1,LEFTB(E2)),ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),2)*2+1)),-1)-SUMPRODUCT(MID(REPLACE(E2,2,1,LEFTB(E2)),ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),2)*2+1)),»») Ну и еще попытка универсальной формулы напоследок)) Алгоритм неизменен. Код =IFERROR(IF(LEFTB(E2)=»R»,RIGHTB(E2,LEN(E2)-1),LEFTB(E2)&RIGHTB(E2,LEN(E2)-2)) & REPT(«0″,13-LEN(E2)) & ROUNDUP(SUMPRODUCT(MID(IF(LEFTB(E2)=»R»,E2,REPLACE(E2,2,1,LEFTB(E2))),ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),2)*2+1)),-1)-SUMPRODUCT(MID(IF(LEFTB(E2)=»R»,E2,REPLACE(E2,2,1,LEFTB(E2))),ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),1)*(MOD(ROW($A$2:INDEX($A$1:$A$100,LEN(E2))),2)*2+1)),»») К сообщению приложен файл: 9321182.xlsx (13.4 Kb) Сообщение отредактировал Egyptian — Суббота, 27.02.2021, 15:49   Ответить

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

Генератор штрих-кодов

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

Системы штрих-кодирования товаров, цифры штрих-кода

Для обычного человека нет принципиальной разницы между разными системами штрихкодирования товаров. Тем не менее, стандартной является та, которая имеет код EAN13. Первые три буквы в начале означают European Article Number, что переводится, как «Европейский Код Товара». Впрочем, эта система используется не только европейскими странами, но и везде. Структура штрих-кода этого типа следующая. В его состав входит тринадцать цифр, которые разделяются на несколько блоков:

1. Первые три из них указывают на страну производителя. Так, по коду 460-469 мы понимаем, что продукция была изготовлена в России.
2. Далее идут четыре цифры, которые указывают на производителя этой продукции.
3. Пять цифр, которые следуют за ними, обозначают код товара по той системе классификации, которая была разработана в организации, которая предлагает этот товар.
4. Последнее число рассчитывается по определенному механизму и необходима в качестве контрольной.

Таким образом, алгоритм штрих-кода очень четкий и нельзя его придумывать самостоятельно. Если попытаться воспользоваться сканером штрих-кодов, он выдаст ошибку, потому что алгоритм разработан исходя из имеющегося стандарта.

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

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

Итак, для генерации штрих-кодов в Excel необходимо скачать специальный файл (он полностью бесплатный) и открыть его. В скачанном архиве будет три файла:

1. Инструкция. Здесь находится инструкция по использованию генератора штрих-кодов. Можно ее не открывать, если внимательно прочитать эту статью.
2. ean13.ttf. Это шрифт, который нужно установить перед тем, как создать штрих-код.
3. Генератор штрих кодов.xls – документ, позволяющий генерировать штрих-код.

После скачивания архива, его необходимо распаковать, а потом инсталлироввать шрифт, требуемый для выполнения поставленной нами задачи. Сам генератор штрихкодов находится по этой ссылке. https://www.tirika.ru/files/generator-shtrih-kodov.zip

Установка в Windows шрифта EAN13.ttf

Последовательность действий, необходимая для установки шрифта, несколько отличается. В последних версиях Windows отсутствует специальная кнопка для добавления шрифта, поэтому это нужно сделать другим методом.

Windows XP, более ранние версии ОС

Так, если у Вас операционная система Windows XP, нужно осуществить такие действия:

1. Нажать на кнопку «Пуск», после чего перейти в Панель Управления. В ней нужно найти кнопку «Шрифты» и нажать на нее. 
2. Далее перед глазами откроется окно со шрифтами. В нем нужно найти кнопку «Добавить новый шрифт» и выбрать наш файл со шрифтом в папке, куда был распакован скачанный на предыдущем этапе архив.

Windows 7, Windows Vista

Если у Вас Windows Vista и старше, в диалоговом окне выбора шрифтов нет кнопки «Добавить шрифт». Поэтому его нужно скопировать в перечень шрифтов вручную. Для этого надо открыть проводник и перетащить его туда так же, как и в какую угодно другую папку.

Запуск генератора штрих-кодов и его использование

Теперь наш шрифт установлен в Windows. После этого можно приступить к генерации штрих кодов с помощью одноименного файла в распакованном архиве. На этом этапе у пользователя может возникнуть такая проблема.

По умолчанию для всех скачанных с интернета документов Excel автоматически выключает макросы, потому что они могут содержать вредоносный код. Дело в том, что программа Excel не только умеет создавать электронные таблицы, а поддерживает полноценное программирование. Язык, с помощью которого разрабатываются эти мини-приложения, называется VBA, что расшифровывается, как Visual Basic for Applications. Собственно, макросом называется программа, написанная на этом языке. С их помощью можно реализовать почти любую хотелку в электронных таблицах. Но некоторые пользователи разрабатывают плохие программные модули, поэтому разработчики Excel отключили их по умолчанию.

Файл, скачанный ранее, также является программой, написанной для Microsoft Excel. Здесь отсутствует вредоносный код, поэтому можно смело разрешать приложению открывать эти исполняемые модули. Если вы все же не очень доверяете макросам, скачанным с неизвестных источников, то можно просто удалить этот файл. Если их не включить, он не будет работать. Если вы доверяете файлу, то активируйте макросы, после чего нужно указать ряд несложных настроек. 

Давайте разберем эти параметры более подробно:

1. Сколько штрихкодов создать. Здесь нужно указать число кодов, которые надо нам распечатать. Например, нам нужно 100 штук. Столько и вносим в ячейку.
2. Номер первого штрихкода. После запуска программы рекомендуется писать цифру 1, поскольку именно с этого числа и будет осуществляться нумерация штрих-кодов. Если же ранее уже сделано 100 штук, то можно в качестве первого номера написать число 101, после чего все следующие штрих-коды будут нумероваться с этой цифры.
3. Префикс штрихкодов. Пользователь может создавать штрих-коды, находящиеся в диапазоне между 200 и 299, которые предназначены для более произвольных маркировок товаров. Например, вы можете предусмотреть для продукции код 200, а для скидочных карт – 299. С помощью этой настройки пользователь может создавать отдельные коды для отдельных типов потребностей клиентов.

После ввода параметров генератора штрихкодов, нам необходимо нажать на кнопку «Создать штрихкоды». После этого будет создан отдельный лист, в котором будут перечислены наши штрихкоды в первой колонке. Все шрифты будут нарисованы с использованием установленного ранее шрифта.

Далее эта страница может быть распечатана, а потом ее можно и удалить. Если по тем или иным причинам штрих-коды оказываются ненужными, их можно убрать и ранее, поскольку всегда их можно сгенерировать заново. Зачем занимать лишнее место на диске?

По какому принципу работает этот генератор? После нажатия пользователем кнопки «Создать штрихкоды» создается новый лист, а одна из колонок заполняется сгенерированными штрих-кодами. Чтобы это сделать, сначала программа обрабатывает ту информацию, которая была указана пользователем на этапе настроек. Чтобы создать первую картинку, сначала берется префикс, который указал пользователь, после чего добавляет к нему первый номер, а потом добавляет определенное количество нулей. Сколько именно вставляется – определяется таким образом, чтобы получилась числовая последовательность в 12 символов. После этого рассчитывается последняя цифра, которые, как мы помним, генерируется по определенному алгоритму.

В результате, появляется 13-символьное число, записываемое в первую ячейку первого столбика листа, который был создан программой, после чего в ячейку B1 она добавляется, а для ячейки выставляется шрифт EAN13. После выполнения этих действий происходит создание второго штрихкода, которое выполняется по такому же алгоритму. Единственное исключение – номер увеличивается на единицу от предыдущего. Если сначала это было 1, то потом – 2, и так далее.

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

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

А что если мы не хотим пользоваться чужими исполняемыми модулями, а хотим уметь делать такие коды самостоятельно? Для этого есть множество методов: создание собственной подпрограммы Excel, специализированный инструмент Active X и скачивание модулей, созданных другими пользователями.

Для начала можем установить специальный шрифт. Есть несколько шрифтов – не только тот, который мы скачивали ранее. Также по этому адресу можно найти специальную надстройку, предназначенную для достижения поставленной задачи. http://www.idautomation.com/font-encoders/word-excel-addin/.

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

1. Перейти по адресу http://www.idautomation.com/font-encoders/vba-macro/ и там найти исполняемый файл «VBA Macros for Excel & Access». 
2. После этого скачиваем файл по ссылке, которая находится на этой странице.
3. Далее будет скачан архив, который необходимо разархивировать.
4. После этого открываем редактор Visual Basic с помощью комбинации клавиш Alt + F11. Сверху будет поле, в котором нам нужно нажать на кнопку «Файл». С помощью меню «Импортировать файл» нам нужно найти через специальное диалоговое окно файл, который мы скачали на предыдущих этапах и открыть его. Называется он IDAutomation.bas.
5. С помощью этого модуля программа добавляет все необходимые компоненты для создания штрих-кодов.
6. Его можно найти в папке «Модули».
7. Далее мы переходим в обычный лист, после чего записываем код в ячейку. После этого активируем макрос через пункт «Разработчик» и запускаем его.
8. Мы сгенерировали 8-значный штрих-код. Есть же и другой макрос,который содержит 13 знаков. Он вставляется и выполняется аналогичным образом.

Дальше нам осталось только распечатать штрих-код и проверить его. Не забудьте перед этим убедиться, что применяются подходящие шрифты.

Процесс создания штрих-кода в Excel пошагово

Есть еще один метод создания штрих-кода в Excel – создание собственного макроса. Также можно добавить элемент Active X. В Excel 2007 версии и новее это делается следующим образом:

1. Переходим в раздел «Параметры», который находится в меню «Файл». Активируем функцию отображения вкладки «Разработчик» (нужно поставить соответствующую галочку).
2. Если мы все сделали правильно, перед нами должна появиться вкладка «Разработчик». Там ищем кнопку «Вставить». Появится меню. В нем выбираем «Элементы управления ActiveX». После этого появится еще одно подменю, где нас интересует пункт «Другие элементы управления».
3. Если соответствующий элемент установлен в компьютере, нам нужно найти объект StrokeScribe Object. После этого делаем левый клик по кнопке «ОК».
4. Далее необходимо нанести объект на лист. Чтобы это сделать, нужно на нем нарисовать прямоугольник, размеры которого соответствуют размерам объекта, который должен быть на листе.
5. После этого на странице появится штрих-код, который мы можем настроить через меню «Свойства».

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

Таким образом, эта процедура не такая сложная, как может показаться на первый взгляд. Уже все сделано за пользователя заботливыми программистами. Можно скачать отдельный файл, макрос, который можно использовать в собственной книге или же воспользоваться элементом Active X и создавать собственный макрос. Тем не менее, последний способ является довольно продвинутым, поэтому требует специальных навыков. А чтобы их развить, нужно изучить теорию, которая будет предметом отдельной статьи.

помогите разобраться со шрифтом ean13.ttf для печати штрих кода

​Смотрите также​​Михаил С.​ помочь Вам.​ШАГ 2: Полученную​: Не знаю я​: Вариант 1: выделяем​Юрий М​
​Юрий М​ рисуется и все,​: Добрый день!​ строки. Детектор посылает​ «Вставить» — «Элементы​

​ папке Windows VBA​​ буду доступны в​: однако, в excel​

​Скрытый текст =СЦЕПИТЬ(ЗНАЧЕН(ПСТР(A1;1;1));СИМВОЛ(ЗНАЧЕН(ПСТР(A1;2;1))+65);ЕСЛИ(ЗНАЧЕН(ПСТР(A1;1;1))​​ zip архиве ?​sol ant​: Так?​

​evd​​ сумму умножить на​ такой кодировки.​ ячейки А1 и​

​: Поправка: на втором​​: Дополнение: заметил опечатку​ вроде бы, здорово.​Читали?​

​ символ Enter, что​​ управления ActiveX». Выбираем​ выбираем IDAutomation.bas. Импортированный​
​ Excel на панели​ штрих-код можно и​sol ant​
​ т.к. на работе​

​: стоит задача напечатать​​KuklP​: evd, может стоит​ 3.​Kifsif​ А2. Далее -​ листе в примечании​

​ во втором примечании:​​ но сканер не​Vologd​

planetaexcel.ru

помогите разобраться со шрифтом ean13.ttf для печати штрих кода

​ заставляет курсор перейти​​ «Другие элементы управления».​ модуль «добавляет» в​ «Главная»-«Шрифт».​ без всяких шрифтов​: Alexander88, спасибо. Могли​ нет архиватора rar​
​ массу штрих кодов.​: Ваш файл.​ выложить Ваш пример,​ШАГ 3: Начиная​: Мне кажется, с​

​ инструмент камера и​​ исправьте 12 на​ исправьте 13 на​

​ читает такие штрихи.​​: Ладно, надо завязывать​ в следующую строку.​В открывшемся меню находим​

​ книгу Excel шрифты​​Пару шрифтов-штрихкодов можно скачать​ сделать​ бы вы выложить​

​Alexander88​​ Нашел шрифт ean13,​evd​ что есть -​

​ со 3-го сложить​​ upc это работать​ получаем копию, которую​
​ 7.​ 8.​ нашел информацию, что​
​ тогда) Все мен​

​Ряд моделей сканеров работает​​ StrokeScribe Objekt. Нажимаем​ и функции, чтобы​ в конце статьи​Code39, EAN8, EAN13​ вместо rar в​: Почему бы и​

​ но не могу​​: Обратите внимание как​ что надо. А​

planetaexcel.ru

Шрифт штрих-кода

​ значения всех НЕЧЕТНЫХ​​ не будет.​
​ можно масштабировать.​
​Guest​Boss​
​ штрихкод, например, 2200000205773​ под стандарты гонят((​
​ как клавиатура. При​ ОК. Рисуем мышью​
​ преобразовывать набор цифр​Так же можно скачать​
​Nic70y​ zip архиве ?​
​ нет..​ разобраться в алгоритме​ они нумеруются!​
​ то из Вашего​

​ разрядов.​​Попробуйте — 0019048187055.​
​Вариант 2: Скрываем​: про уменьшение! масштаб​: вот-вот! я невнятный!​ на самом деле​Но все равно​

​ вводе кода данные​​ прямоугольник в любом​ и букв в​

​ по адресу http://www.idautomation.com/font-encoders/word-excel-addin/​​: походу тема становиться​ т.к. на работе​sol ant​ его действия.​
​Пронумеровать все разряды​

​ поста, применительно к​​ШАГ 4: Сложить​Первый ноль уже​
​ строки, на которых​ всего лишь позволит​
​ именно это и​ должен записываться в​ спасибо.​ сразу попадают в​​ месте страницы.​

excelworld.ru

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

​ штрих-код.​ надстройку для ввода​ «экселевской»​ нет архиватора rar​: стоит задача напечатать​напишите, пожалуйста, каким​ СПРАВА НАЛЕВО от​ примеру Юрий М​ результаты, полученные во​

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

​ добавлен — это​ находится кнопка (или​ распечатать штрих меньше​ нужно​ экселе под этим​п.с.мой вопрос заключался​ активную ячейку листа.​Появляется штрих-код. Открываем меню​После импорта он появляется​ штрихкодов в программе​(надеюсь модераторы решат/​

​Alexander88​ массу штрих кодов.​ образом происходит соотношение​ 1 до 14,​ мне, лично, ничего​ 2 и 3​ уже преобразование в​

​ временно удаляем её).​ размером на листе,​

​Юрий М​ шрифтом как Mx20AA0AXcafhhdx.​ в том, как​Скачать макрос генератор штрих​ правой кнопки мыши.​

​ в папке «Модули».​ Excel или Word.​ или не решат)​: Почему бы и​ Нашел шрифт ean13,​ букв к печатаемому​ НАЧИНАЯ С ПОЗИЦИИ​

1. ​ не понятно. Или​ шагах.​ EAN13.​- Меню Правка​ а я спрашивал​: Если будет нетрудно​вопрос вот в​
2. ​ прописать штрих-код символами…​ кодов в Excel​ «Свойства». Alphabet –​
3. ​Далее нужно выйти из​Перед началом работы убедитесь,​стырил формулу (для​
4. ​ нет..​ но не могу​ коду в данном​ КОНТРОЛЬНОГО РАЗРЯДА (1-Й).​ это я так​ШАГ 5: Значение​evd​ — Перейти -​
5. ​ в смысле -​ — отпишитесь, пожалуйста,-​ чем — где​ без графических рисовалок​Скачать шрифты штрих-кодов​ для выбора типа​ редактора Visual Basic.​ что в программе​ шрифта Code EAN13),​
6. ​Nic70y​ разобраться в алгоритме​
7. ​ шрифте.​evd​ торможу… Устал с​ контрольного разряда является​: Здравствуйте. Файлик Ваш​ Выделить — Объекты.​
8. ​ как его выделить​ нормально ли сканер​ достать информацию как​KSV​

​Для ряда устройств требуется​ штрих-кода.​ В ячейку A2​ Excel доступен Visual​ но она мне​: Всем здрасте!​ его действия.​

​Юрий М​: Нет, не так.​ работы. В любом​

​ наименьшим числом, которое​ посмотрела.​- Зажимаем Shift​

1. ​ и переносить в​ работает с такими​ в эксэле шифровать​: ну, вы знаете,​ специальная надстройка: стандартное​
2. ​Чтобы нарисованный код «заработал»​ ввести пробный код​ Basic. А в​ не понравилась, сократил:​
3. ​Подскажите тупорылому пжл.​напишите, пожалуйста, каким​: А Excel здесь​У меня всё​ случае, помогите нам​
4. ​ в сумме с​У меня стоит​ — Меню Правка​ другой файл, но​ штрих-кодами?​

​ и заносить цифры​ этот вопрос даже​ меню не справится​ (адаптировался под введенные​

​ (например, 11223344) и​

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

​ настройках безопасности –​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЛЕВБ(A2)&СИМВОЛ(ПСТР(A2;2;1)+65)&СИМВОЛ((—ЛЕВБ(A2)>3)*10+65+ПСТР(A2;3;1))&СИМВОЛ(ПСТР(A2;4;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);»0478″))*10)&СИМВОЛ(ПСТР(A2;5;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);»01459″))*10)&СИМВОЛ(ПСТР(A2;6;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);»02567″))*10)&СИМВОЛ(ПСТР(A2;7;1)+75-ЕЧИСЛО(ПОИСК(ЛЕВБ(A2);»03689″))*10)&»*»&СИМВОЛ(ПСТР(A2;8;1)+97)&СИМВОЛ(ПСТР(A2;9;1)+97)&СИМВОЛ(ПСТР(A2;10;1)+97)&СИМВОЛ(ПСТР(A2;11;1)+97)&СИМВОЛ(ПСТР(A2;12;1)+97)&СИМВОЛ(ПСТР(A2;13;1)+97)&»+»​Какой шрифт соот.​ образом происходит соотношение​ причём?​ правильно сделано. Разряды​ помочь Вам.{/post}{/quote}​ величиной, полученной в​ задача просто найти​ — Копировать рисунок.​ при этом его​Boss​

​ кода, чтобы все​ между строк не​ с задачей.​ пользователем цифры), нужно​ нажать «Разработчик»-«Макрос».​ сняты ограничения для​При ведении учета в​ реальным штрих-кодам,​ букв к печатаемому​sol ant​ нужно смотреть в​Вот.​ шаге 4, дает​

​ контрольную цифру для​- Выделяем какую-нибудь​ надо уменьшать сам​: проверю сразу на​ было читабельно для​

​ читался ни здесь:​Vologd​

​ писать макрос.​

​В появившемся меню выбираем​ макросов.​ торговле, создании личных​которые нарисованы на​

exceltable.com

формирование штрих-кода в шрифте EAN13 (Формулы/Formulas)

​ коду в данном​​: при том что​ строке 1.​В последнем столбце​ число, кратное 10.​ каждого штрих-кода EAN13.​ ячейку, зажимаем Shift,​ по себе, т.к.​ стационарном считывателе и​ сканеров??​Цитата​: Прошу помощи. Мне​​ макрос для генерации​Откройте сайт http://www.idautomation.com/font-encoders/vba-macro/. В​ каталогов используются штрих-коды.​ товаре?​ шрифте.​ в Excel нужно​evd​ должна быть контрольная​Но всё у​

​Записаны эти коды​​- Меню Правка​
​ у ценников мало​

​ ручном. отпишусь сюда​​Юрий М​Vologd, 08.09.2015 в​ нужен алгоритм формирования​
​Процесс подключения зависит от​ 8-ми значного штрихкода​
​ списке бесплатных продуктов​ Для их последующего​Их в нете​Юрий М​

​ сделать бар коды​​: Да, Михаил, так!​ цифра. Для первой​ меня запнулось на​ в столбик. Их​​ — Вставить рисунок​​ места. а то​ и на [email protected]​: В своё время​ 09:02, в сообщении​ штрих-кода в шрифте​ модели сканера и​​ и нажимаем «выполнить».​​ найдите «VBA Macros​ считывания существуют сканеры.​ полно всяких,​: А Excel здесь​Максим Зеленский​ Спасибо большое. Не​ строки со штрих-кодом​

excelworld.ru

Штриховые коды EAN/UPC

​ последнем шаге:(​​ много (порядка 5000).​ — Как на​ он рисуется отдельными​Boss​ где-то нашёл этот​ № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>Мне нужен​ EAN13. Меня выгнали​ его возможностей. Иногда​Следующий этап – печать​ for Excel &​ А создать можно​установил какой-то Code​ причём?​: вообще-то EAN-13 букв​ скачала вначале Ваш​ получается цифра 7.​
​Подскажите плиз или​ Вот надо рядом​ экране​ линиями, не переносить​: Все отлично рисуется​ файл. 13 и​ алгоритм формирования штрих-кода​ с форума делфи​

​ ничего делать не​​ штрих-кода из Excel​ Access». (Данный файл​ с помощью программных​ EAN13​sol ant​ не содержит, только​

​ файл и начала​​ (33+7=40)​ макрос или формулу….​ в столбик код​Теперь имеем рисунок,​ же его теперь​ и также точно​

​ 8-значные штрих коды.​​ в шрифте EAN13​ «поганой метлой» сказали,​ нужно. Достаточно подключить​ для проверки правильности​ также можно скачать​ продуктов разработанных специально​

​шо то не​​: при том что​ цифры.​ писать ответы на​KuklP​

​evd​​ уже с контрольной​ который можно копировать,​ по каждой!​

​ снимается сканерами! спасибо.​​ Проверить возможности нет.​ ни здесь​ что надо в​ сканер к компьютеру,​ кодировки. То есть​

​ в конце статьи).​​ для Excel.​ то походу…​ в Excel нужно​Z​

​ другой, неправильный.​​: evd, «ШАГ 3:​: Вопрос выше​ цифрой. Как вытащить​ масштабировать…​Guest​ скажите только одно​ Может пригодится?​Цитата​ битовом коде формировать​

​ используя включение «разъем​​ напечатать коды можно​Нажмите на ссылку и​Сформировать генератор штрих-кодов в​наверное туплю, первый​ сделать бар коды​: Продолжите развитие мысли,​KuklP​ Начиная со 3-го​

​KuklP​​ из вашего макроса​Guest​: если уж совсем​ — как сам​

​Boss​​Vologd, 08.09.2015 в​ графический текст. Но​ клавиатуры», и открыть​ только тогда, когда​ скачайте продукт на​ Excel можно разными​ раз играюсь со​Максим Зеленский​ пжлста, — зачем,​: Ну да, ну​ сложить значения всех​: evd, может стоит​ подсчёт этой цифры​: ну подскажите же​ быть точным и​ полученный штрихкод уменьшать​: очень поможет! так​ 09:02, в сообщении​

​ я хочу добить​​ во время работы​ используются специальные шрифты.​ свой компьютер.​ способами: с помощью​ сканером.​: вообще-то EAN-13 букв​ что далее?..​ да. Вон Михаил​ НЕЧЕТНЫХ разрядов» -​ выложить Ваш пример,​ я не разобралась.​ мне уже макрос​ упростить задачу, то​

​ в размере? а​​ что ли все​ № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>Вот мой​ эту тему все-таки..​ книгу Excel (должен​Еще один способ формирования​Программа стачивается архивом. Разархивируйте​
​ макроса, инструмента ActiveX​з/р спс.​ не содержит, только​Alexander88​
​ отписался. Он по​ у Вас начиная​ что есть -​
​ Алгоритм подсчёта я​ по второму посту?​ нужен макрос, который​
​ то там все​ возможные штрихкода записаны??​
​ вопрос заключается в​ в экселе используется​ быть установлен USB-драйвер​ штрих-кодов – написать​
​ файл с названием​ и разработанных модулей.​krosav4ig​

​ цифры.​​: Когда-то делал формулой,​ сравнению со мной(в​ с первого. Если​
​ что надо. А​ знаю:​чтобы я вносил​ будет обычный набор​ полоски отдельно!​ или расписано как​ том, каким образом​ шрифт EAN13 и​ сканера).​

​ макрос (реализовано тут).​​ «BarcodeFunctions.zip».​ Рассмотрим на примере​

​: Добрый вечер.​​Z​ без VBA​ формулах), Бог -​
​ по Вашим условиям,​
​ то из Вашего​Пронумеровать все разряды​ в ячейку обычный​ цифр штрихкода (типа​

​ — Масштаб -​​: Не понял вопрос.​

​: Добрый день, столкнулся​​ вопрос заключается в​ его в набор​Нажать кнопку «Файл» -​ В верхнем поле​ расценивать статью как​ для этих шрифтов​Alexander88​Скрытый текст =СЦЕПИТЬ(ЗНАЧЕН(ПСТР(A1;1;1));СИМВОЛ(ЗНАЧЕН(ПСТР(A1;2;1))+65);ЕСЛИ(ЗНАЧЕН(ПСТР(A1;1;1))​ замечаний. Не, Сначала​ шага5: 9 и​ не понятно. Или​ КОНТРОЛЬНОГО РАЗРЯДА (1-Й).​ его в зашифрованный​ уменьшать ничего не​

​ установить нужный? Я​​ Имеется макрос, который​ с проблемой -​ том, каким образом​ цифр. Во время​ «Параметры». В основных​ нажмите кнопку File.​ рекламную нельзя.​ выкладывал​: Когда-то делал формулой,​sol ant​ вариант Михаила:-)​ -1. Какое нужно?​ это я так​ШАГ 1: Начиная​
​ для сканера! т.е.​
​ придется (см.предыдущий пост)​ ведь не знаю​ переводит информацию, введённую​ при ручном наборе​ взаимосвязаны буквы и​ работы в активную​

​ параметрах – поставить​​ Нам нужно импортировать​Самый простой способ это​Nic70y​ без VBA​: Alexander88, спасибо. Могли​KuklP​KuklP​ торможу… Устал с​ со 2-го сложить​ не надо полосочки​ и эксель сам​ разрешающую способность сканера​

​ при помощи цифр,​​ штрихкода, при имеющемся​ цифры. Надеюсь, поможете​

​ ячейку вставляется числовое​​ галочку «Показывать вкладку​

​ загруженный из Интернета​​ установить в Windows​

​: Андрей, спасибо, обязательно​​Где-то есть и​ бы вы выложить​
​: Михаил, снимаю шляпу.​: Попробуйте в ячейку​ работы. В любом​ значения всех ЧЕТНЫХ​ рисовать, просто текстом!​

​ нарисует читабельный штрих-код.​​ — попробуйте экспериментальным​
​ в код, понятный​ в экселе шрифте​ разобраться, спасибо.​ значение, считываемое устройством,​

​ «Разработчик» на ленте.​​ код.​ шрифты штрих кодов​ «поиграюсь»​ для нахождения 13​ вместо rar в​ Респект.​

​ R2 =ОКРВВЕРХ(Q2;10)-Q2. Так?​​ случае, помогите нам​ разрядов.​Юрий М​Юрий М​ путём.​ сканеру.​ Code EAN/UPC, картинка​KSV​ и срабатывает перевод​Вкладка «Разработчик». Находим кнопку​

​Находим скачанный файл. В​​ и тогда они​krosav4ig​

planetaexcel.ru

​ цифры​

BMP (Bitmap Image File)

CDR (CorelDRAW Image File)

CMX (CorelDRAW Metafile Exchange Image File)

CSV (Comma Separated Values File)

DOC (Microsoft Word Document)

DOCM (Word Open XML Macro-Enabled Document)

DOCX (Microsoft Word Open XML Document)

DOT (Word Document Template)

DOTM (Word Open XML Macro-Enabled Document Template)

DOTX (Word Open XML Document Template)

GIF (Graphical Interchange Format File)

JPEG (JPEG Image)

JPG (JPEG Image)

ODP (OpenDocument Presentation)

ODS (OpenDocument Spreadsheet)

ODT (OpenDocument Text Document)

OTP (OpenDocument Presentation Template)

OTS (OpenDocument Spreadsheet Template)

OTT (OpenDocument Document Template)

PDF (Portable Document Format File)

PNG (Portable Network Graphic)

POTM (PowerPoint Open XML Macro-Enabled Presentation Template)

POTX (PowerPoint Open XML Presentation Template)

PPS (PowerPoint Slide Show)

PPSM (PowerPoint Open XML Macro-Enabled Slide)

PPSX (PowerPoint Open XML Slide Show)

PPT (PowerPoint Presentation)

PPTM (PowerPoint Open XML Macro-Enabled Presentation)

PPTX (PowerPoint Open XML Presentation)

RTF (Rich Text Format File)

SVG (Comma Separated Values File)

TIF (Tagged Image File)

TIFF (Tagged Image File Format)

WEBP (WebP Image)

WMF (Windows Metafile)

XLSB (Excel Binary Spreadsheet)

XLSM (Excel Open XML Macro-Enabled Spreadsheet)

XLSX (Microsoft Excel Open XML Spreadsheet)

XLTM (Microsoft Excel Macro-Enabled Template)

XLTX (Excel Open XML Spreadsheet Template)