excel - Excel VBA乱数を順番に生成し、その数に応じて生成する

Question

こんばんは

VBAコードまたはVBA内の式のいずれかによって、必要な数に従ってソートされた順序で乱数を取得するというトリッキーな問題があります。この必要性は、1 から 10 の間でランダムに生成されます。

起動するとこんな感じ。

これが、例で失敗した数に応じて並べ替えられた数字を示す、私が念頭に置いていた効果です。

これは、セル J7 に必要な数の乱数が含まれているが、数字が完全にソートされていない場合に行った VBA による 1 つの試みです。ここで提案/フィードバックを受け付けています。どうもありがとう。

Public Const BeCoolMachineCounter As String = "J7"
Public Const BeCoolMachineRange As String = "Q03:Q12"
'Generate the random data according to how many needed.
Call CreateNumbers(Range(BeCoolMachineRange), Range(BeCoolMachineCounter).Value)
Private Sub CreateNumbers(Which As Range, HowMany As Integer)
' Declaration of variables
    Dim c As Range
    Dim iCheck As Long

    iCheck = 1

' Generate random failures based on the number of required for each supplier
    For Each c In Which
        If iCheck <= HowMany Then
            c.Value = Random1to2192
            iCheck = iCheck + 1
        End If
    Next c
End Sub