Rekisteröidy

Ilmoitukset

Ladataan…

    Näytä kaikki

    Satunnaisluku

    Tarvitsisin lähtöjärjestyksen arpovan satunnaislukugeneraattorin.
    Esim. 20 kilpailijaa ja heidän lähtöjärjestys pitäisi arpoa
    51001
    Äänestä

    Muut lukivat myös

    Vastaukset 5

    Vanhimmat

    Ja sen pitäisi vielä olla sellainen, että sihteerikin osaa muuttaa "lennossa" osallistujamäärää.

    Äänestä

    pari riviä alempana oleva ehdotus kävis ?

    Äänestä

    • Ei käy.
      "Ja sen pitäisi vielä olla sellainen, että sihteerikin..."
      Tuo ei ole kovin pro :)
      Mielellään sais olla ihan oikea, eikä mikään virittely. Tollasen osaan ittekkin tehdä :)
      Kiitokset vaan.

      Äänestä

    • MasaMasa kirjoitti:

      Ei käy.
      "Ja sen pitäisi vielä olla sellainen, että sihteerikin..."
      Tuo ei ole kovin pro :)
      Mielellään sais olla ihan oikea, eikä mikään virittely. Tollasen osaan ittekkin tehdä :)
      Kiitokset vaan.

      lainaus "Tuo ei ole kovin pro :)"
      mielestäni kyllä PRO ratkaisu -näppärä ja simppeli...
      tässä sama koodilla ja varmistettuna sihteerille ei kai enää yksinkertaisemmaksi voi tehdä ;-)

      tee nappi taulukkoon ja liitä siihen koodi( taulukon moduuliin)

      Private Sub CommandButton1_Click()
      Lähtölista
      End Sub

      ja seuraava moduuliin...

      Sub Lähtölista()
      Dim Lähtijöitä As Integer
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Sheets("Taul1").Activate
      Range("A:A") = ""
      Columns("A:A").EntireColumn.AutoFit
      Range("A1") = "Lähtöjärjestys"
      Lähtijöitä = Application.InputBox("Anna lähtijöiden määrä", Type:=1)
      Sheets.Add
      ActiveSheet.Name = "Huuhaa"
      Range("C1") = Lähtijöitä
      Range("A1").FormulaR1C1 = "1"
      Range("A1").AutoFill Destination:=Range("A1:A" & Lähtijöitä), Type:=xlFillSeries
      Range("B1").FormulaR1C1 = "=RAND()*(RC[1]-1) 1"
      Range("B1").AutoFill Destination:=Range("B1:B" & Lähtijöitä), Type:=xlFillDefault
      Columns("A:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
      Range("A1:A" & Lähtijöitä).Copy Sheets("Taul1").Range("A2")
      Sheets("Taul1").Columns("A:A").EntireColumn.AutoFit
      Sheets("Huuhaa").Delete
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub

      Äänestä

    • Kunde kirjoitti:

      lainaus "Tuo ei ole kovin pro :)"
      mielestäni kyllä PRO ratkaisu -näppärä ja simppeli...
      tässä sama koodilla ja varmistettuna sihteerille ei kai enää yksinkertaisemmaksi voi tehdä ;-)

      tee nappi taulukkoon ja liitä siihen koodi( taulukon moduuliin)

      Private Sub CommandButton1_Click()
      Lähtölista
      End Sub

      ja seuraava moduuliin...

      Sub Lähtölista()
      Dim Lähtijöitä As Integer
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Sheets("Taul1").Activate
      Range("A:A") = ""
      Columns("A:A").EntireColumn.AutoFit
      Range("A1") = "Lähtöjärjestys"
      Lähtijöitä = Application.InputBox("Anna lähtijöiden määrä", Type:=1)
      Sheets.Add
      ActiveSheet.Name = "Huuhaa"
      Range("C1") = Lähtijöitä
      Range("A1").FormulaR1C1 = "1"
      Range("A1").AutoFill Destination:=Range("A1:A" & Lähtijöitä), Type:=xlFillSeries
      Range("B1").FormulaR1C1 = "=RAND()*(RC[1]-1) 1"
      Range("B1").AutoFill Destination:=Range("B1:B" & Lähtijöitä), Type:=xlFillDefault
      Columns("A:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
      Range("A1:A" & Lähtijöitä).Copy Sheets("Taul1").Range("A2")
      Sheets("Taul1").Columns("A:A").EntireColumn.AutoFit
      Sheets("Huuhaa").Delete
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub

      Iso KIITOS!
      Tuo oli loistava :)

      Äänestä

    Odottaa vastausta

    Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

    Luetuimmat keskustelut

    Kommentoi aloitusta

    MasuMasu kirjoitti:

    Tarvitsisin lähtöjärjestyksen arpovan satunnaislukugeneraattorin.
    Esim. 20 kilpailijaa ja heidän lähtöjärjestys pitäisi arpoa

    Anonyymi
    5000

    Ilmoita asiaton sisältö

    • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

    • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

    • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

    • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

    • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

    • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

    Jaa keskustelu