指定範囲のみ有効にするには？

質問

こんにちは、いつもお世話になっています。BVA初心者です。

・次のマクロを１５×１５のセルのみで有効にするにはどうすればいいでしょうか？このままでは無限ループになってしまいます。(>_<)

Option Explicit

Sub Sample()

'0～4の範囲で発生させた整数の乱数をセルに書き込み、行または列方向に移動
'4なら縦横の進行方向を逆転させる

Dim a As Long
Dim b As Boolean

'初期化
Cells.Clear 'セルクリア
Cells(1, 1).Select '基点

'最初の進行は行方向
b = True

'↓ここで、なんらかのマクロを使って１５×１５のマクロを指定するんだと思います。
Do While activecell = ("")

'抽選
a = Rnd * 4
'抽選結果の乱数を書き込み
activecell.Value = a
'抽選結果から進行方向を決める
If a = 4 Then b = Not b
'進行方向別の移動処理
If b Then
activecell.Offset(1, 0).Select '行方向へ移動
Else
activecell.Offset(0, 1).Select '列方向へ移動
End If
Loop
End Sub

回答No.1

agricap · ベストアンサー

あまり詳しくは書きませんが、
Do While activecell = ("")
の次の行に、
If ActiveCell.Row >= 16 Or ActiveCell.Column >= 16 Then
Exit Do
End If
でどうでしょうか？

お礼

ありがとうございます。
予想が、
Do while activecell=("A1:O15")
みたいになるのかな、と思っていたので、Ifを使うやり方もあるんだなと感心しました。
これからもがんばって勉強していきます。
数分での回答、見事です。