エクセル|選択したセル範囲にランダムな数を表示する

エクセルの講座中、ランダムな数を複数のセルに入力するのは面倒で、時間の無駄です。
そこで、簡単なコードを書いてみました。
サンプルコードの使用は自己責任でお願いします。

セルを選択して実行してみてください。
列・行・全セル選択ボタンの選択には対応していません。


Sub Smp_01()
‘————————————–
‘数値をランダム表示
‘————————————–
Dim RngSelection As Variant
Dim myRng As Range

If Not TypeName(Selection) = “Range” Then Exit Sub
Set RngSelection = Selection

Randomize
For Each myRng In RngSelection
  myRng.Value = Int(Rnd() * 10 + 1) * 10
Next

Set RngSelection = Nothing

End Sub

アドインにして使うと便利だと思います。
適当なキーに割り当ててください。
私は、右クリックのメニューにしてみました。

by 和田まさつか