Кирилица в латиницу (Excel)

[zoman]

Добрый день.

Часто бывает, что на предприятии ведется справочник товаров как кому угодно, а именно, вместо латинских символов при вводе используется кириллица.

В итоге столкнулся с задачей:
выгрузить справочник в Excel - сделать конвертацию - втянуть обратно в 1С.

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

Может у кого найдется время - поможете?

Примерный файл вложил. Спасибо.

[Евгений_]

А зачем через Excel Я немного туповат напишите проблему более подробно на мыло вышлю обработку.
Я так понял вам типа перенумерации кодов нужно только номер оставить прежним, а если в нем русский символ заменить на латынь ?

[zoman]

Через Excel - так как реально сделать экспорт/импорт в 1С данных.

Необходимо рядом в столбец записать "поправленные" артикулы напротив кириллицосодержащих

[zoman]

А зачем через Excel Я немного туповат напишите проблему более подробно на мыло вышлю обработку.
Я так понял вам типа перенумерации кодов нужно только номер оставить прежним, а если в нем русский символ заменить на латынь ?

Да-да-да

[Евгений_]

Знание VB у меня так посредственные но вроде работает только не распознает регистр заглавная, прописная

[zoman]

Спасибо, Евгений!

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

[Евгений_]

По хорошему надо было переводить из символа в код и наоборот
точнее будет
Пример:
Dim MyNumber
MyNumber = Asc("A") ' Returns 65.
MyChar = Chr(97) ' Returns a.
MyChar = Chr(65) ' Returns A.
Но это уже дело техники

[zoman]

Евгений_, по хорошему да )

[zoman]

Евгений_, подскажи, где её вытянуть (таблицу кодов)?

Спс.

[Евгений_]

http://www.firststeps.ru/mfc/msdn/r.php?155

ANSI это стандарт отображения символов, разработанный American National Standards Institute. Стандарт ANSI использует только один байт, чтобы представить каждый знак, соответственно ограничен максимумом 256 знаками, в том числе и пунктуации. Коды от 32 до 126 совпадают со стандартом ASCII. Стандарт ASCII использовался в DOS, ANSI используется в Windows.

Мы всегда забываем что есть поисковые машины

[Dracosha Andrew]

Евгений_, Excell использует не ANSI, там Unicode вообще-то. Русская кодовая страница 1251. Просто в процессе обращения происходит преобразование и используются последние 8 бит. Это я к тому, чт не удивляйтесь, если при использовании других языков у вас могут получатся неадекватные результаты.

zoman, самый простой способ создать таблицу самому. В одной колонке код, в другой CHAR() от неё.

[Dracosha Andrew]

zoman, а почему это всё не сделать прямо в 1С?

[Аноним]

Ну в общем-то, есть специальные программы... транслитераторы. В них забиваешь русский текст - получаешь латинские буквы. Поищите в интернете.

[Dracosha Andrew]

Ну в общем-то, есть специальные программы... транслитераторы. В них забиваешь русский текст - получаешь латинские буквы. Поищите в интернете.

Пальцем в небо попали!!! Задача стоит что бы именить буквы не похожие по звучанию, а похожие по начертанию.

[zoman]

Всем спасибо, сделал сам

Выделите ячейку в столбце, который содержит Ваши артикулы и запустите макрос - в результате в соседнем столбце результат, а в следующем либо ничего либо 1 (1 говорит о том, что конвертация произошла).

Только заглавные!!! Кому нужны строчные - дорабатываем сами )

[Аноним]

Привет, простите я далека от всех ITшных заморочек... но очень-очень надо.
Есть список сотрудников (фамилия имя отчество) в кириллице надо перевести в латиницу - вручную нереально 1500 человек... Хотелось бы как то эффективно все это сделать. Как запустить этот макрос? Пожалуйста объясните пошагово, буду очень благодарна.

[vikttur]

Транслит:
Сайт planetaexcel - Приемы - Макросы - Транслит.
Там пользовательская функция.

[Аноним]

Транслит:
Сайт planetaexcel - Приемы - Макросы - Транслит.
Там пользовательская функция.

Спасибо огромнейшее!!!!!