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

[TI_ProJecT]

Выдать сообщение в диалоговом окне: в какой из клеток А3 или В3 записано более длинное слово (или их длины равны). Проверить все варианты.

Какой функцией проверить длину слова? Или как определить длину?

[Camaro Chevelle]

если речь идёт об Экселе, то надо на VBA написать макрос например такой

Sub zzzzzz()
    Select Case Len(Range("A3").Text) - Len(Range("B3").Text)
      Case Is < 0
        MsgBox "Слово в В3 длиннее!"
      Case Is > 0
        MsgBox "Слово в A3 длиннее!"
      Case Else
        MsgBox "Длины слов равны!"
    End Select
End Sub

[TI_ProJecT]

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

если речь идёт об Экселе, то надо на VBA написать макрос например такой

Sub zzzzzz()
    Select Case Len(Range("A3").Text) - Len(Range("B3").Text)
      Case Is < 0
        MsgBox "Слово в В3 длиннее!"
      Case Is > 0
        MsgBox "Слово в A3 длиннее!"
      Case Else
        MsgBox "Длины слов равны!"
    End Select
End Sub

Написал тоже самое, но через If.
Но моя версия не работает на Len жалуется.
У вас все заработало, спасибо большое.

[TI_ProJecT]

Если второй символ слова в клетке А4 - согласная, то в клетку В4 записать строку, содержащую пять символов звездочка, иначе - строку, содержащую три символа &.

Сделать надо через Like, вопрос такой, каким образом проверить вторую букву на согласность? Будет:

If Cells(1, 4).Value Like "?[согласные буквы]"

На место вопроса, что поставить? или я не правильно что то делаю?

[Camaro Chevelle]

думаю так не выйдет. надо по всем согласным буквам пройтись, используя функцию mid$

[Camaro Chevelle]

ой, там через лайк надо?
ну тогда пройтись по всем согласным используя в лайке образец "?x*", вместо х подставлять каждую согласную
вообще наверно есть получше способ, я лайками никогда не пользовался и вообще уже давным-давно не прогал на vba

[TI_ProJecT]

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

ой, там через лайк надо?
ну тогда пройтись по всем согласным используя в лайке образец "?x*", вместо х подставлять каждую согласную
вообще наверно есть получше способ, я лайками никогда не пользовался и вообще уже давным-давно не прогал на vba

Спасибо,сейчас попробую так.

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

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

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

Какими тут функциями пользоваться?

[Camaro Chevelle]

mid$ и instr либо instrrev. ещё лучше юзай Split

[TI_ProJecT]

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

mid$ и instr либо instrrev

Sub pr4()
x = [á,â,ã,ä,æ,ç,ê,ë,ì,í,ï,ð,ñ,ò,é,ö,ø,ù]
If Cells(4, 1).Value Like "?x*" Then MsgBox "yaeh" Else MsgBox "yw2eh"
End Sub

Не получилось так.

[Camaro Chevelle]

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