Excel2007でのVBAについて

質問

Excel2007でのVBAについて
お世話になります。稚拙な質問になると思いますがよろしくお願いします。
VBやマクロにつきましてはまったくの初心者なのですが、
「セルをランダム色で塗る」というコードを自分なりに考え、
ボタンに付着させてみました。以下の通りです。

With Selection.Interior
.Pattern = xlSolid
.Color = RGB((255 * Rnd), (255 * Rnd), (255 * Rnd))
.PatternTintAndShade = 0
End With

しかしボタンを押し実行してみますと、塗りつぶしはされるのですが、
Excelを起動してから最初の実行は必ず同じ色になります（小倉色のような）。
ポチポチとクリックしていっても、ランダムにはならず
毎回同じ順番で色が変化していきます。
1,600万色の中からランダム色で塗りつぶされないのは、何が問題でしょうか？
ご指摘と、解決の方法をご教示お願いいたします。

回答No.1

xls88 · ベストアンサー

Rndにはどんな値が代入されていますか？
Rndの値の発生メカニズムはどうなっていますか？

よいのかも知れませんが
RGB((255 * Rnd), (255 * Rnd), (255 * Rnd))
これだと3色共同じ値になります。
見た目変化に乏しくなると思います。

Dim c As Range
Dim myNum(3) As Integer
Dim i As Integer

For Each c In Range("B2:B11")
For i = 0 To 2
Randomize
myNum(i) = Int(rnd() * 255)
Next i
With c.Interior
.Color = RGB(myNum(0), myNum(1), myNum(2))
End With
Next

お礼

xls88さま imogasiさま
補足の件ですが、「With Selection.Interior」
を用いて解決いたしました。
お騒がせいたしました。
ご丁寧に、ありがとうございました。ほんとうに助かりました。

補足

xls88さま imogasiさま

丁寧なご回答ありがとうございます！
お二方のコードを実行してみましたが、大変申し訳ありません、
質問文に瑕疵がありました。

＞「セルをランダム色で塗る」というコードを自分なりに考え、

という部分ですが、
「複数（あるいは一つ）のセルを選択し、その複数セルを同一のランダム色で塗る」と記述しなければなりませんでした。
例えば、B2からB11セルをポインタで選択しておいて、
VBAを実行すると、その10個のセルがすべてランダムに選ばれた同じ色に塗りつぶされ、
そしてまた再実行すると1,600万色の中からランダムに選択された異なった色に塗りつぶされる、
ということを教えていただきたかったのです。

不手際をお詫びいたします。再度ご教示いただければ、幸いに思います。
申し訳ありません。よろしお願い申し上げます。

回答No.2

imogasi

それぞれのセル（の色）を問題にする。
RGBのそれぞれの色要素をランダムにする。
２５５以内の数を指定。
ー＞RAND関数でも同じですが、Rnd掛ける（上限ー下限）＋下限ー＞（２５５－０）＋０の計算を行う。
がポイントと思う。
ーーー
書式をクリアしておいて、範囲指定して実行
Sub test02()
Dim cl As Range
For Each cl In Selection
Randomize
With cl.Interior
.Pattern = xlSolid
r = Int(Rnd() * 255)
MsgBox Int(Rnd() * 255)
Randomize
G = Int(Rnd() * 255)
Randomize
B = Int(Rnd() * 255)
.Color = RGB(r, G, B)
'.PatternTintAndShade = 0
End With
Next
End Sub

お礼

imogasiさま
いつも素早く、そして的確なご回答に感服と驚愕いたしております。
ありがとうございました。助かりました。
先にご回答頂きましたxls88さまをベストアンサーに選ばせて頂きました。

補足

xls88さま imogasiさま

丁寧なご回答ありがとうございます！
お二方のコードを実行してみましたが、大変申し訳ありません、
質問文に瑕疵がありました。

＞「セルをランダム色で塗る」というコードを自分なりに考え、

という部分ですが、
「複数（あるいは一つ）のセルを選択し、その複数セルを同一のランダム色で塗る」と記述しなければなりませんでした。
例えば、B2からB11セルをポインタで選択しておいて、
VBAを実行すると、その10個のセルがすべてランダムに選ばれた同じ色に塗りつぶされ、
そしてまた再実行すると1,600万色の中からランダムに選択された異なった色に塗りつぶされる、
ということを教えていただきたかったのです。

不手際をお詫びいたします。再度ご教示いただければ、幸いに思います。
申し訳ありません。よろしお願い申し上げます。