страна по штрихкоду

[Jim]

всем доброго времени суток.

нужна помощь в написании макроса (формула), с помощью которой будет определяться страна по штрихкоду.

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

начала штрихкодов и соответствующая страна:

482 - Украина
484 - Молдова
485 - Армения
486 - Грузия
487 - Казахстан
489 - Гонконг
50 - Великобритания
520 - Греция
528 - Ливан
529 - Кипр
531 - Македония
535 - Мальта
539 - Ирландия
54 - Бельгия, Люксембург
560 - Португалия
569 - Исландия
57 - Дания

заранее спасибо.

[Михаил С.]

Не мешало бы приложить файл эксель, в котором есть штрихкоды и справочник стран.

А так, функция ВПР вам в помощь.

[Jim]

примеры штрихкодов в екселе прилагаю.

ВПР надоел, приходится открывать лишний файл. хочется иметь готовую формулу в екселе.

[Михаил С.]

Ну такой файл и из вашего вопроса можно было создать. Вот толку от него - ни какого.
Jim, у вас почти 250 сообщений, неужели не научились правильно задавать вопросы?

т.е. в ячейке вписан штрихкод,

я так думаю, он более трех символов

Страна определяется по первым двум или же трем символам.

По какому параметру определять, два или три символа брать?

приходится открывать лишний файл

Почему?

[Serge 007]

ВПР надоел, приходится открывать лишний файл. хочется иметь готовую формулу в екселе.

Это Вы о чём?!

Страна определяется по первым двум или же трем символам.

В каком случае по двум и в каком случае по трём?

[Jim]

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

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

[Serge 007]

Код Выделить Развернуть

=ЕСЛИ(СУММПРОИЗВ(--(ЛЕВСИМВ(A$1:A$17;2)=ЛЕВСИМВ(A24;2)))>1;ВПР(--ЛЕВСИМВ(A24;3);A$1:B$17;2;);ВПР(--ЛЕВСИМВ(A24;2);A$1:B$17;2;))

Можно запихнуть список в саму формулу, вот только она будет очень длинной и возможно не будет работать в Excel старше 2007

Код Выделить Развернуть

=ЕСЛИ(СУММПРОИЗВ(--(ЛЕВСИМВ({482:484:485:486:487:489:50:520:528:529:531:535:539:54:560:569:57};2)=ЛЕВСИМВ(A24;2)))>1;ВПР(--ЛЕВСИМВ(A24;3);{482;"Украина":484;"Молдова":485;"Армения":486;"Грузия":487;"Казахстан":489;"Гонконг":50;"Великобритания":520;"Греция":528;"Ливан":529;"Кипр":531;"Македония":535;"Мальта":539;"Ирландия":54;"Бельгия, Люксембург":560;"Португалия":569;"Исландия":57;"Дания"};2;);ВПР(--ЛЕВСИМВ(A24;2);{482;"Украина":484;"Молдова":485;"Армения":486;"Грузия":487;"Казахстан":489;"Гонконг":50;"Великобритания":520;"Греция":528;"Ливан":529;"Кипр":531;"Македония":535;"Мальта":539;"Ирландия":54;"Бельгия, Люксембург":560;"Португалия":569;"Исландия":57;"Дания"};2;))

[Jim]

а возможно это в макросе сделать? и список в макрос загнать.

[Serge 007]

Можно. Но Вам же

хочется иметь готовую формулу в екселе.

ЗЫ Можно еще всё в имена запихать, тогда вид формулы становится весьма приятным , например таким:

Код Выделить Развернуть

=ФОРМУЛА
См. вложение

[Jim]

а как это в макрос загнать? мне надо чтобы эта формула всегда была.

[Wasilic]

а как это в макрос загнать? мне надо чтобы эта формула всегда была.

Так можно.

[Jim]

извиняюсь за назойливость, а можно ли как то это сделать в виде формулы через макрос. т.е. что бы я в какой то ячейки сам писал =СТРАНА("ячейка") и указывал на ячейку с штрихкодом, и мне выводилась страна.

Public Function СТРАНА................

заранее спасибо.

[Serge 007]

...сделать в виде формулы через макрос

Почему обязательно макрос?

...я в какой то ячейки сам писал =СТРАНА("ячейка") и указывал на ячейку с штрихкодом, и мне выводилась страна.

Чем мой вариант с =ФОРМУЛА не подходит?
Даже ячейку с штрихкодом указывать не надо, просто в соседней справа пишем =ФОРМУЛА и всё

[Jim]

Чем мой вариант с =ФОРМУЛА не подходит?
Даже ячейку с штрихкодом указывать не надо, просто в соседней справа пишем =ФОРМУЛА и всё

нужно через макрос, чтобы потом сохранить как надстройку.

[Wasilic]

т.е. что бы я в какой то ячейки сам писал =СТРАНА("ячейка") и указывал на ячейку с штрихкодом, и мне выводилась страна.

Посмотрел, значит, на ячейку А1 со штрих кодом, потом в ячейке С1 написал =СТРАНА("А1") и она превращается в страну. 
Странные заморочки.
А чё не сразу внести в С1 первые 2-3 цифры кода. 
Или, все таки, конкретно пояснить - чё ты хошь?