Formler - "Database" med idrætsresultater

Print side | Luk vindue

"Database" med idrætsresultater

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=1476
Udskrevet den: 04.Dec.2024 kl. 20:38

Emne: "Database" med idrætsresultater

Besked fra: bjr
Emne: "Database" med idrætsresultater
Posteringsdato: 13.Dec.2013 kl. 10:40

Hej På forum

Jeg er vidst det man kalder basis bruger på Excel og har vidst taget munden for fuld med hensyn til programmering af et excel dokument. Jeg er dog relativt lærenem og ganske stædig. jeg har dog brug for et skub i den rigtige retning.

Jeg har X antal navne i en kolonne på Ark1(hver i deres egen celle). Hvert enkelt navn er hyperlinket til deres eget Ark. Så navn Jens er linket til Ark2, Yvonne til Ark3 osv.

På hvert enkelt ark har jeg forskellige idræts discipliner med resultater. Dvs i kolonne A står der fx. 100m løb, 2,5 kg kuglestød, længdespring osv. I kolonne B står resultatet for uge 1 for hver enkelt disciplin, i Kolonne C står resultatet for uge 2, og i kolonne D står resultatet for uge 3.

Det jeg ønsker er, at jeg via en rullemenu på Ark1 kan vælge 100m løb og så vises alle mine navnes 100m løbs resultater for X uge. Tilsvarende hvis jeg vælger længdespring så vises der hvor langt de har sprunget.

Endvidere så har jeg en aktivitet der hedder duatlon der består af to resultater. Løb og cykling. Disse to resultater skal stå i forlængelse af hinanden. Så navn i kolonne A, løbs resultat i kolonne B og cykling i Kolonne C ud for det respektive navn.

Hvordan griber jeg lige den an ;)

Nu håber jeg ikke den er for nem for jer

Svar:

Besked fra: excelent
Posteringsdato: 13.Dec.2013 kl. 19:51

uploads/248/Resultater.xlsx" rel="nofollow - uploads/248/Resultater.xlsx

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: bjr
Posteringsdato: 13.Dec.2013 kl. 21:05

excelent skrev:

uploads/248/Resultater.xlsx" rel="nofollow - uploads/248/Resultater.xlsx

HOLD NU FAST!! Du har bare fået en gigantisk stjerne i min bog. Hold fast hvor er det vildt!

Havde ikke lige regnet med at der var nogen der programmerede det, havde håbet på et par kommandoer og skub i den rigtige retning. Jeg er virkelig taknemmelig.

Tusind, tusind tak! Det er helt fantastisk!

Besked fra: excelent
Posteringsdato: 14.Dec.2013 kl. 13:31

Velbekom

Har nu blot skitseret en mulig model, som du så selv kan skalere op til dit behov

god arbejdslyst :-)

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: bjr
Posteringsdato: 14.Dec.2013 kl. 17:26

Jeg er rendt ind i et problem. Jeg er ved at lave min Disciplin liste med de forskellige discipliner, jeg vil gerne ha' en duathlon der indeholder 2 discipliner og en triathlon der indeholder 3 discipliner.

Jeg kan sagtens definere dem under et navn som du har gjort med "gren" men når jeg vil lave dem til en rulle liste må jeg ikke fordi en rulleliste ikke kan bestå af nekelt elementer

Jeg har sat dem op på følgende måde i Ark2 i kolonne A. I mit definerede navn har jeg market Duat.løb og Tri.løb. Når jeg så vil henvise til =gren i min rulle liste får jeg: Kildelisten skal være en afgrænset liste eller en reference til en enkelt række eller kolonne.

Duat.løb
Duat.Cykling
Tri.løb
Tri.Cyk
Tri.Løb

Duat.cykling, tri.cyk og tri.løb skal falde under henholdsvis duat.løb og tri.løb men ikke fremgå af rullelisten

Nogen gode bud?

Besked fra: excelent
Posteringsdato: 14.Dec.2013 kl. 19:54

uploads/248/Resultater_2.xlsx" rel="nofollow - uploads/248/Resultater_2.xlsx

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: bjr
Posteringsdato: 16.Dec.2013 kl. 00:07

Det er simpelthen så lækkert. Jeg har "kodet" de to grund ark færdige. Altså navne oversigten og så 1 enkelt data ark.

Jeg har i alt 130 mand jeg skal ha' tastet data ind på. Nogen gange stopper manden og erstattes af en ny. Hvordan griber vi den an? Kan man lave noget macro(er det overhovedet macro man bruger til det) indtastnings halløj som automatisk opretter et nyt ark efter en skabelon af ark2, tilknytter et defineret navn og indsætter navnet på navnelisten på ark1?

Alternativt må jeg jo oprette 130 ark ved at kopiere ark2 men så har jeg stadig problematikken med at få defineret navne på en let måde. Men mindre man kan ligge et "skjult" defineret navn på som altid er der også selv om man skriver oven i cellen. Jeg ved ikke om det giver mening?

Besked fra: excelent
Posteringsdato: 16.Dec.2013 kl. 19:56

