Как сделать жеребьевку в excel

Как сделать жеребьевку в excel

макрос жеребьёвки, разбиения на пары
Умаляю помогите, есть такой макрос:

Range(Cells(iFirstRow + iItogRow, iFirstColumn + iItogColumn), _
Cells(iFirstRow + iItogRow, iFirstColumn + iItogColumn)).Value _
= Selection.Cells(iI, 1).Value
Selection.Cells(iI, 1).Value = ""
iRestCount = iRestCount — 1
If iItogColumn = 2 Then
iItogColumn = 1
iItogRow = iItogRow + 1
Else
iItogColumn = 2
End If
End If

‘Response = MsgBox(Selection.Cells(iI, iFirstColumn))
‘Response = MsgBox(Selection.Cells(iI, 1))
‘Dim MyValue
‘Randomize ‘ Initialize random-number generator.
‘MyValue = Int((6 * Rnd) + 1) ‘ Generate random value between 1 and 6.

там суть такая, 16 чисел можно разбить по парам, но только в СТОЛБЦЕ А, а мне нужно сделать что бы столбец А и столбец Б были отдельно, и пары делились МЕЖДУ ними.
помогите плиз

Как сделать жеребьевку в excel

Программа для жеребьевки спортсменов и формирования турнирных таблиц (реальное айкидо)

При проведении спортивных соревнований организаторы сталкиваются с необходимостью осуществления жеребьевки участников и формирования турнирных таблиц, которые в простом и наглядном виде (обычно — в MS Excel) будут отображать схему предстоящих соревнований: количество участников, их данные (ФИО, клуб, квалификация и т.д.), назначенных соперников, порядок выступления, число этапов соревнований и т.д.

При достаточно большом числе участников жеребьевка без использования программных средств может занять значительное время, не говоря уже про построение схемы соревнований вручную. В случае же проведения соревнований сразу по нескольким дисциплинам и/или с ранжированием по категориям (по возрасту, весу, уровню мастерства и т.д.) – объем работы увеличивается в разы: например, если участники выступают в 4 возрастных категориях и в 5 дисциплинах, то необходимо проводить жеребьевку 20 раз и строить 20 турнирных таблиц. Делать это без использования средств автоматизации – перспектива удручающая.

Для решения подобных задач по заказу "Сибирской Федерации Реального Айкидо (СФЕРА)" был разработан данный программный продукт.

Представленная программа позволяет на основе загруженных из файла MS Excel заявок автоматически осуществлять жеребьевку спортсменов в случайном порядке и формировать в новом файле Excel турнирную таблицу (сетку) чемпионата.

В данном видеоролике вы можете ознакомиться с функционированием программы:

Для перелистывания изображений можно использовать колесико мыши.


Вы можете скачать для ознакомления показанные в видеоролике файлы с турнирными таблицами и итоговыми отчетами:

Просто огромнейшее СПАСИБО Дмитрию — за обязательность, оперативность, понимание и работоспособность, да и просто спасибо огромное. Надеюсь, что если я напишу что я с Новосибирска, а человек из Питера откликнулся и сделал все что нужно и быстро и качественно — это, считаю лучшая реклама. у нас третий по величине город в России, но увы. оказалось, что настоящих буйных мало, нам вождей не доставало. СПАСИБО.

Ссылка на основную публикацию