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

[KinderX]

Есть:

Попова Сергея Сергеевича
Поповой Анны Николаевны

Как написать форму, чтобы получилось:

С.С. Попов
А.Н. Попова

Надо, чтобы в фамилии удаляло ой и а к конце слова,а имя и отчество были сокращены и поставлены в перёд.

[mchip]

А если фамилии Коновой, Мазепа и т.д. тогда что?

[doober]

Dim a
Dim b As String

Dim slo As String
slo = "Попова Сергея сергеевича"
a = Split(slo, " ", -1)

b = Left(a(1), 1) & "." & Left(a(2), 1) & ". " & Left(a(0), 5)

Про окончание сами думайте варианты

[KinderX]

Это я так понимаю, это только для перестановки.
А как можно сделать на функциях? Пример:
1. Три слова разместить в разные ячейки.
2. Из 2 и 3 взять первые буквы.
3. В первой определить какие буквы в конце и условием заменить концовку, т.е. если "а" то "", если "ой" то "а".

Такое реально или нет, можно ли описать такое программно

[viter.alex]

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

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

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

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

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

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

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

[viter.alex]

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

Это я так понимаю, это только для перестановки.
А как можно сделать на функциях? Пример:
1. Три слова разместить в разные ячейки.
2. Из 2 и 3 взять первые буквы.
3. В первой определить какие буквы в конце и условием заменить концовку, т.е. если "а" то "", если "ой" то "а".

Такое реально или нет, можно ли описать такое программно

Так вам функциями нужно?

А что означает это:

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

…Как написать форму, чтобы получилось:…

[SAS888]

Посмотрите вложение с решением с помощью пользовательской функции.
В дальнейшем, при добавлении требуемых замен, в коде функции добавляйте в массив b то окончание, которое нужно заменить, а в массив c - то, на которое нужно заменить. При этом обязательно соблюдать последовательность в массивах.
Функция просматривает окончания из 1-й и 2-х последних букв. Если нужно, то без труда можно сделать для любого количества. Только при просмотре обязательно нужно начинать с наибольшего количества символов контролируемых окончаний.

[KinderX]

SAS888 пример не плох, но надо описать весь алфавит, что я и сделаю.
Проще не придумаешь, да со временем находя ошибки в тексте, можно будет задать с лёгкостью новое правило замены, что в итоге приведет через кое какое время, будет не плохая база для этого примера. Одно только плохо может получится, если попадет мужская фамилия с буквой А на конце(бывают и такие).

Viter.Alex тебе тоже большое спасибо, примного благодарен тебе .

Ребята не поможете еще?
При стерании всех чисел выдаёт ошибку как её исправить?

Private Sub TextBox1_Change()
Cells(2, 15).Value = TextBox1.Text Or Cells(2, 15).Value = TextBox1.Value
End Sub

[viter.alex]

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

…Одно только плохо может получится, если попадет мужская фамилия с буквой А на конце(бывают и такие). …

Пусть функция проверяет пол человека и никаких проблем. Как это сделать, я описал в своем примере.

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

…Ребята не поможете еще?
При стерании всех чисел выдаёт ошибку как её исправить?

Private Sub TextBox1_Change()
Cells(2, 15).Value = TextBox1.Text Or Cells(2, 15).Value = TextBox1.Value
End Sub

Странная запись. что ты хочешь добиться с ее помощью? Убери TextBox1.Value.

[KinderX]

Цитата:
Сообщение от KinderX
…Ребята не поможете еще?
При стерании всех чисел выдаёт ошибку как её исправить?

Private Sub TextBox1_Change()
Cells(2, 15).Value = TextBox1.Text Or Cells(2, 15).Value = TextBox1.Value
End Sub

Странная запись. что ты хочешь добиться с ее помощью? Убери TextBox1.Value.

Это у меня от меню на листе. В TextBox1_Change вводится число которое задаётся в ячейку, но при стирании Backspace'ом числа выдает ошибку!