Hvis du har en liste med alle 130 navne, kan du markere dem og køre makroen på dem.
så oprettes 130 nye Ark med definerede navne som refererer til arkenes celle A1.
Husk det skal være 130 forskellige navne, dvs du skal finde en metode hvorpå du kan
skelne mellem 2 personer med samme navn fx. Anders And. og Anders And.. og Anders And...
Bemærk antal punktum efter And
Et andet eks kunne være Anders And.1 og Anders And.2
Excel accepterer jo ikke 2 ens Arknavne eller definerede navne.
Koden fejler hvis du har et Arknavn eller et defineret navn i forvejen

Sub OpretArk()
For Each sh In Selection
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = sh
sh2 = Replace(sh, " ", "_")
ActiveWorkbook.Names.Add Name:=sh2, RefersToR1C1:=Range("A1")
Next
End Sub

Marker herefter alle ark og lav den formatering/layout/farver/streger m.v som skal være ens på alle ark
husk at fjerne arkmarkeringen igen, for alt du laver på første ark kommer med på alle ark.
Du kan markere alle ark ved at markere det første, holde SHIFT nede og markere det sidste.

Personligt ville jeg nok vælge at have alle navne og resultater på samme ark, og så sætte filter på.

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: bjr
Posteringsdato: 17.Dec.2013 kl. 01:42

Jeg har været ved at rode lidt, men simpelthen for træt til lige at skrive fyldestgørende nu. vender tilbage i morgen. Endnu engang tak for input!

Besked fra: bjr
Posteringsdato: 17.Dec.2013 kl. 13:37

Okay. Så har jeg sivet på det og rodet lidt videre med det.

Jeg har tænkt mig at lave to forskllige måde at tilføje personer til arket. Den ene er jeg godt i hang med og er som følger:

Man trykker på en knap, en dialog boks åbner, jeg indtaster navnet. Der bliver dannet et ark ud fra en skabelon, arket får navnet der er indtastet, og ligeledes bliver navnet defineret og skrevet i A1 i det nye ark.

Det jeg mangler ved den her er, at det indtastede også ryger ind på Ark1 i listen over personer.
Koden ser således ud:

Sub nytark_generator()
    arknavn = InputBox("Skriv navnet du ønsker at tilføje")
    For Each ws In Worksheets
If ws.Name = arknavn Then
MsgBox "Nummer eksisterer allerede", , "Warning!"
Exit Sub
End If
    Next

    Sheets("skabelon").Copy After:=Sheets("skabelon")
    ActiveSheet.Name = arknavn
    Sheets(arknavn).Range("A1") = arknavn
    Sheets(arknavn).Visible = True
    arknavn = Replace(arknavn, " ", "_")
    ActiveWorkbook.Names.Add Name:=arknavn, RefersToR1C1:=Range("A1")

End Sub

Den anden metode skal ved tryk på en knap åbne en windows stifinder dialog hvor der kan browses til et andet excel dokument, hvorfra en navne række kan hentes. Efterfølgende kan jeg så markere alle navnene og benytte den makro du allerede har lavet excelent. (kreativt navn i øvrigt ;))

Besked fra: bjr
Posteringsdato: 17.Dec.2013 kl. 14:37

Success!!

Den første makro opfører sig nu næsten som den skal. Hvis jeg trykker på makro knappen og ikke indtaster noget og lukker den på X'et så får jeg en fejl. Så jeg skal lige h' sat en if parameter ind af en art.... tror jeg ;)

Sub nytark_generator()
    arknavn = InputBox("Skriv navnet du ønsker at tilføje")
    For Each ws In Worksheets
If ws.Name = arknavn Then
MsgBox "Navn eksisterer allerede", , "Warning!"
Exit Sub
End If
    Next

    Sheets("skabelon").Copy After:=Sheets("skabelon")
    ActiveSheet.Name = arknavn
    Sheets(arknavn).Range("A1") = arknavn
    Sheets(arknavn).Visible = True
    arknavn = Replace(arknavn, " ", "_")
    ActiveWorkbook.Names.Add Name:=arknavn, RefersToR1C1:=Range("A1")
    arknavn = Replace(arknavn, "_", " ")
    Sheets("Ark1").Select
    Range("A2").Select
    Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, 0).Value = arknavn

End Sub

Besked fra: bjr
Posteringsdato: 17.Dec.2013 kl. 15:49

Så fik jeg taget den sidste fejl ud af makroen. Til de interesserende så ser den nu sådan ud:


Sub nytark_generator()
    arknavn = InputBox("Skriv navnet du ønsker at tilføje")
    For Each ws In Worksheets
       
    If arknavn = vbNullString Then Exit Sub
    If ws.Name = arknavn Then
    MsgBox "Navn eksisterer allerede. Har du to personer med samme skal du kalde den ene Peter Palland og den anden Peter Palland2", , "Warning!"
    Exit Sub
    End If
    
    Next
   
    Sheets("skabelon").Copy After:=Sheets("skabelon")
    ActiveSheet.Name = arknavn
    Sheets(arknavn).Range("A1") = arknavn
    Sheets(arknavn).Visible = True
    arknavn = Replace(arknavn, " ", "_")
    ActiveWorkbook.Names.Add Name:=arknavn, RefersToR1C1:=Range("A1")
    arknavn = Replace(arknavn, "_", " ")
    Sheets("Ark1").Select
    Range("A2").Select
    Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, 0).Value = arknavn

    
End Sub

Print side | Luk vindue