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

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

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

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

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

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

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

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

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

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

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

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

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

Комментарии

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

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".
Игорь (администратор сайта), 2 Авг 2021 - 05:19.#1

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

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

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

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

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

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

GenitiveCase = StrConv(GenitiveCase, vbProperCase)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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