1

Тема: Отбор персонажей по рейтингу

У каждого игрока имеются в наличии бойцы. У Игрока 1 - Мордо, Карнак, Змей и т.д. по списку… Один и тотже боец может быть у разных игроков
Напротив каждого бойца указан его рейтинг
Необходимо в таблицу листа Итог загрузить данные с таблицы листа 3бг, где каждый игрок будет иметь в списке по 5 уникальных (Все 50 отобранных персонажей в таблице на листе Итог не должны повторятся) бойцов с максимальным рейтингом
В данной файле имеется 69 уникальных бойцов из 184

Post's attachments

1911.xlsx 40.23 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.

2

Re: Отбор персонажей по рейтингу

s1910197 пишет:

У каждого игрока имеются в наличии бойцы. У Игрока 1 - Мордо, Карнак, Змей и т.д. по списку… Один и тотже боец может быть у разных игроков
Напротив каждого бойца указан его рейтинг
Необходимо в таблицу листа Итог загрузить данные с таблицы листа 3бг, где каждый игрок будет иметь в списке по 5 уникальных (Все 50 отобранных персонажей в таблице на листе Итог не должны повторятся) бойцов с максимальным рейтингом
В данной файле имеется 69 уникальных бойцов из 184

Делайте так:
Dim iFNumber, iCount, i as Integer
Dim aFArray as array(49) 'или 50 если с Option Base 1
i = 1
Do While iFNumber < 50
Берите рандомом от 1 до нужного кол-ва (69 или 184)
Затем If i = 1 Then
aFArray(i) = получившееся число
Else
'Проверяем есть ли уже такой номер в массиве
For iCount = LBound(aFArray) To UBound(aFArray)
If aFArray = число Then GoTo TakeAnother
Next iCount
'если не найдёт повтора, то добавляем
i = i + 1
aFArray(i) = число
End If
TakeAnother
Loop

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Отбор персонажей по рейтингу

Fck_This пишет:
s1910197 пишет:

У каждого игрока имеются в наличии бойцы. У Игрока 1 - Мордо, Карнак, Змей и т.д. по списку… Один и тотже боец может быть у разных игроков
Напротив каждого бойца указан его рейтинг
Необходимо в таблицу листа Итог загрузить данные с таблицы листа 3бг, где каждый игрок будет иметь в списке по 5 уникальных (Все 50 отобранных персонажей в таблице на листе Итог не должны повторятся) бойцов с максимальным рейтингом
В данной файле имеется 69 уникальных бойцов из 184

Делайте так:
Dim iFNumber, iCount, i as Integer
Dim aFArray as array(49) 'или 50 если с Option Base 1
i = 1
Do While iFNumber < 50
Берите рандомом от 1 до нужного кол-ва (69 или 184)
Затем If i = 1 Then
aFArray(i) = получившееся число

Спасибо за ответ, но для меня это не понятно
Else
'Проверяем есть ли уже такой номер в массиве
For iCount = LBound(aFArray) To UBound(aFArray)
If aFArray = число Then GoTo TakeAnother
Next iCount
'если не найдёт повтора, то добавляем
i = i + 1
aFArray(i) = число
End If
TakeAnother
Loop

4

Re: Отбор персонажей по рейтингу

Я думал, вы игру делаете на экселе

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871