Print side | Luk vindue

Sortere hold i fodboldturnering

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Formler
Forum beskrivelse: Hjælp til formler i regneark og/eller brugen af disse.
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=171
Udskrevet den: 22.Nov.2024 kl. 04:55


Emne: Sortere hold i fodboldturnering
Besked fra: kandersk
Emne: Sortere hold i fodboldturnering
Posteringsdato: 28.Dec.2010 kl. 02:45
Hej

Jeg er i gang med at lave et regneark til en fodboldturnering, men jeg har lige et problem, som jeg virkelig ikke aner, hvad jeg skal stille op med.

I turneringen er der 16 hold, som deles op i fire grupper med fire hold i hver. Fra hver gruppe skal de to bedste hold gå videre til knockout-slutspillet. Mit problem er, at jeg ikke ved, hvordan jeg skal få sorteret holdene i grupperne, så de kommer til at stå i den rette rækkefølge efter at resultaterne løbende bliver tastet ind. Derudover er det også vigtigt, at hele holdnavnets række med kampe, sejr, uafgjort, nederlag, mål og point følger med, hvis det bliver rokeret rundt omkring i gruppen under opdatering af resultater.

Først og fremmest er det holdets antal point, der bestemmer placeringen, men i tilfælde af pointlighed er der en række kriterier, der bestemmer placeringen.

1. Indbyrdes opgør
2. Målforskel
3. Mål scoret
4. Mål imod

Det er et større regnskab, man skal ud i, og jeg er ikke sikker på, at det vil lykkes, men jeg håber, at I kan hjælpe mig på en eller anden måde. Jeg kan godt uddybe det, hvis I ikke helt forstår, hvad jeg mener, og har I brug for at se mit excel-ark, skal jeg gerne sende det til jer. Det skal dog lige siges, at jeg er lidt af en rookie til Excel, da det er blot de ganske elementære formler, jeg kender godt til, så det kan måske være nødvendigt, at det skal skæres rimelig meget ud i pap - men nu må vi se :)

På forhånd mange, mange tak!

Glædelig jul og godt nytår.

Med venlig hilsen
Anders


Svar:
Besked fra: andreas
Posteringsdato: 28.Dec.2010 kl. 10:49
Du må meget gerne sende dit excel-ark

Besked fra: andreas
Posteringsdato: 28.Dec.2010 kl. 11:52
/uploads/59/Fodboldt.xlsm">uploads/59/Fodboldt.xlsm
Er det noget ligende det her du søger?

Besked fra: kandersk
Posteringsdato: 28.Dec.2010 kl. 12:39
uploads/144/Fodboldturnering1.xlsx - uploads/144/Fodboldturnering1.xlsx

Så er det uploadet.

Besked fra: andreas
Posteringsdato: 29.Dec.2010 kl. 14:47
/uploads/59/Fodboldturnering_prøv_dette.xlsm">
Prøv om du kan bruge dette.
 
/uploads/59/Fodboldturnering_prøv_dette.xlsm">uploads/59/Fodboldturnering_prøv_dette.xlsm

Besked fra: kandersk
Posteringsdato: 29.Dec.2010 kl. 16:38
Det ser meget godt ud! Det er dejligt med noget hjælp - tak for det.

Lige en enkelt ting: Er det muligt at få indbyrdes kampe med til bestemmelsen af placeringen?

Besked fra: andreas
Posteringsdato: 29.Dec.2010 kl. 23:44
Hmm... Jeg kikker lige på det i morgen. Men mon ikke det er muligt :)
 
 

Besked fra: kandersk
Posteringsdato: 31.Dec.2010 kl. 01:52
Det må vi håbe :)

Har du fundet ud af noget?

Besked fra: kandersk
Posteringsdato: 31.Dec.2010 kl. 04:05
Forresten:

Jeg har aldrig prøvet at bruge makroer før, så er i gang med at lære det stille og roligt. Lige nu prøver jeg at flytte skemaet, som du har lavet en skjule/vis-knap til, over i ark2, så jeg kan få gemt den hel væk, men det fungerer ikke helt. Kan du se, hvad jeg har gjort forkert?

Det første - Range("C6:L9"). Select -  er en kopiering fra tabellen, som jeg har flyttet over i ark2, men det er jeg ikke sikker på, at der er blevet registreret?

Sub sorter2()
'
' sorter2 Makro
'

'
    Range("C6:L9").Select
    Selection.Copy
    Sheets("Ark1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("S28:S31"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("R28:R31"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("J28:S31")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Det er nemlig meningen, at min computer skal tilkobles en projekter, så alle i hallen kan følge med i resultaterne. Derfor er det vigtigt, at alle grupperne (5 stk) og kampprogrammet  bliver på "forsiden", så jeg er fri for at scrolle frem og tilbage for at det kommer op på lærredet. Hvis du forstår...

Besked fra: andreas
Posteringsdato: 03.Jan.2011 kl. 22:09

Jeg har prøvet at finde frem til en løsning med hensyn til at de indbyrdes opgør skal være i første priotet. men uden hæld. Du kan prøve at skrive en besked til Allan, han kan sikkert hjælpe dig.

Sub sorter2()
'
' sorter2 Makro

    Sheets(Ark2).select
    Range("C6:L9").Select ' (her bestemmer du område på ark 2 hvor skemaet ligger)
    Selection.Copy
    Sheets("Ark1").Select
    Range("j28").select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("S28:S31"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("R28:R31"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("J28:S31")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
 
 
Med denne sorter kun
 
1 flest point
2 Målforskel
 
 
 

Besked fra: Allan
Posteringsdato: 04.Jan.2011 kl. 22:44
Hej Anders og Andreas,
 
I må undskylde jeg ikke har fulgt med, jeg vil gerne byde ind, hvis jeg kan.
Jeg er ikke så skarp i fodbold, så jeg skal lige ledes lidt Wink
 
Hvis vi tager udgangspunkt i seneste ark, hvad skal funktionen udføre?
/uploads/59/Fodboldturnering_prøv_dette.xlsm - uploads/59/Fodboldturnering_prøv_dette.xlsm
 
//Allan

Besked fra: kandersk
Posteringsdato: 05.Jan.2011 kl. 00:44
...

Besked fra: kandersk
Posteringsdato: 12.Jan.2011 kl. 02:27
Hej Andreas

Jeg har brug for lidt hjælp igen :)

Nu har jeg færdiggjort programmet, men jeg kan simpelthen ikke få gruppesorteringen til at virke. Vil du prøve at kigge på det?

Sorteringsrækkefølge:

1. P - point (største til mindste)
2. MF - målforskel (største til mindste)
3. MS - målscore, antal scorede mål (største til mindste)
4. MS - målscore, antal mål lukket ind (mindste til største)

uploads/144/Kampprogram_til_Harbo%C3%B8reCup_2011.xlsm - uploads/144/Kampprogram_til_HarboøreCup_2011.xlsm

Jeg har indtastet nogle tilfældige resultater. Sådan som designet ser ud nu, skulle det gerne blive ved med at se ud. Det skal så være meningen, at man skal trykke på de små bokse med tal i for at opdatere grupperne, hvis du forstår :)

Håber du har tid til lige at kigge på det.


Print side | Luk vindue