離れたセルに重複せず整数の乱数を発生させたいです

Question

前提・実現したいこと

エクセルマクロで、離れたセルに重複せず整数の乱数を発生させたいです。
初学者なため、どのようにコードを書けばいいのか、ネット上のものを見てもイマイチわからない状態です。
このコードは、座席表作成のために使います。
皆さんのお力、お貸しいただけないでしょうか。よろしくお願い致します。

表示させたいセル位置
N11,N15,N19,N23,N31,N35,N39,N43
R11,R15,R19,R23,R31,R35,R39,R43
W11,W15,W19,W23,W31,W35,W39,W43
AF11,AF15,AF19,AF23,AF31,AF35,AF39,AF43
AF11,AF15,AF19,AF23,AF31,AF35,AF39,AG43
AP19,AP23,AP31,AP35
AI19,AI23,AI31,AI35
AT11,AT15,AT19,AT23,AT31,AT35,AT39,AT43
AY11,AY15,AY19,AY23,AY31,AY35,AY39,AY43
BC11,BC15,BC19,BC23,BC31,BC35,BC39,BC43
BH11,BH15,BH19,BH23,BH31,BH35,BH39,BH43
BL11,BL15,BL19,BL23,BL31,BL35,BL39,BL43

Answer 1

シート上で数式を入れた方が後でメンテナンスがしやすいかと。

席順が決まったら、シート丸ごと新規ブックにコピーし、
セル全体を選択して（行番号と列番号の欄の重なる角を選択）コピーし、
そのまま値のみ貼り付けで数式を消したらいいかと思います。

F9キー押下で再計算ができるので、
何度か再計算してみて、目視で確認し、
ある程度意図的に選ぶことも可能かと思います。

Comments

[Takateratail]

ご親切に回答ありがとうございます。mattuwanさんのご教授頂いた方法も一度試してみようと思います。

Answer 2

「重複しない乱数」は乱数とはいいません。
この場合は、「ランダムに並べ替える」と考えましょう。プログラム界ではシャッフルといいます。

シャッフルするには、いろいろ方法はありますが、エクセルなら、
作業用シートに縦一列にセル番地を記入しておきます。

N11
N15
N19
N23
・
・

これをシャッフルするには、下記で紹介しているような方法を使います。

エクセル ランダムに並び替えをする

シャッフルができたら、この列のとなりに順に席を割り当てたい人の名前を入力する（どこかに名前の一覧があるならそれをコピーする）。
名前をセル番地をもとに、座席表に転記しておく。
というようなマクロ（VBA）を組めばいいでしょう。

---

作業シートを使わない別案

下記で配列をシャッフルする関数を紹介しています。

配列をランダムに並べ替える関数 - hatena chips

配列にセル番地を格納しておいて、上記の関数でシャッフルします。
Forループ処理で順にセル番地に名前を転記していきます。

これだと作業シートを使わずできます。

この方法でコードを書いてみたのでご参考に。

Public Sub SetSeatingChart()
    Dim SeatList As String 'セル番地をカンマ区切りで格納
    SeatList = _
    "N11,N15,N19,N23,N31,N35,N39,N43," & _
               "R11,R15,R19,R23,R31,R35,R39,R43," & _
               "W11,W15,W19,W23,W31,W35,W39,W43," & _
               "AF11,AF15,AF19,AF23,AF31,AF35,AF39,AF43," & _
               "AF11,AF15,AF19,AF23,AF31,AF35,AF39,AG43," & _
               "AP19,AP23,AP31,AP35," & _
               "AI19,AI23,AI31,AI35," & _
               "AT11,AT15,AT19,AT23,AT31,AT35,AT39,AT43," & _
               "AY11,AY15,AY19,AY23,AY31,AY35,AY39,AY43," & _
               "BC11,BC15,BC19,BC23,BC31,BC35,BC39,BC43," & _
               "BH11,BH15,BH19,BH23,BH31,BH35,BH39,BH43," & _
               "BL11,BL15,BL19,BL23,BL31,BL35,BL39,BL43"

    Dim ArySeat
    ArySeat = Split(SeatList, ",") '配列に変換
    Call AryShuffle(ArySeat)       '配列をシャッフル

    Dim AryName
    AryName = Range("A1:A88").Value  'A1:A87セルに名前が記入されているとする

    Dim i As Long
    For i = LBound(ArySeat) To UBound(ArySeat)
        Range(ArySeat(i)).Value = AryName(i + 1, 1)
    Next
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 引数      : バリアント配列、動的配列、配列                    '
'               宣言例 Dim MyArray As Variant                   '
' 目的      : 配列をランダムに並べ替える　　　　　　　          '
' 戻り値    : なし                                              '
' 使用例  　: Call AryShuffle(MyArray)                               '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub AryShuffle(ByRef MyAry)
Dim i As Integer, buf, UB As Integer, P As Integer
    If IsNull(MyAry) Then Exit Sub
     
    Randomize
    UB = UBound(MyAry)
    For i = UB To 1 Step -1
        P = Int((i + 1) * Rnd)
        buf = MyAry(P)
        MyAry(P) = MyAry(i)
        MyAry(i) = buf
    Next
End Sub

Comments

[Takateratail]

ご丁寧に、お時間割いて頂きありがとうございます。一度試してみようと思います。

Answer 3

まずは、そのセル位置のリストをどっかに作っといて、それ元に順番に番号振れるようにしときましょう

それができたら、乱数を考えればいいです

Comments

[Takateratail]

わかりました。ご意見参考に一度考えてみます。また、お伺いするかもしれませんが、その時は再度よろしくお願い致します。