Назначение случайных чисел столбцу имен в Excel

Question

Я бы хотел перетасовать турнир. Например, у меня 15 игроков, и я бы хотел создать таблицу плей-офф.

Так что моя идея будет работать так, что я напишу всех игроков в столбце, скажем, это столбец B. Тогда так называемый макрос будет рисовать число для каждого игрока в диапазоне 1-playerCount (одно число для одного игрока). После этого игроки назначаются в таблице плей-офф (что очень удобно в Excel с границами).

В способе кодирования он может работать таким образом, что каждый человек в столбце получает черновик. Номера указаны в списке. Итак, скажем, у нас 15 игроков, сначала в списке есть цифры 1-15. Затем список перетасовывается (в основном так же, как составление случайного числа, но нам не нужно начинать поиск неназначенных номеров). Первый элемент (или последний, не имеющий значения) будет назначен для игрока. Итак, теперь игроки получают случайные числа, которые будут рисовать их в таблице. Эти цифры 1-15 могут представлять собой столбец X, возможно, где должны входить имена, а затем значения в этом столбце меняются.

Мой вопрос: насколько сложно было реализовать такие вещи? Как программист на Java, я смотрю эту идею, и я думаю, что что-то делать в JAVA это не займет много времени и будет довольно легко. Проблема с JAVA заключается в том, что тогда пользовательский интерфейс должен быть закодирован и создать пользовательский интерфейс, который делает таблицы плей-офф не самым простым решением.

Answer 1

Следующий код работает для бесконечного числа людей. Обратите внимание: чем больше людей вы добавите, тем дольше будет работать код, потому что он должен проверять все снова и снова.

Private Sub numb_ass() 
Dim i As Integer: i = 1 
Dim v As Integer 
Dim lr As Integer 
Dim t As Integer: t = 1 

With ActiveSheet 
    lr = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

Do Until i > lr 
NewNumber: 
    v = Int(lr * Rnd() + 1) 
    Do Until t > lr 
     If v = Range("B" & t) Then 
      If t > lr Then: Exit Sub 
      t = 1 
      GoTo NewNumber 
     End If 
     t = t + 1 
     If t > lr Then: Range("B" & i) = v 
    Loop 
t = 1 
i = i + 1 
Loop 
End Sub 

Answer 2

Включите макрос записи, если хотите. Скажем, имена находятся в столбце B, 1> 15 в столбце C (начиная с Row1). В A1 и скопировано до A15 введите:

=RANDBETWEEN(1,1000) 

вид Columna: B на A.

Answer 3

Если вы не хотите использовать сортировку, вы также можете сделать это следующим образом:

 A   B     C 
1 Player Name | Rand |  Player Number 
    ============+======+============================== 
2 John  | =Rand() | =COUNTIF($B$2:$B$6,">"&B2) 
3 James  | =Rand() | =COUNTIF($B$2:$B$6,">"&B3) 
4 Jim   | =Rand() | =COUNTIF($B$2:$B$6,">"&B4) 
5 George  | =Rand() | =COUNTIF($B$2:$B$6,">"&B5) 
6 Pete  | =Rand() | =COUNTIF($B$2:$B$6,">"&B6) 

Как это работает? Каждый раз, когда лист изменяется или обновляется, в столбце B генерируется новое случайное число. В столбце C просто подсчитывается, сколько чисел в этой строке больше, чем остальные значения в столбце B.

Вероятность того, что значения Rand() будут точно такими же то же самое минимально, поэтому вам не стоит беспокоиться о том, что у игроков есть тот же самый нубмер.