Как сделать Сокращение Полного Фио до первых букв на языке VBA?

Question

[Hollib]

Добрый день!
Подскажите пожалуйста, как на языке VBA заставить Excel перенести данные в Word и при этом сократить ФИО


Подробнее говоря:
Быстро ввели данные в таблицу и из нее макрос VBA подставляет в шаблон, из которого потом создать отдельный документ с заполненными данным из таблицы.
Что касательно ФИО, ячейка из таблицы с полным ФИО будет использоваться как полное написание имени ( в шаблоне ) так и только фамилия с инициалами. и все это в один шаблон(word).

Comments

[Модератор]

На вопрос «как сделать» отвечает документация и поиск в интернет.

Тут отвечают на вопросы «почему я сделал, как в документации, а оно не работает. Поискал в интернет, вот запросы, в ответах не нашел. Что я делаю не так?»

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

За готовыми решениями - на фриланс. В текущем виде это не вопрос, а задание. Нарушен п.5.12 Регламента.

[Hollib]

Модератор, Благодарю за ответ
Вас прекрасно понял :)
Прошу прощение за нарушение правил.

Answer 1

[Григорий Боев]

Function ShortName(fullName As String) As String
  Dim arrNames As Variant
  arrNames = Split(fullName)
  ShortName = arrNames(0) & " " & Left(arrNames(1), 1) & "." & Left(arrNames(2), 1) & "."
End Function

Comments

[Hollib]

Григорий, подскажите как запустить функцию, не могу понять как правильно написать sub.
ФИО находиться в ячейки A1 результат падает в b1

[Григорий Боев]

в B1:
=ShortName(A1)

[Hollib]

Григорий Боев,
Пытаюсь но не получаеться :с

Sub test()
Function ShortName(fullName As String) As String
  Dim arrNames As Variant
  arrNames = Split("A1")
  ShortName = arrNames("B1") & " " & Left(arrNames(1), 1) & "." & Left(arrNames(2), 1) & "."
End Function
End Sub

Очень вас прошу помогите пожалуйста

Answer 2

[Hollib]

Еще такой способ нашел,
Может кому поможет

Sub inicial2FIO()
Dim fulname
Dim FIO
Dim i
    fulname = Cells(3, 2) ' Ячейка для полного ФИО
    FIO = Left(fulname, InStr(1, fulname, " "))
    fulname = Right(fulname, Len(fulname) - Len(FIO))
    FIO = FIO & Left(fulname, 1) & "."
    fulname = Right(fulname, Len(fulname) - InStr(1, fulname, " "))
    FIO = FIO & Left(fulname, 1) & "."
    Cells(3, 19) = FIO ' Ячейка для результата ФИО
End Sub

Вы можете выбрать строку и ячейку ввода полного ФИО и результат вывода сокращенного ФИО
Cells(3, 19) = FIO.
Где 3 это номер строки, 19 номер ячейки.

Comments

[Алексей]

А что Вы будете делать с двойным именем: Мария-Антуанетт или, если у человека два имени, например Иван Николаи? Этот вопрос не очень прост. На просторах интернет, имеется готовая функция, но и с ней я в свое время намучился. И я уже не говорю про всякие Оглы, Бей и прочее. А может быть только имя.