Штрихкод в 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

[@EvgenieM]

Спасибо Вам огромное! За видео, код и ту огромную работу которую вы проделали. Весь восторг не описать.

[@user-ov5yi8vy9o]

Спасибо вам большое, два месяца назад задумался о такой теме м недавно начал реализовывать. Столкнулся с проблемами и если бы не ваше видео, то ещё бы пришлось разбираться. Спасибо!!!!!!!

[@user-fo1vu1dk5j]

Огромное спасибо! Найдя решение Вы сэкономили мне массу времени

[@user-pe6jd6rp9f]

Супер! Огромное Вам спасибо! Какой же Вы Молодец!👍👏👏👏

[@user-hc2lj6lf6z]

Спасибо Вам огромное!!! Все работает!!! Объеденил с ценниками.

[@dykomenko]

Лучшее решение из всех существующих Спасибо!

[@sales-mania]

*КАК СОЗДАТЬ ШТРИХ КОД В Excel СМОРИ ТУТ* kzbin.info/www/bejne/gqTCaKePrNuEgK8

[@RRedsOLOLO]

красота, большое спасибо! =)

[@jilaya_zona]

Блин, какой же ты лучистый человек

[@user-vx9gl7vs1r]

Спасибо Павел ! Сэкономил кучу времени !! С меня лайк и подписка )

[@arisha39]

это просто чудо!!!

[@user-cd9fs6jo9h]

Спасибо добрый человек!!!

[@user-lu2od4of2w]

Павел, здравствуйте. Ваши видео и решение вопросов великолепны! Подскажите, пожалуйста, как по такому же принципу из ячейки сгенерировать DataMatrix код с использованием картинок или без них? Чтобы получить код в нужную ячейку.

[@denispotapov9828]

Паша жжет, как всегда)

[@user-hs3ys6jd8p]

красавчик

[@user-tg8fw4lk4i]

спасибо большое

[@funnyday7124]

Спасибо!

[@sp2opt]

Огромное тебе спасибо!!!

[@user-yr2gp5yt5p]

Напишите ,пжлст, куда вставили код, а то у меня не работает

[@sp2opt]

@@user-yr2gp5yt5p в Excel жмешь левый Alt+F11, открываешь VBA, слева в VBAProject по правому клику Insert - Module. Вот туда и пишешь код. Потом в ячейке вызываешь функцию.

[@user-yr2gp5yt5p]

@@sp2opt Спасибо

[@user-wx9sh5xc8y]

Подскажите. Возможно ли изменить скрипт, что бы под шрихкодом отображались буквы и цифры которые в нём закодированы. Пробовал ваш скрипт использовать со шрифтом Libre Barcode 128 Text. Всё вроде работает, но в конце отображается лишний символ которого в тексте для штрихкода нет. Сканер считывает штрихкод без ошибок и лишний символ не учитывает.

[@kuatle]

5:00 «Сидел с линейкой, прикидывал. Я так не развлекался наверное... Давно я так не развлекался» 😂

[@Pavel_Taranukha]

Да с года 1995 наверное когда нужна была функция с числом прописью. Это сейчас их полно в интернете, а тогда и интернета не было)

[@rasimnabizade5571]

Здравствуйте. Большое спасибо за данное видео, голову ломал почему шрифт выдает штрихкод отличный от шк-генераторов и не читается сканером. Все сделал как у вас. Заработало. Но столкнулся с одной проблемой и не знаю почему так. Буду премного благодарен если подскажите. Проблема такая что например ввожу баркод WB_1117418268 и среди черточек всплывает буква Г. И таких комбинаций при котором всплывает буквы много. Как это можно исправить?

[@alekseidenisenkov2627]

Есть еще одно НО - в штрих-код могут вшиваться и другие команды (не только Старт, Стоп и КС), например переход на другой диапазон (А, В, С)

[@online-ocenka]

Здравствуйте! Спасибо за информацию. А есть генератор QR coda?

[@Pavel_Taranukha]

Есть, но там без картинок точно не обойтись

[@user-gt9sp4kl9q]

❤

[@shifcre]

Здравствуйте! Когда я печатаю через обычный принтер, то штрих-код превращается в символы-цифры( Как с этим справиться?

[@user-lb3ku9ty7w]

Попытался сделать по вашей системе, у меня не получилось решил посидеть и немного изменить код. Вот то к чему я пришёл Function Code128B(inputStr As String) As String cs = 104 For i = 1 To Len(inputStr) s = Asc(Mid(inputStr, i, 1)) cs = cs + (s + IIf(s >= 32, -32, 64)) * i Next i sh = cs Mod 103 sh = sh + IIf(sh > 94, 100, 32) result = ChrW(204) & inputStr & ChrW(sh) & ChrW(206) Code128B = result End Function

[@alekseidenisenkov2627]

Есть еще одно НО, в этот штрих-код могут вшиваться команды для сканера )))

[@coldinsect13]

Понял почти всё кроме самого главного - момент высчитывания контрольной суммы и значений в макросе. Допустим есть код 80291156. Необходимо преврать в шк code 128. Что необходимо высчитывать?

[@sasharussia7834]

У меня функция не срабатывает. Видимо, эксель старый.

[@coldinsect13]

Понял почти всё кроме самого главного - момент высчитывания контрольной суммы и значений в макросе. Допустим есть Ean-13 4630015127919. Я должен посчитать контрольную сумму его? Что потом?

[@saa.samara]

Если писать текст, то штрихкод действительно полностью совпадает с генератором. Но если цифры, то нет. Хоть и считывается сканером.

[@olgatomasheva350]

Павел, когда будут новые видео?

[@Pavel_Taranukha]

Спасибо за вопрос. Сам жду, не дождусь)

[@TheSpontaneus]

Здравствуйте. Вставил код с комментария, когда начинаю прописывать функцию ее нет не всплывает. Прописал вручную - ошибка в имени. Макросы включил в настройках в чем проблема может быть Эксель 2019

[@user-ij4zc3eh8z]

Здравствуйте! У меня та же история. Как исправить?

[@TheSpontaneus]

@@user-ij4zc3eh8z прописал код не в том месте, нужно не в лист вставлять а слева папка modules и там модуль 1 вставляете туда и все работает

[@user-lx2yc5mr2t]

Как бы сделать печать этикетки на термальном принтере с помощью нажатия галочки на строке заказа

[@Pavel_Taranukha]

А в чем сложность? На событие нажатия галочки вешаем макрос формииования и печати этикетки.

[@user-lx2yc5mr2t]

@@Pavel_Taranukha чтоб с айпада без формирования

[@Pavel_Taranukha]

А здесь полномочия макросов - всё) Вводите номер нужной строки в отдельное поле, на него формулами завязывайте формирование этикетки и жмите печать.

[@user-jz7tf7jp6z]

Здравствуйте, сделал всё как вы говорили, но вместо штрих кода получаются квадраты

[@Pavel_Taranukha]

Так может шрифт забыли установить?

[@user-vt8ie6ul3b]

не разобрались с квадратами?

[@user-yr2gp5yt5p]

Напишите ,пжлст, куда вставили код, а то у меня не работает нажал комбинацию Alt+f11, скопировал из описания код, заменил в нём слова на символы, сохранил, бац, бац, и не работает