Ищу решение

[Roxi Rox]

Пытаюсь программировать на VBA в Excel(т.е пока еще чайник). Наткнулась на интересную задачку и запуталась с кодом. Люди, Help!!!
Вот задачка:
Все буквы слова, в котором содержится не менее двух букв а, заменить на заглавные буквы.

[doober]

Вот ваше решение

Len (функция) - возвращает число символов строки или число байт, необходимых для хранения
переменной

UCase (функция) - возвращает строку, преобразованную в верхний регистр
If...Then... Else (оператор) - выполнение групп команд в зависимости от значения выражения

[nerv]

Сообщение от doober

или число байт, необходимых для хранения переменной

// LenB() .

[alex77755]

и запуталась с кодом

Код в студию - поможем распутать.
Вот только что-то подсказывает, что не сама ты "Наткнулась на интересную задачку", а тебя наткнули выдав задание.

[ikki_pf]

http://www.cyberforum.ru/vba/thread602002.html

[SAS888]

Некоторые дополнения к коду по ссылке:
1. Не зависимо от установки Option Base, счет элементов в массиве, полученном с помощью оператора Split, будет начинаться с 0. Соответственно, чтобы не пропускалось первое слово в предложении, и цикл перебора нужно организовывать

For n=0 To UBound(words)

2. Условие вхождения в текущее слово двух и более букв "а" мощно (проще) проверять так:

If LCase(words(n)) Like "*а*а*" Then words(n) = UCase(words(n))

P.S. Обратите внимание, что в примере ищем русскую букву "а".