EAN 8 в excel - Мир MS Excel

Дата: Четверг, 08.02.2018, 17:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
А нет ли у кого готового генератора штрих кода в формате EAN 8 ?
Нужно вычислить 8-ю контрольную цифру в коде.
Спасибо.

Дата: Четверг, 08.02.2018, 19:36 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Google сломался? https://yandex.ru/search/?text=ean8%20vba&clid=2233627&lr=2

http://am.rusimport.ru/msaccess/topic.aspx?ID=197

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

krosav4ig

Дата: Четверг, 08.02.2018, 23:31 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

code 39 - EAN 8 - EAN 13

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Пятница, 09.02.2018, 09:38 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата bmv98rus, 08.02.2018 в 19:36, в сообщении № 2 ()

Google сломался? https://yandex.ru/search/?text=ean8%20vba&clid=2233627&lr=2

http://am.rusimport.ru/msaccess/topic.aspx?ID=197

google конечно хорошо, но видимо я плохо умею искать - попадаются то платные программы, то непонятные vba...

Дата: Пятница, 09.02.2018, 09:39 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата krosav4ig, 08.02.2018 в 23:31, в сообщении № 3 ()

code 39 - EAN 8 - EAN 13

здесь нужно прописывать все 8 цифр, а я вот и хочу что бы 8-я автоматически считалась.
Мне нужно для 100 моих кодов посчитать 8-ю цифру

Дата: Пятница, 09.02.2018, 11:51 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

например так. массивная

Код

=RIGHT(10-MOD(SUM(MID(A1;ROW($A$1:$A$7);1)*CHOOSE(ISODD(ROW($A$1:$A$7))+1;1;3));10);1)

или даже

Код

=RIGHT(10-MOD(SUM(MID(A1;ROW($A$1:$A$7);1)*(MOD(ROW($A$1:$A$7);2)*2+1));10);1)

или не массивная

Код

=RIGHT(10-MOD(SUMPRODUCT(MID(A1;ROW($A$1:$A$7);1)*(MOD(ROW($A$1:$A$7);2)*2+1));10);1))

если нужно число а не цифру то =--RIGHT .......

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 09.02.2018, 13:12

Дата: Пятница, 09.02.2018, 12:14 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата bmv98rus, 09.02.2018 в 11:51, в сообщении № 6 ()

=ОСТАТ(СУММ(ПСТР(A1;СТРОКА($A$1:$A$7);1)*ВЫБОР(ЕНЕЧЁТ(СТРОКА($A$1:$A$7))+1;1;3));10)

вроде работает, буду проверять
Спасибо!

Дата: Пятница, 09.02.2018, 13:13 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата sekii, 09.02.2018 в 12:14, в сообщении № 7 ()

вроде работает

нет не работает ибо я забыл из 10 вычесть. исправил выше.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

krosav4ig

Дата: Пятница, 09.02.2018, 13:56 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

формула из фала EAN_8_with_chart.xlsx по ссылке из моего поста

Код

=ОСТАТ(10-ОСТАТ(СУММ(--ПСТР(A1;{2;4;6};1);ПСТР(A1;{1;3;5;7};1)*3);10);10)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Пятница, 09.02.2018, 18:01 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

krosav4ig, Все никак от циклов не отделаюсь :-). Тогда уж совсем так

Код

=MOD(10-MOD(SUM(MID(A1;{1;2;3;4;5;6;7};1)*{3;1;3;1;3;1;3});10);10)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.