lodtrækning i en turnering
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2912
Udskrevet den: 03.Mar.2025 kl. 11:15
Emne: lodtrækning i en turnering
Besked fra: Bjarnehansen
Emne: lodtrækning i en turnering
Posteringsdato: 24.Jan.2017 kl. 19:40
kan man lave en lodtrækning i det ved hæfte ark hvis der er to hold på 1 og 2 pladsen har op nået de samme resultater men i det ved hæftede ark der lavet en beskrivelse af problemet i arket.
det skal lige siges at den indbyrdes kamp endte uafgjort. så det kan ikke bruges.
uploads/397/Kopi_af_7_holds_turnering_version_0.0.06_beta.xlsx" rel="nofollow - uploads/397/Kopi_af_7_holds_turnering_version_0.0.06_beta.xlsx
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Svar:
Besked fra: BQardi
Posteringsdato: 25.Jan.2017 kl. 08:19
Nu har jeg ikke kigget på dit ark, men jeg læser ordet lodtrækning og tænker straks tilfældighedsgenerator.
Du kan bruge formlen
=AFRUND(SLUMP();0)
som tilfældigt vil generere enten et 0 eller et 1-tal.
Herfra kan du bare lave en HVIS -formel til at vise hvilket hold der repræsenterer 0 og ligeså med 1.
Problemet med dette er at formlen genererer et nyt tilfældigt tal hver gang der sker ændringer i arket.
Hvis dette ikke er brugbart må du enten gøre noget manuelt, hver gang der skal lodtrækkes, ellers må du ty til VBA:
Sub GenerateRandom()
Dim RndNum As Integer
Randomize
RndNum = Round(Rnd, 0)
'Gør noget med RndNum som nu holder værdien 0 eller 1, f.eks. konverter til Boolean (SAND/FALSK):
'CBool(RndNum)
'hvor 0 returnerer FALSK og alle andre værdier returnerer SAND.
End Sub
Håber du kan få lavet noget brugbart med det...
|
Besked fra: EXCELGAARD
Posteringsdato: 25.Jan.2017 kl. 12:41
En lille tilføjelse til makro funktionen.
Tilfældige tal er ikke helt så lette, at lave, som vi går og tror, så derfor kan man tilføje et 'seed' for at gøre funktionerne mere rette mod, hvad man nu skal bruge...
...og, hvis man virkelig vil have meget tilfældige tal, kan man bruge den indbyggede timer som 'seed', da den, alt andet lige, vil være tilfældig i sig selv, hver gang man kalder funktionerne, da man jo ikke på forhånd kan vide præcist, hvilket sekund i døgnet, makroen kaldes.
Noget i denne stil:
Dim RndNum As Long
Randomize(Timer)
RndNum = Round(Rnd(Timer), 0) |
Bemærk, at jeg har ændret variabel typen fra Integer til Long, da Integer ikke findes mere, og brugen af Integer vil rent faktisk gøre din kode langsommere, da variablen blot er beholdt for baglæns kompatibilitet, men i virkeligheden omdannes til Long inden variablen forsat benyttes - og, dette koster tid.
www.excelgaard.dk/Lib/Macros/GPP/Long/ www.excelgaard.dk/Lib/Macros/GPP/Long/
(Sjovt nok er Integer begrænsningen bibeholdt, selvom variablen nu bliver til en Long, men det er nok igen for baglæns kompatibilitet)
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
Besked fra: excelent
Posteringsdato: 25.Jan.2017 kl. 19:10
Følgende kode genererer et ubetydeligt decimal tal, som du kan
tillægge holdenes opnåede point.
Herved får du den lille forskel i point du har behov for
uden at ændre på holdenes inbyrdes stilling
Tallene indsættes i området CP3:CP9
Så du skal blot ændre formlerne i CM3:CM9 til
=CF3*3+CG3+CP3
ret selv resten
Sub GenerateRandom()
Randomize (Timer)
RndNum1 = Rnd(Timer)
RndNum2 = Rnd(Timer)
RndNum3 = Rnd(Timer)
RndNum4 = Rnd(Timer)
RndNum5 = Rnd(Timer)
RndNum6 = Rnd(Timer)
RndNum7 = Rnd(Timer)
Cells(3, "CP") = RndNum1 / 10
Cells(4, "CP") = RndNum2 / 10
Cells(5, "CP") = RndNum3 / 10
Cells(6, "CP") = RndNum4 / 10
Cells(7, "CP") = RndNum5 / 10
Cells(8, "CP") = RndNum6 / 10
Cells(9, "CP") = RndNum7 / 10
End Sub
-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2017 kl. 19:13
funktion skal først komme i brug hvis der i det ark jeg vedhæftede i CD3 til CD9 er 2 hold der får samme resultat som der vist i arket hvor der 2 der kunne får en første plads så er det imellem dem der skal trækkes lod men kunne også at hold1 og hold4 der begge fik en første plads så var det dem der skulle trækkes imellem.
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2017 kl. 19:37
evcelent jeg så først din besked efter jeg havde sendt mit svar kigger lige på det..
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2017 kl. 22:37
hvordan skal jeg bruge subben...
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2017 kl. 22:45
Jeg tror jeg fik det til at virke skulle bare lige have gang i arket igen....
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: Bjarnehansen
Posteringsdato: 26.Jan.2017 kl. 08:44
kan man ikke lave en knap der kan køre lodtrækningen og en knap til at nul stille cellerne CP3-CP9?
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: Bjarnehansen
Posteringsdato: 26.Jan.2017 kl. 08:52
uploads/397/7_holds_turnering_version_0.0.08.xlsm" rel="nofollow - uploads/397/7_holds_turnering_version_0.0.08.xlsm
har løst det på denne måde.
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
Besked fra: excelent
Posteringsdato: 26.Jan.2017 kl. 17:51
Ser fornuftig ud
Jo flere betydende cifre du har i tallene jo mindre risiko for at ramme 2 ens tal
-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
Besked fra: Bjarnehansen
Posteringsdato: 28.Jan.2017 kl. 11:30
uploads/397/Kopi_af_7_holds_turnering_version_0.0.10_beta.xlsm" rel="nofollow - uploads/397/Kopi_af_7_holds_turnering_version_0.0.10_beta.xlsm
Nu er der dukket et nyt ? hvis 2 hold der vundet lige mange kampe lige mange uafgjorte, tabt lige mange, scoret lige mange mål, ladet lige mange mål gå ind, de har samme mål difference, og lige mange point, så skal stillingen af gøres på deres indbydes kamp hvis den er uafgjort skal lodtrækningen bruges ellers er det vinderen af den indbyrdes kamp der får den bedste placering.
se i det /topic662.html - upload ark.
-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|