Когда-то делал формулой, без VBA
Где-то есть и для нахождения 13 цифры
Скрытый текст |
---|
Код |
---|
=СЦЕПИТЬ(ЗНАЧЕН(ПСТР(A1;1;1));СИМВОЛ(ЗНАЧЕН(ПСТР(A1;2;1))+65);ЕСЛИ(ЗНАЧЕН(ПСТР(A1;1;1))<4;СИМВОЛ(ЗНАЧЕН(ПСТР(A1;3;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;3;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=4;ЗНАЧЕН(ПСТР(A1;1;1))=7;ЗНАЧЕН(ПСТР(A1;1;1))=8);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;4;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;4;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=1;ЗНАЧЕН(ПСТР(A1;1;1))=4;ЗНАЧЕН(ПСТР(A1;1;1))=5;ЗНАЧЕН(ПСТР(A1;1;1))=9);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;5;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;5;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=2;ЗНАЧЕН(ПСТР(A1;1;1))=5;ЗНАЧЕН(ПСТР(A1;1;1))=6;ЗНАЧЕН(ПСТР(A1;1;1))=7);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;6;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;6;1))+75));ЕСЛИ(ИЛИ(ЗНАЧЕН(ПСТР(A1;1;1))=0;ЗНАЧЕН(ПСТР(A1;1;1))=3;ЗНАЧЕН(ПСТР(A1;1;1))=6;ЗНАЧЕН(ПСТР(A1;1;1))=8;ЗНАЧЕН(ПСТР(A1;1;1))=9);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;7;1))+65);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;7;1))+75));"*";СИМВОЛ(ЗНАЧЕН(ПСТР(A1;8;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;9;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;10;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;11;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;12;1))+97);СИМВОЛ(ЗНАЧЕН(ПСТР(A1;13;1))+97);"+") |
|