Getallen sorteren op random — Forum

drumeke Startte dit onderwerp 27 apr 2022, 11:39 Antwerpen 61 berichten

In navolging van de spelers indelen zal ik he makkelijker maken.
Ik wil een aantal nummers (van 1 tot max 60) door elkaar gooien.
deze komen in 20 rijen en in 3 kolommen terecht.

Nu wil ik deze getallen random sorteren zodat ik telkens een ander opstelling krijg.
De nrs kunnen verschillen (max 60) uit een selectie van 90 nrs naargelang de inschrijving.
Ik kan dit doen met een te kopen programma en dan heb ik dit als resultaat.
Met "KUTOOLS" (deze maakt een temporary bestand aan en dat is volgens mij niet nodig.

Range("E2:G21").Select
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
ActiveWorkbook.Worksheets("Temporary1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Temporary1").Sort.SortFields.Add2 Key:=Range("B1") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Temporary1").Sort
.SetRange Range("A1:B60")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = False
ActiveWorkbook.Worksheets("Temporary1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Temporary1").Sort.SortFields.Add2 Key:=Range("B1") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Temporary1").Sort
.SetRange Range("A1:B60")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("E2").Select
End Sub

Maar ik wil dit niet aankopen daar dit zonder deze programma's ook moet lukken
Wie kan deze random sortering uitwerken?

franç 28 apr 2022, 11:23 407 berichten

drumeke schreef: ↑
27 apr 2022, 11:39
In navolging van de spelers indelen zal ik he makkelijker maken.
Ik wil een aantal nummers (van 1 tot max 60) door elkaar gooien.
deze komen in 20 rijen en in 3 kolommen terecht.

Deze vraag is niet moeilijker of makkelijker dan de vraag die je hier stelde.
Met de macro die je hierboven plaatste, zul je niet veel verder komen en ook al betaal je bij die firma ervoor, het resultaat zal niet in de vorm zijn die je wil (rijen met 3 kolommen).

drumeke schreef: ↑
27 apr 2022, 11:39
Maar ik wil dit niet aankopen daar dit zonder deze programma's ook moet lukken.

Zonder programma gaat dat zeker ook, maar dan zul je altijd nog wat handmatig moeten doen. Een macro die alles naar wens uitvoert, is daarom handiger. Als je dat 'netjes' wil programmeren en precies in de vorm die je wil, dan ben je daarmee niet in een paar uur klaar hoor (waarom denk je dat de firma die je vermeldde, er geld voor vraagt?). Ik zal de komende dagen eens kijken wat ik voor je kan doen.

drumeke Startte dit onderwerp 28 apr 2022, 17:51 Antwerpen 61 berichten

Bedankt bij voorbaat.
via de KU Tools lukt dit prima, perfect zoals ik wil maar inderdaad misschien niet zo eenvoudig om te schrijven??
ik volg het op.

franç 28 apr 2022, 18:21 407 berichten

drumeke schreef: ↑
28 apr 2022, 17:51
via de KU Tools lukt dit prima, perfect zoals ik wil

Hoe weet je dat? Heb je al een oplossing van KU Tools?
Als dat zo is, dan heeft het geen zin dat ik er aan werk.

drumeke Startte dit onderwerp 28 apr 2022, 19:19 Antwerpen 61 berichten

ik heb dat gratis voor 30 dagen op proef.
maar na deze periode werkt dit niet meer en dan moet ik het kopen.
Daar we dit maar 4 x per jaar nodig hebben is dat een verloren investering.

franç 29 apr 2022, 09:19 407 berichten

Op de website van Kutools lees ik dat Kutools een add-in is voor Excel met een aantal extra functies en dat het 49 dollar kost. Voor mensen die zelf geen functies kunnen maken (al dan niet in vba), kan dat best wel handig zijn. Nadeel is wel dat bestanden waarin je gebruik maakt van die functies, niet werken op computers van anderen die niet over Kutools beschikken.
Wat doet Kutools in jouw geval? Waarschijnlijk maakt het een randomlijst van namen of nummers. Maar als je de presentatie daarvan in een bepaalde vorm wil (bv. in rijen van drie zoals in jouw geval), dan zul je dat toch zelf moeten doen denk ik.
Ik vermoed dat je wil wat je in de afbeelding hieronder ziet: een lijst met namen (kolom A) met 1 klik op een knop in willekeurige volgorde presenteren in rijen van drie (kolommen E:G), en dat herhaaldelijk; is dat juist?
Een random-lijst maken van de namen in kolom A, daarvoor heb je Kutools niet nodig, dat kan met de functies die standaard in Excel aanwezig zijn. De automatische presentatie in rijen van drie, dat is een ander paar mouwen, doet Kutools dat ook automatisch?

Afbeelding

E.T. 29 apr 2022, 11:01 29.418 berichten

Het presenteren in die drie rijen kan toch eenvoudig met een macro.

Het idee dat dat presenteren ook random moet lijkt mij overbodig, tenzij ik iets mis.

Nu ik dit type bedenk ik het volgende: waarom laat je niet een tweede random kolom opmaken om de volgorde van de presentatie te bepalen.

Kolom A alle leden (bv alfabetisch)
Kolom B alle aanwezigen
Kolom C = random rangschikking van B
Kolom D aantal teams
Kolom E = random rangschikking van D

Met een macro wijs je het aantal spelers toe aan elk team

franç 29 apr 2022, 11:11 407 berichten

E.T. schreef: ↑
29 apr 2022, 11:01
Het presenteren in die drie rijen kan toch eenvoudig met een macro.

Dat is wat ik in mijn vorig bericht wilde zeggen!
Voor het maken van een random lijst is geen macro nodig, voor de vorm waarin je die wil presenteren misschien wel.

Het idee dat dat presenteren ook random moet lijkt mij overbodig tenzij ik iets mis.

De vragensteller zal de presentatie willen met de gegevens van de gerandomiseerde lijst.

Nu ik dit type bedenk ik het volgende: waarom laat je niet een tweede random kolom opmaken om de volgorde van de presentatie te bepalen.

Een tweede romdomlijst is niet nodig, de vragensteller wil de presentatie in rijen van 3 kolommen.

E.T. 29 apr 2022, 11:42 29.418 berichten

Nu ben ik helemaal niet meer mee

Dan zet je toch eenvoudig de eerste 6 in het eerste team
de volgende 6 in het andere enzoverder

de vragensteller wil de presentatie in rijen van 3 kolommen.
Maar waarschijnlijk niet in steeds dezelfde volgorde in die 3 kolommen

E.T. 29 apr 2022, 12:34 29.418 berichten

Is dit een oplossing?
Wat moet er nog meer gebeuren?

Afbeelding

drumeke Startte dit onderwerp 29 apr 2022, 20:06 Antwerpen 61 berichten

Hallo ik heb het allemaal wat doorgenomen en heb een filmpje gemaakt wat ik momenteel heb.
Daarmee zie je KU tools aan het werk.
Dit werkt perfect maar inderdaad als je de code wilt gebruiken of als ik deze Tab bladeren sluit werkt deze code niet meer ook al link ik deze aan een knop.
hierbij de link naar mijn vb filmpje van 199Mb groot.
https://we.tl/t-vDWS24pSbO
Deze is verzonden via Wetransfer
Misschien is dit zo veel duidelijker.

E.T. 29 apr 2022, 21:07 29.418 berichten

Wat ik zou doen? Is die drie tabellen gewoon afdrukken en steeds opnieuw gebruiken ... je moet dan in de toekomst enkel die nummers at random toekennen

Het maakt niet uit dat nr. 1 telkens tegen 23 en 54 moet spelen want dat zijn telkens andere mensen, toch?

drumeke Startte dit onderwerp 29 apr 2022, 22:54 Antwerpen 61 berichten

Neen daar gaat het juist om elk nr blijft dezelfde persoon dit is een nr bij inschrijving
dus dat kan niet.

E.T. 30 apr 2022, 01:15 29.418 berichten

Je hebt een lijst met namen van de leden die aanwezig zijn en willen meespelen.
Die geef allemaal een random nummer ...

Ik begrijp niet dat persoon A die vandaag nr. 1 heeft volgende week niet nr. 24 zou kunnen zijn.

Kunnen ze hun nummertje niet onthouden? Laat ze dan een lotje trekken .....

bakerman 30 apr 2022, 02:46 Merksem(Antwerpen) 4 berichten

We zullen je even uit je lijden verlossen.

Op werkbladen 2 tot 5 vind je een knop 'Loting'.
Als je hierop klikt worden de aanwezigen van die betreffende gemeente opgehaald en
at random gesorteerd in de 3 reeksen.
De code die dit alles regelt vind je in Module9.
PS: Blijkbaar kan je hier geen Excel bestanden toevoegen dus stuur even een PB met je
emailadres zodat ik je het kan toesturen.