userformのcommandbuttonでプロシージャーをランダムに実行させたい

質問

excel vba 初心者です。
userformにlabel1～label5、commandbutton1があります。
セル内の文字をlabel1～label5に表示させるプロシージャーを　
PRO1()　とつくりました。
セル範囲の違うものを PRO2()、PRO3().....PRO50() まで作りました。 commandbutton1 でこの５０個のプロシージャーをランダムに実行させることはできるのでしょうか？
よろしくお願いします。

回答No.2

n-jun · ベストアンサー

n-junです。

Dim i As Long
i = Int(Rnd() * 50) + 1

ラベル１は、Range("A" & i * 6 - 4).Value
ラベル２は、Range("A" & i * 6 - 3).Value
・・・
ラベル５は、Range("A" & i * 6).Value

となるのでは？

お礼

うまくいきました。
ありがとうございました。

回答No.1

n-jun

セル範囲だけが違うのなら、乱数から取得するセル範囲を変更させる事で、
＞この５０個のプロシージャー
って１個でいいようにも思うんですけど、やっぱ５０個必要なんでしょうか？

＞セル内の文字をlabel1～label5に表示
セルの並びに規則性がないのかな。

お礼

早速の回答ありがとうございます。
今、仕事中なので家に帰ってからやってみます。

補足

Label1に関係するLabel2、3、4、5 なので1セットでひとつのプロシージャーにしました。
セルの並びに規則性はあります。
　PRO1()
Label1 = A2
Label2 = A3
Label3 = A4
Label4 = A5
Label5 = A6
PRO2()
Label1 = A8
Label2 = A9
Label3 = A10
Label4 = A11
Label5 = A12
　行が＋６づつとなります。