Штрихкод в Excel Code 128
Штрихкод Code 128
К видео с ценниками ( • Ценники своими руками ... ) коллеги справедливо заметили, что если просто сделать шрифт Code 128 - этого недостаточно для того чтобы сканер этот штрихкод прочел.
Я конечно заподозрил, что здесь чтото не чисто и проверил.
Проверка и дальнейший разбор подтвердил, что не чисто там всё.
Как оказалось штрихкоду недостаточно выглядеть, как штрих-код. Ему помимо кодируемой информации оказывается нужен еще и стартовый символ, контрольный ключ и закрывающий символ.
Все мануалы ведут на формирование каких-то картинок методом родов ежа, либо вовсе являются платными и тоже выдают картинки.
Был момент слабости и мысль "взять и забить" но нет.
Вот этот пост придал мне силы: blogs.klerk.ru/users/1911762/...
В деле мне помог шрифт, взятый здесь: ru.fonts2u.com/code-128.%D1%8...
И, спустя 1000 нецензурных слов, десятка чашек кофе и 12 часов времени мне таки удалось победить этого страшного дракона.
Функция заняла всего 8 строчек кода.
'Замените надпись "больше или равно" на соответствующие символы.
Отдельное СПАСИБО пользователю Александр (он в закрепленном комментарии) за зоркий глаз, светлый ум и внесенные корректировки.
Function Code128(Str As String)
cs = 104
For i = 1 To Len(Str)
s = Asc(Mid(Str, i, 1))
cs = cs + (s + IIf(s БОЛЬШЕ= 32, -32, 64)) * i
Next i
sh = cs Mod 103
sh = sh + IIf(sh БОЛЬШЕ 94, 100, 32)
Code128 = ChrW(204) & Str & ChrW(sh) & ChrW(206)
End Function
Пікірлер: 44
Огромное тебе спасибо!!!
Огромное спасибо! Найдя решение Вы сэкономили мне массу времени
Спасибо вам большое, два месяца назад задумался о такой теме м недавно начал реализовывать. Столкнулся с проблемами и если бы не ваше видео, то ещё бы пришлось разбираться. Спасибо!!!!!!!
Спасибо Вам огромное! За видео, код и ту огромную работу которую вы проделали. Весь восторг не описать.
Спасибо Павел ! Сэкономил кучу времени !! С меня лайк и подписка )
Лучшее решение из всех существующих Спасибо!
@sales-mania
6 ай бұрын
*КАК СОЗДАТЬ ШТРИХ КОД В Excel СМОРИ ТУТ* kzread.info/dash/bejne/fqeTmdaSp9m3erA.html
Супер! Огромное Вам спасибо! Какой же Вы Молодец!👍👏👏👏
Спасибо Вам огромное!!! Все работает!!! Объеденил с ценниками.
Блин, какой же ты лучистый человек
красота, большое спасибо! =)
это просто чудо!!!
Спасибо добрый человек!!!
Павел, здравствуйте. Ваши видео и решение вопросов великолепны! Подскажите, пожалуйста, как по такому же принципу из ячейки сгенерировать DataMatrix код с использованием картинок или без них? Чтобы получить код в нужную ячейку.
Спасибо!
спасибо большое
красавчик
Паша жжет, как всегда)
Здравствуйте! Когда я печатаю через обычный принтер, то штрих-код превращается в символы-цифры( Как с этим справиться?
Есть еще одно НО - в штрих-код могут вшиваться и другие команды (не только Старт, Стоп и КС), например переход на другой диапазон (А, В, С)
Понял почти всё кроме самого главного - момент высчитывания контрольной суммы и значений в макросе. Допустим есть код 80291156. Необходимо преврать в шк code 128. Что необходимо высчитывать?
5:00 «Сидел с линейкой, прикидывал. Я так не развлекался наверное... Давно я так не развлекался» 😂
@Pavel_Taranukha
Жыл бұрын
Да с года 1995 наверное когда нужна была функция с числом прописью. Это сейчас их полно в интернете, а тогда и интернета не было)
Подскажите. Возможно ли изменить скрипт, что бы под шрихкодом отображались буквы и цифры которые в нём закодированы. Пробовал ваш скрипт использовать со шрифтом Libre Barcode 128 Text. Всё вроде работает, но в конце отображается лишний символ которого в тексте для штрихкода нет. Сканер считывает штрихкод без ошибок и лишний символ не учитывает.
Понял почти всё кроме самого главного - момент высчитывания контрольной суммы и значений в макросе. Допустим есть Ean-13 4630015127919. Я должен посчитать контрольную сумму его? Что потом?
Есть еще одно НО, в этот штрих-код могут вшиваться команды для сканера )))
Здравствуйте. Большое спасибо за данное видео, голову ломал почему шрифт выдает штрихкод отличный от шк-генераторов и не читается сканером. Все сделал как у вас. Заработало. Но столкнулся с одной проблемой и не знаю почему так. Буду премного благодарен если подскажите. Проблема такая что например ввожу баркод WB_1117418268 и среди черточек всплывает буква Г. И таких комбинаций при котором всплывает буквы много. Как это можно исправить?
Здравствуйте! Спасибо за информацию. А есть генератор QR coda?
@Pavel_Taranukha
Жыл бұрын
Есть, но там без картинок точно не обойтись
У меня функция не срабатывает. Видимо, эксель старый.
❤
Если писать текст, то штрихкод действительно полностью совпадает с генератором. Но если цифры, то нет. Хоть и считывается сканером.
Павел, когда будут новые видео?
@Pavel_Taranukha
Жыл бұрын
Спасибо за вопрос. Сам жду, не дождусь)
Здравствуйте. Вставил код с комментария, когда начинаю прописывать функцию ее нет не всплывает. Прописал вручную - ошибка в имени. Макросы включил в настройках в чем проблема может быть Эксель 2019
@user-ij4zc3eh8z
6 ай бұрын
Здравствуйте! У меня та же история. Как исправить?
@TheSpontaneus
6 ай бұрын
@@user-ij4zc3eh8z прописал код не в том месте, нужно не в лист вставлять а слева папка modules и там модуль 1 вставляете туда и все работает
Как бы сделать печать этикетки на термальном принтере с помощью нажатия галочки на строке заказа
@Pavel_Taranukha
Жыл бұрын
А в чем сложность? На событие нажатия галочки вешаем макрос формииования и печати этикетки.
@user-lx2yc5mr2t
Жыл бұрын
@@Pavel_Taranukha чтоб с айпада без формирования
@Pavel_Taranukha
Жыл бұрын
А здесь полномочия макросов - всё) Вводите номер нужной строки в отдельное поле, на него формулами завязывайте формирование этикетки и жмите печать.
Здравствуйте, сделал всё как вы говорили, но вместо штрих кода получаются квадраты
@Pavel_Taranukha
Жыл бұрын
Так может шрифт забыли установить?
@user-vt8ie6ul3b
11 ай бұрын
не разобрались с квадратами?