создайте макрос который будет кодировать текст сменяя буковкы "а" в тексте

Создайте макрос который будет кодировать текст заменяя буковкы "а" в тексте указанной ячейки на случайный знак и выводить закодированный текст в новой ячейке.

Задать свой вопрос
Мезнев Роман
Всегда на один и тот же, на один и тот же во всем тексте при каждом вызове макроса либо на произвольный каждый встреченный знак "а"? И еще, буковкы латинские или российские? И произвольный знак - он буква либо вообщем хоть какой?
Егор Отрутиков
буковкы а российские
Валентина Болибрух
символ хоть какой
1 ответ
Начальный текст поместить в ячейку A1, итог будет в А2

Sub Rep()
    n1 = Asc(" ")
    n = Asc("я") - n1 + 1
    Randomize Timer
    s = Cells(1, 1).Value
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "а" Then
            Mid(s, i, 1) = Chr(Int(n * Rnd + n1))
        End If
    Next i
    Cells(2, 1).Value = s
End Sub

Тестовое решение:
Наша Маша - растеряша!
Н3шЮ МHш - рястеряшМ!



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт