Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
#1
16.07.2017 18:29:18
Помогите пожалуйста не опытному!
Имеется в ячейке А1: ВАСИЛЬЕВ ОЛЕГ ЮРЬЕВИЧ.
Нужно отобразить в другой ячейке: ВАСИЛЬЕВ Олег Юрьевич.
А если возможно, то в идеале: ВАСИЛЬЕВА Олега Юрьевича. Учитывая, что фамилии которые кончаются на "КИЙ" должны оканчиваться на "КОГО"
Дело в том, что большой список ФИО в таком формате. И нужно изменить. А в ручную долго.
Заранее спасибо)
Изменено: STASonSmol - 16.07.2017 21:13:48
 
 
 
#2
16.07.2017 18:35:45
Цитата
STASonSmol написал:
фамилии которые кончаются на "КИЙ"
А ведь ещё есть фамилии, которые заканчиватся на "о", "к", "ч", "ш"... С ними как быть? )
P.S. Название темы немного изменил.
 
 
 
#3
16.07.2017 18:37:49
Да мне хоть с этими разобраться))) У меня мало которые заканчиваются на "о", "к", "ч", "ш"...))
 
 
 
#4
16.07.2017 18:38:42
=ЛЕВБ(A1;НАЙТИ(" ";A1)-1)&" "&ПРОПНАЧ(ПСТР(A1;НАЙТИ(" ";A1)+1;999))
А вот со склонением сложнее.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#5
16.07.2017 18:39:47
Смысл, из ИМЕНИТЕЛЬНОГО перевести в РОДИТЕЛЬНЫЙ падеж ) в формате ИВАНОВА Ивана Ивановича)  
 
 
 
#6
16.07.2017 18:43:45
Цитата
STASonSmol написал:
У меня мало которые заканчиваются на "о", "к", "ч", "ш"
А министр обороны РФ в Ваш список может попасть? )
 
 
 
#7
16.07.2017 18:44:43
Цитата
Bema написал:
А вот со склонением сложнее.
Спасибо. Так проще поменять окончания, чем полностью Имя и Отчество переписывать :)  
 
 
 
#8
16.07.2017 18:45:30
Цитата
Юрий М написал:
P.S. Название темы немного изменил.
Я не против. Спасибо)) Видимо так понятнее для любителей excel))
 
 
 
#9
16.07.2017 18:47:06
Можно так, но это очень топорно:
=ЛЕВБ(A1;НАЙТИ(" ";A1)-1)&"А "&ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;НАЙТИ(" ";A1)+1;999));" ";"а ")&"а"
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#10
16.07.2017 18:48:57
.
Код
=ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));" ";"А ")&ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));" ";"а ";2)&"а"
 
 
 
#11
16.07.2017 18:56:49
Только формулами?
 
 
 
#12
16.07.2017 19:10:06
На всякий случай (исходные данные в столбце А, результат в столбец В):
Код
Sub Macro1()
Dim LastRow As Long, i As Long, Arr
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
        Arr = Split(Cells(i, 1))
        Cells(i, 2) = Arr(0) & "А " & StrConv(Arr(1), 3) & "a " & StrConv(Arr(2), 3) & "а"
    Next
End Sub
 
 
 
#13
16.07.2017 19:24:06
еще
Код
=ЕСЛИ(ПРАВСИМВ(ЛЕВСИМВ(A1;ПОИСК(" ";A1)-1);2)="ИЙ";ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));"ИЙ ";"ОГО ");ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));" ";"А "))&ЕСЛИ(ЕЧИСЛО(ПОИСК("ИЙ ";A1));ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));"й ";"я ")&"а";ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));" ";"а ";2)&"а")
 
 
 
#14
16.07.2017 19:43:28
Цитата
STASonSmol написал:
фамилии которые кончаются на "КИЙ" должны оканчиваться на "КОГО"
Тогда такой вариант:
Код
Sub Macro1()
Dim LastRow As Long, i As Long, Arr
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
        Arr = Split(Cells(i, 1))
        If Right(Arr(0), 3) <> "КИЙ" Then
            Cells(i, 2) = Arr(0) & "А " & StrConv(Arr(1), 3) & "a " & StrConv(Arr(2), 3) & "а"
        Else
            Cells(i, 2) = Replace(Arr(0), "КИЙ", "КОГО ") & StrConv(Arr(1), 3) & "a " & StrConv(Arr(2), 3) & "а"
        End If
    Next
End Sub

И вернитесь в своё сообщение #12 - исправьте горе-цитату.
 
 
 
#15
16.07.2017 21:10:42
Нескромный вопрос к отвечающим
А пАдежи, падЁжи, или падежИ  к этой теме (преобразовать часть текста из прописных в строчные) каким боком?
Изменено: RAN - 16.07.2017 21:12:20
 
 
 
#16
16.07.2017 21:22:08
Откорректировал название.
 
 
 
#17
16.07.2017 21:38:00
были же падежи на форуме:
Творительный падеж для ФИО
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#18
18.07.2017 01:19:25
Цитата
copper-top написал: ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));" ";"А ")&ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));" ";"а ";2)&"а"
ИВАНОВА Алексейа Сергеевича
Блин, мало опыта, так бы наверное разобрался как подправить формулу(
 
 
 
#19
18.07.2017 04:22:34
Цитата
STASonSmol написал:
мало опыта, так бы наверное разобрался как подправить
что сказать... да, мало опыта. еще полгода назад я и не знал как всеми этими формулами пользоваться.
напишите самые популярные окончания в фамилиях и именах. я уже разобрался как подправить и попробую подогнать. не обещаю.
Код
=ЕСЛИ(ПРАВСИМВ(ЛЕВСИМВ(A1;ПОИСК(" ";A1)-1);2)="ИЙ";ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));"ИЙ ";"ОГО ");ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));" ";"А "))&ЕСЛИ(ЕЧИСЛО(ПОИСК("Й ";A1));ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));"й ";"я ")&"а";ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));" ";"а ";2)&"а")
 
 
 
#20
18.07.2017 05:34:38
Можно использовать Padeg.Declension. Например, так:
Код
Function Pad(ФИО As Range, Падеж As Integer) As String
    Set x = CreateObject("Padeg.Declension")
    Pad = x.GetFIOPadegFS(ФИО, "", Падеж)
End Function
Во вложении пример с использованием UDF для любого падежа.
Чем шире угол зрения, тем он тупее.
 
 
 
#21
19.07.2017 01:00:46
Цитата
SAS888 написал: Можно использовать Padeg.Declension.
ФИОРодительный
Иванов Иван Иванович#ЗНАЧ!
Ивановский Василий Макарович#ЗНАЧ!
Петренко Петр Петрович#ЗНАЧ!
Сидорова Мария Ивановна#ЗНАЧ!
Шойгу Сергей Кужугетович#ЗНАЧ!
 
 
 
#22
19.07.2017 04:35:35
Значит у Вас отсутствует необходимая библиотека Padeg.dll.
Скачайте и зарегистрируйте этот компонент.
Скачать библиотеку можно здесь.
Чем шире угол зрения, тем он тупее.
 
 
 
Страницы: 1
Читают тему
Наверх