Все буквы слова, в котором содержится не менее двух букв а, заменить на заглавные буквы - VBA
Формулировка задачи:
Задача такая:
Все буквы слова, в котором содержится не менее двух букв а, заменить на заглавные буквы.
Помогите, пожалуйста!!! Не могу составить грамотное решение!!!!
Решение задачи: «Все буквы слова, в котором содержится не менее двух букв а, заменить на заглавные буквы»
textual
Листинг программы
Option Compare Text
Sub bb()
st = InputBox("Введите предложение")
words = Split(st, " ")
For n = 1 To UBound(words)
If InStr(InStr(words(n), "а") + 1, words(n), "а") Then words(n) = UCase(words(n))
Next n
st = Join(words)
MsgBox st
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д