Из родительного падежа в именительный падеж

[viter.alex]

If Len(TextBox1.Text) Then
  Cells(2, 15).Value = TextBox1.Text
Else: Cells(2, 15).Value = 0
End If

[KinderX]

[QUOTE=viter.alex;302050]

If Len(TextBox1.Text) Then
  Cells(2, 15).Value = TextBox1.Text
Else: Cells(2, 15).Value = 0
End If

[/QUOT

Сразу ругаться наченает

[viter.alex]

Все должно работать. Я проверял

[KinderX]

С третьего раза, получилось.
Большое спасибо.

Теперь есть все данные и я доделаю Форму(автоматическую) которая берет данные из Таблицы, довольно большой примерно 1200 на HU + Еще Лист с небольшой таблицей.
Спасибо всем, всем, всем. За неделю я узнал очень многое из данного форума, а начинал с нуля. Ещё раз спосибо всем

[mamalika]

Ребята, доброго дня всем.

Замечательное решение от SAS888

Function Conv(Cell As Range) As String

    Dim i As Integer, a, b, c: a = Split(Application.Trim(Cell), " ")
    
    b = Array("а", "ой") 'Окончания, которые будем изменять
    c = Array("у", "ой") 'Окончания, которыми будем заменять
    
    For i = LBound(b) To UBound(b)
        If Right(a(0), 2) = b(i) Then
            Conv = Left(a(1), 1) & ". " & Left(a(2), 1) & ". " & Left(a(0), Len(a(0)) - 2) & c(i)
            Exit Function
        ElseIf Right(a(0), 1) = b(i) Then
            Conv = Left(a(1), 1) & ". " & Left(a(2), 1) & ". " & Left(a(0), Len(a(0)) - 1) & c(i)
            Exit Function
        End If
    Next
    
End Function

но инициалы по задумке ТС спереди фамилии.
С.С. Иванову
А.А Петрову

Помогите пожалуйста вернуть их в привычное место.
Иванову С.С
Петрову А.А

[mamalika]

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

[Sasha_Smirnov]

Увы, mamalika, разбираться приходится порой всю ночь, а то и две.

Пишете грамотно (что здесь большая редкость), но онтологически не верно.

[MCH]

Сообщение от mamalika

но инициалы по задумке ТС спереди фамилии.
С.С. Иванову
А.А Петрову

Помогите пожалуйста вернуть их в привычное место.
Иванову С.С
Петрову А.А

Формулами так:

=ПСТР(A1&" "&A1;ПОИСК(" ";A1&" ")+1;ДЛСТР(A1))

UDF

Function SwapFIO$(s$)
    SwapFIO = Mid$(s & " " & s, InStr(s, " ") + 1, Len(s))
End Function

[Barsanya]

Уважаемые форумчане ... Подскажите как Сделать что бы Ф.И.О. выдавалось полностью без сокращений в Именительном падеже!!! И если можно примерчик пожалуйста!

[Mauglee]

Сообщение от viter.alex

Очень интересная задача. Я попробовал ее решить в общем виде. Результат в приложении.
Поскольку все окончания не упомнишь, то я оставил возможность добавления своих окончаний. В коде это сделано с помощью строковых констант:

'Окончания родительного падежа для фамилий мужского рода
Private Const MALECASEENDS = "ова я ого а"
'Окончания именительного падежа для фамилий мужского рода.
'Знак $$ означает, что окончания в именительном падеже нет
Private Const MALEENDS = "ов ь ий $$"

'Окончания родительного падежа для фамилий женского рода
Private Const FEMALECASEENDS = "ову у "
'Окончания именительного падежа для фамилий женского рода
Private Const FEMALEENDS = "ова а"

Добавляете в константу MALECASEENDS свое окончание родительного падежа через пробел, а в константу MALEENDS вариант этого окончания в именительном падеже. Если окончания нет, то ставьте два знака доллара. Вроде у меня работает.

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

Программа сама определяет род человека, для которого ввели данные, нечувствительна к порядку расположения фамилии, имени и отчества. Т.е. можно написать Иванов Иван Иванович, а можно Иван Иванович Иванов.

Прошу пробовать и спрашивать.

Как это использовать в Экселе?