подсчёт количества пар определённых значений в ячейках

[kudich]

Подскажите пожалуйста как (всё равно программно или с помощью встроенных функций) подсчитать количество пар/троек/четвёрок значений в ячейках.
Постараюсь пояснить: например в одной ячейке находятся такие значения:
алле межд. разг. устар.
а в другой такие:
аморалка разг. устар.
и требуется посчитать количество пар "разг. устар."
Причём эти слова не обязательно будут рядом, т.е. между "разг." и "устар." может быть впихано всякой абракадабры, иначе можно было бы воспользоваться простым ПОИСКЕСЛИ

[doober]

[

Public Function PARA(RNG As Range, fras1 As String, fras2 As String) As Long
 Dim n, m As Long
 PARA = 0
   Dim rr
 rr = RNG.Value
  For n = 1 To RNG.Columns.Count
   For m = 1 To RNG.Rows.Count
 If InStr(1, rr(m, n), fras1) * InStr(1, rr(m, n), fras2) <> 0 Then
 PARA = PARA + 1
 End If
Next: Next
End Function

[ZORRO2005]

=СЧЁТЕСЛИ(диапазон;*разг*устар*)

[kudich]

2doober
Я первый раз пользуюсь макросами, спасибо, но пока получается. Я создал макрос, сохранил его, теперь появилась функция PARA. Первый её аргумент это диапазон ячеек в которых работаем, а вторые два элемента - пара, которую будем искать. Записываются они в функцию через почку с запятой в двойных кавычках. А можешь всю логику рассказать? И может быть посоветуешь какую-нибудь книжку по программированию в excel?
2ZORRO2005 спасибо

[doober]

Функции VBA с пояснениями можно посмотреть здесь
В примерах замените
Console.WriteLine(InStr(1, "Это текст, " & _
"где мы будем искать слово 'тест', кстати, " & _
"функция возвратит 39", "тест"))
на

Msgbox(InStr(1, "Это текст, " & _
"где мы будем искать слово 'тест', кстати, " & _
"функция возвратит 39", "тест"))

InStr
Синтаксис: InStr([Start], String1, String2[, Compare])
Описание:
Функция возвращает позицию первого вхождения указанной последовательности символов в другой последовательности символов. Для поиска последовательности символов с конца строки можно использовать функцию InStrRev.
Start - числовое выражение, указывающее номер позиции, с которой должен начинаться поиск. По умолчанию поиск начинается с первого символа.

String1 - строковое выражение, представляющее собой строку, в которой производится поиск.

String2 - строковое выражение, представляющее собой искомую строку.

Compare - указывает метод сравнения. Двоичное ,или сравнение текста

Если String2 присутствукт в String1 то результат будет отличный от нуля.Если оба выражения присутствуют в тексте ячейки

InStr(1, rr(m, n), fras1) * InStr(1, rr(m, n), fras2) <> 0

значит произведение будет не равно 0.Ведем подсчет этих совпадений

PARA = PARA + 1

Это своего рода буквари
Справка,которую выложил Serge 007
Здесь книжка
Здесь книжка