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

Пользователь

Сообщений: 169 Регистрация: 01.01.1970

17.11.2014 10:31:14

стоит задача напечатать массу штрих кодов. Нашел шрифт ean13, но не могу разобраться в алгоритме его действия.
напишите, пожалуйста, каким образом происходит соотношение букв к печатаемому коду в данном шрифте.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 17.11.2014 10:33:09 А Excel здесь причём?

sol ant Пользователь Сообщений: 169 Регистрация: 01.01.1970	#3 17.11.2014 11:03:31 при том что в Excel нужно сделать бар коды Изменено: sol ant - 17.11.2014 11:03:40

Максим Зеленский Пользователь Сообщений: 4663 Регистрация: 11.06.2014 Microsoft MVP 2018-2022	#4 17.11.2014 11:25:01 вообще-то EAN-13 букв не содержит, только цифры. F1 творит чудеса

Пользователь

Сообщений: 6111 Регистрация: 21.12.2012

Win 10, MSO 2013 SP1

17.11.2014 11:28:00

Цитата
sol ant пишет: при том что в Excel нужно сделать бар коды

Продолжите развитие мысли, пжлста, - зачем, что далее?..

Изменено: Z - 17.11.2014 11:28:16

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Alexander88

Пользователь

Сообщений: 400 Регистрация: 02.09.2014

17.11.2014 11:28:43

Когда-то делал формулой, без VBA

Где-то есть и для нахождения 13 цифры

Скрытый текст

Код

=СЦЕПИТЬ(ЗНАЧЕН(ПСТР(A1;1;1));СИМВОЛ(ЗНАЧЕН(ПСТР(A1;2;1))+65);ЕСЛИ(ЗНАЧЕН(ПСТР(A1;1;1))<4;СИМВОЛ(ЗНАЧЕН(ПСТР(A1;3;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;3;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=4;ЗНАЧЕН(ПСТР(A1;1;1))=7;ЗНАЧЕН(ПСТР(A1;1;1))=8);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;4;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;4;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=1;ЗНАЧЕН(ПСТР(A1;1;1))=4;ЗНАЧЕН(ПСТР(A1;1;1))=5;ЗНАЧЕН(ПСТР(A1;1;1))=9);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;5;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;5;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=2;ЗНАЧЕН(ПСТР(A1;1;1))=5;ЗНАЧЕН(ПСТР(A1;1;1))=6;ЗНАЧЕН(ПСТР(A1;1;1))=7);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;6;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;6;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=3;ЗНАЧЕН(ПСТР(A1;1;1))=6;ЗНАЧЕН(ПСТР(A1;1;1))=8;ЗНАЧЕН(ПСТР(A1;1;1))=9);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;7;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;7;1))+75));

"*"

;СИМВОЛ(ЗНАЧЕН(ПСТР(A1;8;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;9;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;10;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;11;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;12;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;13;1))+97);

"+")

Прикрепленные файлы

13.xlsx (9.69 КБ)
ean13.rar (2.79 КБ)

sol ant Пользователь Сообщений: 169 Регистрация: 01.01.1970	#7 17.11.2014 13:03:55 Alexander88, спасибо. Могли бы вы выложить вместо rar в zip архиве ? т.к. на работе нет архиватора rar

Alexander88 Пользователь Сообщений: 400 Регистрация: 02.09.2014	#8 17.11.2014 13:11:06 Почему бы и нет.. Прикрепленные файлы ean13.zip (3.1 КБ)

Александр Иванов

Пользователь

Сообщений: 4 Регистрация: 27.10.2020

27.10.2020 14:26:24

Цитата
Alexander88 написал: Когда-то делал формулой, без VBA Где-то есть и для нахождения 13 цифры

Alexandr88, добрый день.
Можете подсказать аналогичное решение для генерации штрих-кодов ITF-14 (EAN-14)?

vet4

Пользователь

Сообщений: 42 Регистрация: 18.04.2017

#10

08.07.2024 09:03:05

Цитата
написал: Когда-то делал формулой, без VBA Где-то есть и для нахождения 13 цифры

Извините, конечно давно дело было, но работает! А вот переделать для EAN-8 не получилось. Просто уменьшил формулу для 8-ми, рисует ШК, но он не читается сканером и выглядит иначе, по сравнению с оригиналом. Как поправить?

Прикрепленные файлы

Пример.xlsx (14.61 КБ)

baranchikov Пользователь Сообщений: 1 Регистрация: 19.08.2024	#11 19.08.2024 08:56:23 Alexander88, благодарю Вас! Думал вначале достаточно только шрифта. Оказывается нужно генерировать. Удачи Вам!

Читают тему