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

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

Знаете ли Вы, что релятивизм (СТО и ОТО) не является истинной наукой? - Истинная наука обязательно опирается на причинность и законы природы, данные нам в физических явлениях (фактах). В отличие от этого СТО и ОТО построены на аксиоматических постулатах, то есть принципиально недоказуемых догматах, в которые обязаны верить последователи этих учений. То есть релятивизм есть форма религии, культа, раздуваемого политической машиной мифического авторитета Эйнштейна и верных его последователей, возводимых в ранг святых от релятивистской физики. Подробнее читайте в FAQ по эфирной физике.

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

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