СЧЁТЕСЛИ(только Кириллица ) и СЧЁТЕСЛИ(смешанный текст)

[peq]

>>Окончание может быть только "a-z" или случайный пробел(ы)

ну так с этого тогда надо было начинать.. из написанного выше в топике и внутри файла это никак не следует

>>Мне надо чтобы я знал и понимал .

чтобы знать и понимать надо думать самому.. если хотите - можете подумать.. если не хотите - можете не заморачиваться.. хозяин-барин

[Aleksandr H.]

Ну вдруг будет время и желание почитать vba, как вариант рассмотрите код

Function CountIfOnlyLatin(rng As Range) As String
    Dim LatinAlphbet As String
    Dim str As String
    Dim cel As Range
    Dim count As Long
    CountIfOnlyLatin = ""
    On Error GoTo ext
    count = 0
    LatinAlphbet = "*[abcdefghijklmnopqrstuvwxyz]*"
    ' перебираем диапазон
    For Each cel In rng
'    приводим в нижний регистр значение
        str = LCase(cel)
'        если str состоит из латиницы
        If str Like LatinAlphbet Then
'        сохраняем адресс  ячейки и увеличиваем счетчик
            CountIfOnlyLatin = CountIfOnlyLatin & cel.Address & "; "
            count = count + 1
        End If
    Next
'    формируем выходную строку
    CountIfOnlyLatin = count & "( " & Left(CountIfOnlyLatin, Len(CountIfOnlyLatin) - 2) & ")"
    Exit Function
ext:
    CountIfOnlyLatin = ""
End Function


Function CountIfOnlyCyrylic(rng As Range) As String
    Dim LatinAlphbet As String
    Dim str As String
    Dim cel As Range
    Dim count As Long
    CountIfOnlyCyrylic = ""
    On Error GoTo ext
    count = 0
    LatinAlphbet = "*[abcdefghijklmnopqrstuvwxyz]*"
    ' перебираем диапазон
    For Each cel In rng
'    приводим в нижний регистр значение
        str = LCase(cel)
'        если str НЕ состоит из латиницы
        If Not (str Like LatinAlphbet) Then
'        сохраняем адресс  ячейки и увеличиваем счетчик
            CountIfOnlyCyrylic = CountIfOnlyCyrylic & cel.Address & "; "
            count = count + 1
        End If
    Next
'    формируем выходную строку
    CountIfOnlyCyrylic = count & "( " & Left(CountIfOnlyCyrylic, Len(CountIfOnlyCyrylic) - 2) & ")"
    Exit Function
ext:
    CountIfOnlyCyrylic = ""
End Function

по мелочи допилить, но суть, думаю, понятна

[0mega]

Александр, спасибо за уделенное время

...суть, думаю, понятна...

Я тоже так думаю...
Осталось уточнить кому

А можно один "каверзный" вопрос
пятью постами выше я писал

Результат работы серого вещества
Код:
=СУММПРОИЗВ(НЕ(Z5:Z30)*(ПРАВБ(СЖПРО БЕЛЫ(B5:B30))<="z")*(ПРАВБ(СЖПРОБЕЛ Ы(B5:B30))>="a"))

здесь для меня, действительно, все понятно
Какое преимущество в Вашем "понятном" решении, которое надо прокручивать скролингом ?

[Aleksandr H.]

Сообщение от 0mega

Какое преимущество в Вашем "понятном" решении, которое надо прокручивать скролингом ?

будет работать на версиях старше 2007 в них нету используемой Вами правб А так то да, все пути решения, которые приводят к нужному результату, приемлемы. Вам с peq нравятся сложные формулы, мне - в коде посчитать. Извините если мое сообщение оскорбило Вас. Удачи.

[0mega]

Сообщение от Aleksandr H.

будет работать на версиях старше 2007 в них нету используемой Вами правб...

я сейчас работаю (и естественно формула составлялась тоже ) на 2003-ем
ПРАВБ() - это аналог ПРАВСИМВ() ( эта функция есть даже в 2000-ом )
Скажу Вам по секрету : я лентяй. Печатать лишних 3 (!) знака ?!

Сообщение от Aleksandr H.

Извините если мое сообщение оскорбило Вас

Откуда у Вас такие мысли ?
Наоборот : рад знакомству и приятному общению
Если будут VBA-вопросы - обязательно обращусь к Вам