開始ActiveCellからランダムに周囲のセルを生成し、さらに特定の値からランダムに生成する方法

Question

セルを無作為化した数値セットを視覚的に表現しようとしています。これを5x5グリッドにするだけで、小さなものから始めて、必要に応じて更新することができます）。

例：私の中央のアクティブセルがnumber = randand（1,10）の場合、1-9の答えはそれを囲む隣接セルに1から10までの乱数を配置します。しかし、値が"10"である場合、がでないセルの周りにあるセルが、隣にある式が= randbetween（11,20）であるようにしたいとします。私はすべてを上書きしなくても、それをどうやって行うのか分かりません。数字のセットが1つだけです。

この回答は非ランダムな使用にも使用できます（あるスペースに椅子があった場合、テーブルやゴミ箱などが次のスペースにあることがわかっている場合などそれに）

私の質問を見てくれてありがとう！

それが行われたときには、次のようになります。

Answer 1

をしばらくの間、このに見た後、私は私が償いとして私のために働いてしまったものを共有することになり考え出し：

Dim k As Single 'Total Move Count 
    Dim x As Single 'Starting point of spiral 
    Dim bool As Boolean 'Boolean for direction change 
    bool = True 'starts boolean as true 
    k = 1 'starts count at 1 
    x = 0 ' starts position as 0 
    Dim i As Single 
    i = 1 
    Dim j As Single 
    j = 1 

    Do While x <= 10 

     For n = 0 To k 
      If bool = True Then 
      ActiveCell.Value = "=randbetween(0,100)" 
      ActiveCell.Offset(0, 1).Select 'Move Right 
      i = i + 1 
      Else 
      ActiveCell.Value = "=randbetween(100,200)" 
      ActiveCell.Offset(0, -1).Select 'Move Left 
      i = i - 1 
      End If 
     Next n 

     For n = 0 To k 
      If bool = True Then 
      ActiveCell.Value = "=randbetween(200,300)" 
      ActiveCell.Offset(1, 0).Select 'Down 
      i = i + 1 
      ActiveCell.Value = "=randbetween(300,400)" 
      ActiveCell.Offset(-1, 0).Select 'Up 
      i = i - 1 
      End If 
     Next n 

    k = k + 1 
    bool = Not bool 
    'MsgBox bool 
    x = x + 1 
    Loop 

私はこれが他の人に役立つことを願っています！