Из сводной таблицы спортсменов сформировать турнирную сетку - VBA
Формулировка задачи:
Здравствуйте!
Обычной записи действий для макроса недостаточно, поэтому спрашиваю у вас
Есть сгруппированный в сводной таблице список спортсменом. Хочу иметь возможность из этого списка каким-либо образом формировать обычную турнирную сетку.
Как мне показалось, одно из решений возможно следующим образом: Выделенные(с зажатым Ctrl, рис1) ячейки с ФИО спортменов, нажав на созданную кнопку, заполнялись бы по очереди в нужные ячейки на другом листе, как бы формируя визуально эту самую сетку(рис 2). На рис2 и проставил порядок, в котором разумнее заполнять сетку, т.к. тогда будет возможность формировать одинаково сетку и на 4 спортменов, и на 8 и на все 16.
Программистом не являюсь, но знания какие-то есть. Код больше понимаю, чем нет. Задача актуальна для моей работы. Буду благодарен всем тем, кто откликнется и поможет или подскажет, как сделать лучше.
Решение задачи: «Из сводной таблицы спортсменов сформировать турнирную сетку»
textual
Листинг программы
Option Explicit Public arrSpis() Sub spisoksp() Dim iLastRow As Integer 'Dim arrSpis()As String 'Worksheets("Спортсмены").Activate iLastRow = 2 Do While (Not IsEmpty(Worksheets("Спортсмены").Cells(iLastRow, 1).Value)) iLastRow = iLastRow + 1 Loop arrSpis = Range(Worksheets("Спортсмены").Cells(2, 1), Worksheets("Спортсмены").Cells(iLastRow - 1, 1)) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д