Из сводной таблицы спортсменов сформировать турнирную сетку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5