Главная » Макросы для Excel » Функция перевода ФИО в родительный падеж

Функция перевода ФИО в родительный падеж

Пользовательская функция (UDF) для перевода ФИО (фамилии, имя, отчества) в родительный падеж.

Новые версии функций (изменения от 2019 года) доступны в надстройке FIO + Propis

Эту функцию можно использовать как в коде программы, так и как формулу в ячейках листа Excel
(см. пример в прикреплённом файле)

PS: Функция является переделкой аналогичной UDF для склонения в дательном падеже.
Тестировал склонение на списке разнообразных ФИО (см. первый столбец в прикреплённом файле), и заведомо корректных результатах склонения (третий столбец)

Конечно, код не идеальный, - всегда можно найти ФИО, которые будут склоняться неверно.
Но, в целом, удалось добиться весьма неплохого результата (по сравнению с прежней версией кода, и другими аналогичными функциями)

Если вы используете функции склонения для формирования документов,
обратите внимание на специализированную надстройку FillDocuments,
которая позволит вам одним нажатием кнопки создать документы Word и Excel по шаблонам, а также выполнить рассылку писем.

В указанную надстройку включены самые последние версии функций склонения.

Пример использования:

Sub ПереводФИОвРодительныйПадеж()
    ' если фамилия, имя и отчество - в одной переменной (или ячейке)
    FIO$ = "Сидоров Иван Скотиныч"
    РодительныйПадеж$ = GenitiveCase(FIO$)
    Debug.Print РодительныйПадеж$    ' результат: Сидорова Ивана Скотиныча

    ' если фамилия, имя и отчество - в разных переменных (или ячейках)
    НетКого$ = GenitiveCase("Андреева", "Ольга", "Федоровна")
    Debug.Print НетКого$    ' результат: Андреевой Ольги Федоровны
End Sub

  • 86265 просмотров

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".
Александр, 28 Авг 2021 - 03:35.#1

Подскажите пожалуйста. Добавил в код такое изменение
Select Case Right(sName, 1)
Case "а": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "ы"
Case "я": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "и"
Case Else: GenitiveCase = GenitiveCase & sName
End Select

Select Case Right(sName, 2)
Case "ка": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "и"

End Select
В результате выдаёт: Вероникывероники
Что делаю не так? Как исправить?

Игорь (администратор сайта), 2 Авг 2021 - 05:19.#2

Это вы перепутали родительный падеж с винительным.
См. пример здесь:
https://excelvba.ru/programmes/FillDocuments/manuals/SheetFunctions/cases

Hulio_Mudilio, 1 Авг 2021 - 03:24.#3

В родительный падеж неправильно переводит. Должно быть не "АЗНАВУРЯН Карины Борисовны", а "АЗНАВУРЯН Карину Борисовну" (кого/чего).

Игорь (администратор сайта), 9 Сен 2014 - 12:21.#4

Здравствуйте, Максим
Макрос предназначен только для ФИО - с прочими словами и фразами он работает некорректно

Чтобы регистр не изменялся, - удалите в макросе эту строку:

GenitiveCase = StrConv(GenitiveCase, vbProperCase)

Maxim, 9 Сен 2014 - 12:13.#5

Здравствуйте. Испробовал Ваш макрос. Хочу сказать огромное спасибо и задать один вопрос:
Подскажите как сделать, чтобы второе слово в словосочетании писалось с маленькой буквы (если использовать макрос для склонения наименований организаций).

Гость, 28 Мар 2014 - 16:00.#6

Спасибо за ответ, но у меня в таблице только фамилии с инициалами.

Игорь (администратор сайта), 20 Мар 2014 - 01:34.#7

Если только фамилия нужна в родительном падеже, - то после склонения ФИО, при помощи формулы, оставьте только первое слово (текст до пробела)
В коде ничего менять не нужно.

Если в исходных данных - только фамилия (без имени-отчества), функция работать не будет, т.к. невозможно только по фамилии определить пол, а некоторые фамилии по-разному склоняются в зависимости от пола.
Пример - фамилии типа Лебедь, Головач, и т.д.
Если такая фамилия принадлежит женщине, - то она при склонении не меняется (а мужская - изменяется)

Гость, 19 Мар 2014 - 17:36.#8

Если только фамилию нужно склонять, то что нужно обрезать?

Гость, 18 Мар 2014 - 11:24.#9

А такое распространенное имя как Ольга в родительный падеж неправильно склоняет :-(

imort, 3 Дек 2013 - 11:41.#10

Я имел ввиду исключение склонения иностранных имён, оканчивающихся на "е" и "и".
У себя то я дописал.

Кстати, можете вспомнить русские имена таким же окончанием? Если нет, то можно просто внести в код.

Игорь (администратор сайта), 29 Ноя 2013 - 18:32.#11

А что мешает вам самостоятельно доработать код?

Это же очень просто, - надо взять строку

Case "Павел": GetGenitiveException = "Павла"

размножить её нужное количество раз,
поставив имена-исключения, и прописав для правильный результат склонения.

imort, 29 Ноя 2013 - 18:21.#12

Кто-нибудь допилил скрипт? Не все правила для имён в мужском роде прописаны.

Гость, 26 Июн 2013 - 18:05.#13

Огромное спасибо!
именно то что было нужно

Игорь (администратор сайта), 30 Апр 2013 - 16:56.#14

Нет у меня такой функции. Была бы, — дал бы вам ссылку.
Сделать могу, но не бесплатно (много исключений, долго возиться с кодом)

play-line, 30 Апр 2013 - 10:16.#15

так я не умею, поэтому и обращаюсь к специалистам в этом деле

Игорь (администратор сайта), 29 Апр 2013 - 19:29.#16

Можно. Делайте.
Как сделаете — скиньте мне, я на сайте выложу.

play-line, 29 Апр 2013 - 18:39.#17

А можно такой же файлик, только ещё с винительным падежом?
Чтобы три столбика подряд?

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
   ___   __   __    _    __     ___   _   _ 
  / _ \  \ \ / /   (_)  / /_   |_ _| | \ | |
 | (_) |  \ V /    | | | '_ \   | |  |  \| |
  \__, |   | |     | | | (_) |  | |  | |\  |
    /_/    |_|    _/ |  \___/  |___| |_| \_|
                 |__/
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.