Работа со строкой

[TI_ProJecT]

Сообщение от Camaro Chevelle

а так и не получится, у тебя x в строке после лайк это не переменная, используемая в проге, а символ. я если честно не в курсе что значит такая штука х=[a,b,c,d,e] похоже на множество как в паскале но вроде не оно, поэтому заранее загоняешь в массив согласные буквы и потом сравниваешь внутри цикла с каждым из них

Переписал с Like, получилось.

В клетке E5 - Иванов Иван Иванович

1)В клетке А7 получить строку "Фамилия И.О." (например,"Иванов И.И."), используя данные клетки Е5.

2)Содержимое ячейки Е5 разнести в три ячейки А8, В8, С8: отдельно фамилию имя, отчество.

Делаю эти, так как не особо пока разобрался с функциями.
Не могу понять, как в задании 1)нам брать значения после первого,а потом и после второго пробела?
А в задании 2) не могу разобраться с TextToColumns

[Camaro Chevelle]

в 1) можно позицию первого пробела получить с помощью instr, а для второго instrrev. обрати внимание, что эти функции по своей сути одинаковые, порядок аналогичных аргументов в них почему-то разный, я уж не помню какой где. далее с помощью mid вырываем следующий за пробелом символ и прописываем его в требуемую ячейку
2) я бы просто не юзал texttocolumns, чё-то уж больно много там параметров, в лом разбираться. никак проще-то не сделать?

[Camaro Chevelle]

хотя в принципе всё более-менее ясно с этим TextToColumns, читай справку по VBA

[TI_ProJecT]

Сообщение от Camaro Chevelle

хотя в принципе всё более-менее ясно с этим TextToColumns, читай справку по VBA

В том то и дело, прочитал, сделал, нашел подобные примеры, ничего не происходит, либо ошибка.

[TI_ProJecT]

Sub MacroSplit()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iLastRow
Cells(i, 2) = Split(Cells(i, 1), ",")(0)
Cells(i, 3) = Split(Cells(i, 1), ",")(1)
Cells(i, 4) = Split(Cells(i, 1), ",")(2)
Cells(i, 5) = Split(Cells(i, 1), ",")(3)
Cells(i, 6) = Split(Cells(i, 1), ",")(4)
Cells(i, 7) = Split(Cells(i, 1), ",")(5)
Cells(i, 8) = Split(Cells(i, 1), ",")(6)
Next
End Sub

[TI_ProJecT]

Sub Very_Difficult_Macro()
    [A1].TextToColumns [A1], xlDelimited, Comma:=True
End Sub

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

[TI_ProJecT]

В клетке E5 - Иванов Иван Иванович

1)В клетке А7 получить строку "Фамилия И.О." (например,"Иванов И.И."), используя данные клетки Е5.

Public Sub prog7()
k = 1
Do While Mid(Cells(5, 5), k, 1) <> " "
k = k + 1
Loop
p = Mid(Cells(5, 5), 1, k - 1)
InStr
End Sub

Как дальше делать не знаю, фамилию я вывел, а как получить инициалы?

[Camaro Chevelle]

да ну, всё проще.

dim p as string
k=instr(1, cells(5, 5), " ")
p=mid$(cells(5, 5), 1, k-1) & " " & mid$(cells(5, 5), k+1, 1) & ". " & mid$(cells(5, 5), instrrev(cells(5, 5), " ")+1, 1) & "."

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

[TI_ProJecT]

Сообщение от Camaro Chevelle

да ну, всё проще.

dim p as string
k=instr(1, cells(5, 5), " ")
p=mid$(cells(5, 5), 1, k-1) & " " & mid$(cells(5, 5), k+1, 1) & ". " & mid$(cells(5, 5), instrrev(cells(5, 5), " ")+1, 1) & "."

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

Спасибо большое все работает, буду разбираться, как это работает)