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

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

Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет)
При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 10¹¹ раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов.
Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.

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

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