Страницы: 1
RSS
Как макросом - запустить случайный макрос, из четырех
 
Добрый день.
У меня такой вопрос.

В книге - несколько макросов : Макрос1, Макрос2, Макрос3, МакросX.
Как макросом - запустить один случайный, из этих четырех ?
 
Может одного будет достаточно?
Код
Sub RndMacro()
Randomize
Dim myRnd&
myRnd = Int(Rnd * 4) + 1
Select Case myRnd
    Case 1
        [A1] = [A1] + 1
    Case 2
        [B1] = [B1] + 1
    Case 3
        [C1] = [C1] + 1
    Case 4
        [D1] = [D1] + 1
End Select
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Sanja, а можно сделать такой макрос, где - просто через запятую нужные макросы будут перечислены ?

Как  "Макрос1, Макрос2, Макрос3, МакросX."
(То есть без Select Case)
 
Sanja именно это и показал - все в одном
 
vikttur, я говорю - через запятую.
Например, в  массиве каком-нибудь.
 
Цитата
Просто Вова написал:
через запятую
Код
Sub RndMacro()
  Randomize
  Run Split("Макрос1,Макрос2,Макрос3,МакросX", ",")(Int(Rnd * 4))
End Sub
 
Казанский, спасибо.
Я это имел ввиду.
Страницы: 1
Наверх