И снова ФИО

Пользователь

Сообщений: 150 Регистрация: 01.01.1970

15.04.2011 09:06:01

Добрый день!
Когда-то на форуме была тема как с помощью формул Иванова Ивана Ивановича
превратить в Иванова И.И.
Подскажите пожалуйста где посмотреть или помогите формулой.

Прикрепленные файлы

post_218827.xls (18 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 15.04.2011 09:14:25 Формулу быстрее написать, чем вспомнить, где оно было: =ЛЕВСИМВ(C4;ПОИСК(" ";C4))&ПСТР(C4;ПОИСК(" ";C4)+1;1)&". "&ПСТР(C4;ПОИСК("№";ПОДСТАВИТЬ(C4;" ";"№";2))+1;1)&"."

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 15.04.2011 09:16:57 Более сложное решение - но и более универсальное: http://excelvba.ru/code/CropFIO Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 15.04.2011 09:18:59 В формуле лишняя функция: =ПСТР(C4;1;ПОИСК(" ";C4)+1)&". "&ПСТР(C4;ПОИСК("№";ПОДСТАВИТЬ(C4;" ";"№";2))+1;1)&"."

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#5 15.04.2011 09:19:57 Так Прикрепленные файлы post_218832.xls (33.5 КБ)

DON Пользователь Сообщений: 150 Регистрация: 01.01.1970	#6 15.04.2011 09:35:04 Спасибо! Работает!

ran

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

18.04.2011 22:45:35

Поглядел UDF http://excelvba.ru/code/CropFIO
Не глянулась.
Решил сочинить свою универсальную.
Работает корректно во всех вариантах, которые смог придумать.

Одно так и не понял.
Почему rPos As Long работает, а rPos As Byte выдает ошибку?

Прикрепленные файлы

post_220083.xls (79.5 КБ)

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

18.04.2011 22:59:26

Странно. У меня не выдает ошибки, да и с чего бы - Byte 255 символов хранит и не вякает. Сам постоянно пользовался этим типом 10 лет назад под Вынь 3.1 Экс5. Машина на работе была - ну просто дрова, старался хоть чуток оптимизировать.

Я сам - дурнее всякого примера! ...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#9 18.04.2011 23:02:37 Серж, про версию Windows, Excel, кем сейчас работаешь - можно уже не писать. Весь Форум это помнит. :-)

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#10 18.04.2011 23:07:21 Если использовать rPos As Byte то получается фиГВам а если rPos As Long - фамилия Прикрепленные файлы post_220092.jpg (21.58 КБ)

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#11 18.04.2011 23:22:29 Разобрался

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#12 18.04.2011 23:25:09 {quote}{login=Юрий М}{date=18.04.2011 11:02}{thema=}{post}Серж, про версию Windows, Excel, кем сейчас работаешь - можно уже не писать. Весь Форум это помнит. :-){/post}{/quote}Подколол, удачно:-) Спасибо. Я постараюсь, Юр больше не поминать. Я сам - дурнее всякого примера! ...

Читают тему