Сколько гласных и согласных букв в слове

Имеем несколько слов. Надо быстро и безболезненно подсчитать количество гласных или согласных букв в каждом из них. Проще всего это будет сделать при помощи двух пользовательских функций, которые мы добавим к стандартному Мастеру функций Excel. Для этого:

1.	откройте файл, содержащий слова, которые мы будем анализировать

2.	нажмите сочетание клавиш Alt + F11 или выберите в меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor)

3.	вставьте новый пустой модуль (меню Insert - Module)

4.	скопируйте в него текст этих двух функций:

Public Function Glasn(slovo As String) As Integer
Dim i As Integer
Dim Vse_Glasn As String

Vse_Glasn = "аоеёыуияэ"
For i = 1 To Len(slovo)
bukva = Mid(slovo, i, 1)
If InStr(1, Vse_Glasn, bukva, 1) > 0 Then Glasn = Glasn + 1
Next i
End Function

Public Function Soglasn(slovo As String) As Integer
Dim i As Integer
Dim Vse_Soglasn As String

Vse_Soglasn = "бвгджзклмнпрстфхцчшщъь"
For i = 1 To Len(slovo)
bukva = Mid(slovo, i, 1)
If InStr(1, Vse_Soglasn, bukva, 1) > 0 Then Soglasn = Soglasn + 1
Next i
End Function

Теперь можно сохранить файл и, закрыв редактор Visual Basic, вернуться в Excel. Созданные функции можно найти в Мастере функций (меню Вставка - Функция) в категории Определенные пользователем (User Defined) и использовать как стандартные функции Excel:

к библиотеке 3GL к оглавлению к экономической информатике 4GL - визуальным средам

Знаете ли Вы, что низкочастотные электромагнитные волны частотой менее 100 КГц коренным образом отличаются от более высоких частот падением скорости электромагнитных волн пропорционально корню квадратному их частоты от 300 тысяч кмилометров в секунду при 100 кГц до примерно 7 тыс км/с при 50 Гц.

НОВОСТИ ФОРУМА

Рыцари теории эфира