выбор случайного символа из списка заданных

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » выбор случайного символа из списка заданных (Макросы/Sub)

AsprOn

Дата: Воскресенье, 19.04.2015, 11:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Подскажите пожалуйста, нужно чтобы макрос менял цифру на на одну из трех выбранных букв, например 1 на "а,б или в". У меня получилось нечто вроде:
Range("A1:Z1").Replace What:="1", Replacement:="à"
так же разобрался как заменить на рандомную букву, но выбрать из трех заданных не получается, помогите.

Ответить

ShAM

Дата: Воскресенье, 19.04.2015, 11:55 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Вы читаете только те пункты Правил, которые Вам пишут? Хорошо, прочтите п.3. Особенно то, что выделено синим.

Ответить

AsprOn

Дата: Воскресенье, 19.04.2015, 12:07 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

извините, прикладываю файл, у меня получилось только на замену 1=а, а=1.

К сообщению приложен файл: 6635149.xls (30.5 Kb)

Ответить

Manyasha

Дата: Воскресенье, 19.04.2015, 12:20 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

AsprOn, здравствуйте, можно так[vba]

Код

Sub qwe()
     Dim ch As String
     Dim allowed
     allowed = Array("a", "b", "c")
     ch = InputBox("На что заменить единички?" & vbCrLf & "Вы можете ввести a,b или c")
     For Each repl In allowed
         If ch = repl Then Range("A1:Z1").Replace What:="1", Replacement:=ch: Exit For
     Next repl
End Sub

[/vba]

К сообщению приложен файл: 6635149_1.xls (34.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

ShAM

Дата: Воскресенье, 19.04.2015, 12:21 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Так:
[vba]

Код

Sub qwe()
ww = Choose(WorksheetFunction.RandBetween(1, 3), "а", "б", "в")
Range("A1:Z1").Replace What:="1", Replacement:=ww
End Sub

[/vba]

Ответить

wild_pig

Дата: Воскресенье, 19.04.2015, 12:28 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 517

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

[vba]

Код

Option Base 1
Sub uuu()
     a = Array("a", "b", "c")
     Randomize
     For Each cel In Sheets("Лист1").UsedRange.Cells
         cel.Value = Replace(cel.Value, "1", a(Int((3 * Rnd) + 1)))
     Next
End Sub

[/vba]

Ответить

AsprOn

Дата: Воскресенье, 19.04.2015, 13:30 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

спасибо всем огромное, еще такой вопрос, в этом варианте

Цитата wild_pig, 19.04.2015 в 12:28, в сообщении № 6

Option Base 1
Sub uuu()
    a = Array("a", "b", "c")
    Randomize
    For Each cel In Sheets("Лист1").UsedRange.Cells
        cel.Value = Replace(cel.Value, "1", a(Int((3 * Rnd) + 1)))
    Next
End Sub

при запуске меняет значение в ячейке А1 и пишет "subscript out of range", как сделать чтобы он работал во всем документе?
з.ы. извините если вопрос глупый, к сожалению познания vba очень скудны