20. februar 2014 - 00:18Der er
7 kommentarer og 1 løsning
Stævneprogram - finde ud af hvilke tidspunkter et hold skal spille
Jeg er ved at lave en oversigt over et fodboldstævne. I en række har jeg 3 puljer med 4 hold. Det giver 12 hold som hver især kommer til at spille 3 kampe. Det har jeg fået fint fordelt uden problemer.
Nu kunne jeg så godt bruge en formel kan hjælpe mig med at lave en liste over der viser hvornår hvert hold skal spille deres 1,2, og 3 kamp.
Regnearket ser således ud: Kol A = tidspunkt Kol B = navn på hold1 Kol C = tom Kol D = navn på hold2
Kampene står i området A9 :A30 Navnet på det hold den skal lede efter står i A8. Den skal lede i både kold B og D efternavnet, da holdet kan stå som både hold 1 og hold 2.
Ved ikke helt om det er for kringlet forklaret, men jeg sender selvfølgelig gerne regnearket, så I lettere kan se hvad jeg mener
Public Sub tidsPlan() Application.ScreenUpdating = False
traverserGruppe 34, 37 traverserGruppe 40, 43 traverserGruppe 46, 49 traverserGruppe 52, 55 End Sub Private Sub traverserGruppe(fraRæk, tilRæk) Dim klub As String traverserKolonne fraRæk, tilRæk, "B" traverserKolonne fraRæk, tilRæk, "D" traverserKolonne fraRæk, tilRæk, "F" End Sub Private Sub traverserKolonne(fraRæk, tilRæk, Kolonne) Dim klub As String, modstander As String, tabel As Variant, k As Integer klub = Range(Kolonne & fraRæk) modstander = findModstander(klub) tabel = Split(modstander, "|")
For k = 1 To 3 Range(Kolonne & fraRæk + k).Offset(0, -1) = Format(Left(tabel(k - 1), 5), "##:#0") Range(Kolonne & fraRæk + k) = Mid(tabel(k - 1), 6) Next k End Sub Private Function findModstander(klub) Dim ræk As Integer, tidModstander As String, tid As String, modstander As String tidModstander = "" For ræk = 9 To 26 If Range("B" & ræk) = klub Then tid = Range("A" & ræk) modstander = Range("D" & ræk) tidModstander = tidModstander & tid & modstander & "|" Else If Range("D" & ræk) = klub Then tid = Range("A" & ræk) modstander = Range("B" & ræk) tidModstander = tidModstander & tid & modstander & "|" End If End If Next ræk findModstander = tidModstander End Function
yes sir. Den virker dælme den kode :-) Nu har jeg dog et håb om at du også vil hjælpe med at forfine den lidt.
I dette tilfælde som er vist i arket er der 3 kampe til alle. Nogle gange er der nogle der spiller 2,3 eller 4 kampe. Det afhænger af puljernes størrelse.
Jeg har prøvet at rette i koden og se om jeg kunne få den til at tage højde for det. Meeeeeen det kan jeg overhovedet ikke finde ud af. Den går i fejl med det samme.
Hej Bjarne. Hvis der er gået ged i din fil, er der mulighed for at hente min fil igen. Jeg har desuden lavet et spørgsmål 2, som fortsætter her: http://www.eksperten.dk/spm/991831
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.