строки.VBA

[brans]

пожалуйста, помогите придумать код, я уже обращалась с этим заданием, но никто не ответил(((
очень прошу, откликнетесь хоть кто-нибудь....
например, одной ячейке записанно : Иванов Иван Иванович, как сделать так(через мордуль VBA), что бы в другой записалось Иванов И.И.???

[motorway]

Делите строку с помощью Split, и от второго и третьего слова берете только один первый знак, а остальное заменяете на точку (функция Mid, конкатенация - & )

[brans]

[QUOTE=motorway;637428]Делите строку с помощью Split....

вот проблема состоит в том, что я не знаю ф-ции Split((( - не подскажете,motorway? а как использовать mid я знаю!!!

[vikttur]

Могу только формулой:
=ЛЕВСИМВ(A1; ПОИСК(" ";A1)+1)&"."&ПСТР(A1;ПОИСК("/";ПОДСТАВИТЬ(A1;" ";"/";2));2)&"."

[brans]

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

Могу только формулой:
=ЛЕВСИМВ(A1; ПОИСК(" ";A1)+1)&"."&ПСТР(A1;ПОИСК("/";ПОДСТАВИТЬ(A1;" ";"/";2));2)&"."

спасибо большое)))), но мне это в модуле никак же не записать?

[Hugo121]

Для Split по пробелам ничего и не надо:

Sub tt()
Dim x
x = Split("Иванов Иван Иванович")
MsgBox x(0) & x(1) & x(2)
End Sub

[brans]

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

Для Split по пробелам ничего и не надо:

Sub tt()
Dim x
x = Split("Иванов Иван Иванович")
MsgBox x(0) & x(1) & x(2)
End Sub

Эта программа мне выдала такую надпись:
ИвановИванИванович......

[Hugo121]

Так задумано
Теперь подумайте, почему так выдала - поймёте, что откуда брать, чтоб резать.

[motorway]

Самостоятельно нужно думать, учиться, пробовать читать документацию и т.п. - в Интернете есть.
Вот так надо:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x
x = Split("Жигунов Сергей Викторович")
Cells(1, 1).Value = x(0) & " " & Mid(x(1), 1, 1) & "." & Mid(x(2), 1, 1) & "."
End Sub

[motorway]

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

спасибо большое)))), но мне это в модуле никак же не записать?

Можно и таким способом, в VBA можно присваивать формулы ячейкам