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

Имеем несколько слов. Надо быстро и безболезненно подсчитать количество гласных или согласных букв в каждом из них. Проще всего это будет сделать при помощи двух пользовательских функций, которые мы добавим к стандартному Мастеру функций 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 - визуальным средам

Знаете ли Вы, что в 1965 году два американца Пензиас (эмигрант из Германии) и Вильсон заявили, что они открыли излучение космоса. Через несколько лет им дали Нобелевскую премию, как-будто никто не знал работ Э. Регенера, измерившего температуру космического пространства с помощью запуска болометра в стратосферу в 1933 г.? Подробнее читайте в FAQ по эфирной физике.

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

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