Склонения ФИО

[maximyn]

Добрый день!
Модераторы а можно ли перенаправить тему в excel

Function Conv1(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
            Conv1 = 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
            Conv1 = Left(a(1), 1) & "." & Left(a(2), 1) & ". " & Left(a(0), Len(a(0)) - 1) & c(i)
            Exit Function
        End If
    Next
    
End Function

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

Большое спасибо все за помощь.

[Казанский]

Попробуйте

Function Conv1(Cell As Range) As String

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

------------- примечание модератора --------------------
Функции склонения, для использования в макросах,
или в качестве пользовательской функции на листе Excel:

Родительный падеж на VBA
Дательный падеж на VBA

[maximyn]

Привет.
Большое спасибо за помощь.
А ты с должностями не сможешь помочь.
Из генерального директора – генеральному директору
Из президента – президенту
Я так думаю через этот код вряд-ли такое можно организовать

С уважением, Макс.