Tilfældig rækkefølge

[John Toft]

Hej

Hvordan får man excel 97 til at liste f.eks talrækken 1-25 i tilfældig
rækkefølge

Mvh.

John

[Hans Knudsen]

Du kan for eksempel gøre følgende:

- Marker celle A1:A25
- Indtast formlen: =SLUMPMELLEM(1;25)
- Tryk på Ctrl+Enter

- Tryk på F9 for en ny række "tilfældige" tal.

Hans Knudsen

John Toft skrev i meddelelsen <7gjpeb$r7s$1...@news.inet.tele.dk>...

[John Toft]

Det virker ikke, jeg får blot resultatet "#NAVN?" retuneret i alle 25
celler.

John

Hans Knudsen skrev i meddelelsen <7gkclf$hd9$1...@news.inet.tele.dk>...

[Hans Knudsen]

Jeg skulle have nævnt, at funktionen SLUMPMELLEM kun er til rådighed, hvis
du har installeret Analysis Toolpak.
Du kan eventuelt bruge funktionen SLUMP, hvis du ikke har, og ikke ønsker at
have ovennævnte "pakke" installeret.
Se Excels hjælp-side til funktionen SLUMP.

Hans

John Toft skrev i meddelelsen <7gktot$9k2$1...@news.inet.tele.dk>...

[John Toft]

Dette giver 25 tilfældige tal mellem 1-25 og ikke som jeg ønsker talrækken
1-25
i tilfældig rækkefølge

John

Hans Knudsen skrev i meddelelsen <7gl03t$dq6$1...@news.inet.tele.dk>...

[Hans Knudsen]

Et absolut sidste forsøg. Det er langt fra nogen strømlinet løsning, men det
kan måske inspirere dig til selv at gå videre.
Jeg vil forudsætte, at du har Analysis Toolpak installeret og dermed har
adgang til SLUMPMELLEM().

- A1:A25 vælges og du indtaster formlen: =SLUMPMELLEM(1;25) og afslutter
med at holde Ctrl tasten nede mens du trykker
Enter.
- B1 vælges - du indtaster "1". Med B1 valgt holder du Ctrl-tasten nede og
trækker i fyldhåndtaget til og med celle B25. B1:B25
skulle nu indeholde tallene 1:25.
- A1:B25 vælges.
- Sorter efter kolonne A.
Nu skulle du få tallene 1:25 i tilfældig orden. For en ny række med tallene
1:25 i tilfældig orden tryk på F9 og gentag sorteringsproceduren.

Jeg er ikke i tvivl om, at der er én eller flere, der kan lave noget smart i
VBA til at håndtere det automatisk, men dette her var altså mit bud.

Hans

John Toft skrev i meddelelsen <7glbuh$3c2$1...@news.inet.tele.dk>...

[Leo Heuser]

John,

Her er en VBA-rutine, der kan udføre jobbet. Indsæt den i et modul fra VBA-editoren (kaldes med <Alt><F11>. Find din projektmappe
i projektvinduet, klik på et tilfældigt ark og vælg Indsæt > Modul).Med de viste tal bliver der dannet 80 tilfældige tal mellem 1
og 1200 og ingen
dubletter. For at udføre dit forsøg sættes begge tal til 25. Giv evt. rutinen en knap på værktøjslinien, så den er hurtigere at
eksekvere.
Opsætningen bliver skrevet fra A1 og ned.

Med venlig hilsen
LeoH

'leo.h...@get2net.dk
Sub RanNum()
Dim AntalStikprøver, AntalIalt, Placering, Counter
Dim Startcelle As Object
Dim Tal(), Tal2()

AntalStikprøver = 80
AntalIalt = 1200
Set Startcelle = Range("A1")

ReDim Tal(AntalStikprøver)
ReDim Tal2(AntalIalt)
Randomize
For Counter = 1 To AntalIalt
Tal2(Counter) = Counter
Next Counter
For Counter = 1 To AntalStikprøver
Placering = Int(Rnd() * AntalIalt + 1)
Tal(Counter) = Tal2(Placering)
Startcelle.Value = Tal(Counter)
Tal2(Placering) = Tal2(AntalIalt)
AntalIalt = AntalIalt - 1
Set Startcelle = Startcelle.Offset(1, 0)
Next Counter
End Sub

John Toft skrev i meddelelsen <7gjpeb$r7s$1...@news.inet.tele.dk>...
>Hej
>

>Hvordan får man excel 97 til at liste f.eks talrækken 1-25 i tilfældig
>rækkefølge
>
>Mvh.
>
>John
>
>