• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

van 14 ploegen naar 12 ploegen

Status
Niet open voor verdere reacties.
E

eddie01

Gebruiker
Lid geworden
28 jun 2008
Berichten
202
Hallo,
Ik heb een spreadsheet gedownload van "in de Wandelgangen" om een competitieprogramma in
elkaar te zetten van onze vereniging. Deze bestaat uit 14 ploegen.

Nu wil ik dit ook gaan doen voor een competitie met 12 ploegen.
Dit lukt mij niet. Krijg het programma niet goed voor elkaar.

Weet iemand hoe dit moet ?

Als bijlage stuur ik je het programma mee.

Alvast bedankt.

Eddie
 

Bijlagen

Er zit een verborgen tabblad in ("Blad2"), met rechtermuisknop op tabbladen klikken en je kunt deze zichtbaar maken. Hier moet je allereerst het speelschema aanpassen, daarna de verwijzingen in de rest van de tabbladen aanpassen.
 
AlexCEL,

Dit is niet de bedoeling.
Je hoeft alleen maar de ploegen te veranderen in het tabblad Invulblad en
dan veranderd automatisch het schema van de wedstrijden op de andere tabbladen.
Dit wil ik ook voor 12 ploegen hebben en dit lukt me dan niet.

Eddie
 
Toch zal daar wel iets moeten gebeuren. Op het verborgen blad komen anders verwijzingsfouten of lege velden en die werken door in de wedstrijdschema's.
 
Oke, ik ga verder zoeken.

Maar als iemand we toch nog wil helpen, graag.
 
Waarmee wil je geholpen worden dan? Aangezien Alex vrij duidelijk aangeeft wat je moet doen. Dit spelschema is gewoon ontworpen voor 14 teams. Je zult dus eerst een spelschema moeten bouwen...
 
ab, hoe tover jij die speelschema's tevoorschijn?
dit schema is heel mooi,
iedereen speelt tegen iedereen uit en thuis.
en de kortste duur tussen de zelfde teams is 5 wedstrijden
en de langste duur tussen de zelfde teams is 7 wedstrijden

heel knap gedaan. wil je mij dat ook leren?
 
@ Sylvester kijk hier eens http://answers.microsoft.com/en-us/...t/ed0ec97a-651b-4811-b871-ffe4af19092e?auth=1

of probeer deze in leeg blad

Code: 
Sub round_robin()

Dim c() As Variant, u() As Variant, flg As Byte
Dim i As Long, j As Long, n As Long

[COLOR="#FF0000"]n = 12      'change to 20 or whatever as you like[/COLOR]
If n Mod 2 = 1 Then n = n + 1: flg = 1
ReDim c(1 To n, 1 To n / 2 + 1), u(1 To n)

For i = 1 To n - 1
    If flg = 1 Then u(n) = "bye" Else u(n) = n
    For j = 1 To n - 1
        u(j) = i + j - 1
        If u(j) > n - 1 Then u(j) = u(j) - n + 1
    Next j
    For j = 1 To n / 2
        c(i, j + 1) = u(j) & "  vs  " & u(n - j + 1)
    Next j
    c(i, 1) = "PLAY " & i
Next i

Range("A1").Resize(n - 1, n / 2 + 1) = c

End Sub
 
Laatst bewerkt:
Mde, wat een geweldige sub. :thumb: heb jij die gemaakt?

de verdeling is perfect.


hij laat de laatste ploeg wel steeds "uit" spelen.
in round_robin is dat geen punt. maar is de macro ook te gebruiken voor de oplossingen als van post7

als je van 6 ploegen uit gaat:
hij "roteert" dan steeds de eerste 5 eentje .
en pakt dan van het geheel steeds van buiten naar binnen steeds de uitersten.
speler 6 blijft steeds op de zelf de plek staan en zal dus steeds "uit"spelen.

is daar al iets voor?

in de oplossing van post 7 in de eerste helft is dit perfect verdeeld.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan