макрос

[мария2507]

Определить, гласных или согласных букв больше во введенном с кла-виатуры символьном выражении

[IgorGO]

в сообщении, которое вы ввели с клавиатуры - больше согласных.

[мария2507]

спасибо....)

но как это написать в макросе??????

[андей]

щ мжн тк:_______________

[мария2507]

Андрей, а я чет в этой книге макроса не могу найти((((

[мария2507]

ой......поняла.....
но мне надо не по формулам, а в макросе!!!

[андей]

а что в макросе формул не будет?
что это значит макросом?

[IgorGO]

для русского алфавита, так можно:

Const GL As String = "ЁУЕЫАОЭЯИЮ"
Const SGL As String = "ЙЦКНГШЩЗХЪФВПРЛДЖЧСМТЬБ"

Function CS(s As String, Optional g As Boolean = True) As Integer
  Dim c As Integer, i As Integer
  c = 0
  For i = 1 To Len(s)
    If InStr(IIf(g, GL, SGL), UCase(Mid(s, i, 1))) > 0 Then c = c + 1
  Next
  CS = c
End Function

[мария2507]

спасибо))
ток чет у меня не проверяется(((((
чето ему тип аргумента не нравится(((((

[IgorGO]

Смотрите, для примера процедура Test, там пример использования и типы аргументов совпадают