переменная строкового типа

[Rustamel]

Помогите решить проблему. В заданном предложении (переменная строкового типа) указать слово , в котором доля гласных ‘a’, ‘е’, ‘и’ максимальна.

Даже незнаю с чего начинать, функция Mid(st, 3, 4) выделяет тока заданные символы, а как выделить слово?Как проверить наличие букв ‘a’, ‘е’, ‘и’ да ещё и сравнить с другими словами чтобы найти то слово в котором количество этих букв максимальна???Спасибо
:?:

[motorway]

В цикле проверяете каждую букву и суммируете. В массив можно занести данные для разных слов, а потом найти максимум

[EducatedFool]

Sub СверхсложнаяПрограмма()
    txt = "Как проверить наличие букв ‘a’, ‘е’, ‘и’ да ещё и сравнить с другими словами чтобы найти то слово в котором количество этих букв максимальна?"
    НужноеСлово = "": МаксимальноеКоличествоГласных = 0
    For Each word In Split(txt, " ")
        КолвоГласных = КоличествоГласных(word)
        If КолвоГласных > МаксимальноеКоличествоГласных Then
            МаксимальноеКоличествоГласных = КолвоГласных
            НужноеСлово = word
        End If
    Next word
    If МаксимальноеКоличествоГласных = 0 Then
        MsgBox "Гласных в словах не найдено!", vbExclamation, "Проверка завершена"
    Else
        MsgBox "Максимальное количество гласных (" & МаксимальноеКоличествоГласных & _
               ") найдено в слове """ & НужноеСлово & """", vbInformation, "Проверка завершена"
    End If
End Sub

Function КоличествоГласных(ByVal Слово As String) As Integer
    txt = Replace(Слово, "а", "")
    txt = Replace(txt, "е", "")
    txt = Replace(txt, "и", "")
    КоличествоГласных = Len(Слово) - Len(txt)
End Function

[The_Prist]

Я бы предложил способ в пять строк кода, но боюсь Вас в инсте сразу вычислят.
Вот в виде функции пользователя:

Function Get_MAX_Word(ByVal Cell As Range)
    Dim asArr, li As Long, sStr() As String, lMax As Long, lTmpMAX As Long, sWord As String
    asArr = Array("а", "е", "и"): sStr = Split(Cell, " ")

    For li = LBound(sStr) To UBound(sStr)
        lTmpMAX = lTmpMAX + (Len(sStr(li)) - Len(Replace(sStr(li), asArr(0), "")))
        lTmpMAX = lTmpMAX + (Len(sStr(li)) - Len(Replace(sStr(li), asArr(1), "")))
        lTmpMAX = lTmpMAX + (Len(sStr(li)) - Len(Replace(sStr(li), asArr(2), "")))
        If lMax < lTmpMAX Then lMax = lTmpMAX: sWord = sStr(li)
        lTmpMAX = 0
    Next li
    Get_MAX_Word = sWord
End Function

Поместите код в стандартный модуль книги.
В ячейке А1 Ваше предложение, в ячейку B1 вписываете данную функцию
=Get_MAX_Word(A1)

[Rustamel]

Большое человеческое спасибо!!!