32 tal mellem 1 og 200

Du bruger RANDOM-funktionen.
På dansk hedder den SLUMP().

Den danner et tilfældigt tal mellem 0 og 1 som du så ganger med 200.

Statistisk set kan du godt risikere at få en genganger - hvis du vil undgå det skal du have lavet en makro.

Skriv lige hvordan jeg laver både SLUMP() og makro\'en

Skriv =SLUMP()*200 i en celle og den returnerer et tilfældigt tal mellem 1 og 200.
Makroen er en større sag.

Nå... kan du så ikke lige lave det!

hehe


mkoldsgaard... Sommetider går det lettere når man beder folk pænt...


www.fotx.net/dumdum

OK

Janvogt - vil du være så venlig at lave en makro som jeg har bedt om... vil du ik\' nok.

Beklager, det bruger jeg ikke min eftermiddag på for de point!

Nå... ok

Jeg har også selv fundet ud af det.

Jeg lavede 32 SLUMPMELLEM()*200 og bagefter kryds tjekkede jeg dem alle sammen med HVIS($A$1=A2;\"FORKERT\";\"OK\").
Det tog godt nok lidt tid da det er 32x32, men nu kan jeg trykke på F9 og så skriver computeren 32 tal mellem 1 og 200, samtidig er der 32x32 felter hvor der i nogle felter står OK og  andre(hvis der er nogen) FORKERT.

Så jeg ta\'r \'alle\' mine point selv!

Jamen så er jeg da ked, at du ikke kunne bruge mit svar til noget :-|

Hmmmmmm

Ikke særlig fint af m-koldsgaard.

admss :-|

Han har umiddelbart heller ikke rigtig brillieret da han spurgte altid hjælpsomme Jan Vogt om han ville lave det.


www.fotx.net/dumdum

Nææææ....

Utroligt godt gået med de 10 point...

admss

Undskyld...

Helt ny i Eksperten må jeg konstatere, at der er
flere end m-koldsgaard, der bliver \"gratis\"
inspireret.
En trøst for ham at han ikke skal dele de 10
point med nogen.

Hallo!!!

Inden jeg lavede dette spørgsmål havde jeg prøvet \'SLUMP()\'-funktionen, og det var ikke så tit at den lavede nogle tal som ikke var ens.
Så derfor lavede jeg dette spørgsmål.

Hvis nu Janvogt ville havde lavet den makro skulle han selvfølglig nok havde fåets hans point, men hvis det er noget der tager en eftermiddag ville det jo blive flere hundrede point!!!

Og så brugte jeg jo ingen gang \'SLUMP()\'-funktionen, jeg brugte \'SLUMPMellem()\'-funktionen som jeg fandt ved at kigge i den besværlig hjælpefunktion.

Lige en ting til: Det er KUN 10 point!!!


Til brugere som også skal bruge nogle tilfældige tal:
\'SLUMP()\'-funktionen finder IKKE heltal
\'SLUMPMellem()\'-funktionen finder KUN heltal
\'SLUMPMellem()\'-funktionen kan KUN bruges hvis der er installeret: \'Analysis Toolpak\'

Det var også præcis på grund af \"de kun 10 point\", at jeg mente, det var godt du ikke skulle dele dem med nogen.
Mvh
maagefinke

>>>m_koldsgaard

Hvis du ikke vil installere Analysis Toolpak kan du bare bruge SLUMP-funktionen sammen med HELTAL-funktionen.

>>m_koldsgaard

Du siger det selv... \"Det er KUN 10 point\". Hvor meget hjælp forventer du?

PS: Flot at du kiggede i en besværlig hjælpefunktion. Det må jeg nok sige....

admss

janvogt - Der er større chance for at få forskellige tal, hvis man bruger \'SlumpMellem\'-funktionen, da \'Slump\'-funktionen laver kommatal, og hvis man bare runder dem op til heltal kan mange af dem være ens. (Når du skriver \'Heltal\'-funktionen mener du så ikke at du vælger heltal i stedet for kommatal i \'Formater celler\'???)

admss - Det kunne jo være der var en funktion som kunne det.

Selvom jeg nu ikke kan få del i alle de point er her alligevel en makro der kan klare opgaven. Jeg poster den fordi den kan være af almen interesse.
Marker først cellerne der skal have tilfældige tal og kør så makroen:
Sub RandomNumbers()
Dim Number()
Dim MyRange As Range
Dim C As Range
Set MyRange = Selection
LastNumber = 200

ReDim Number(LastNumber)
For i = 1 To LastNumber
    Number(i) = i
Next i
For Each C In MyRange
    Placement = Int(Rnd() * LastNumber + 1)
    C.Value = Number(Placement)
    dummy = Number(LastNumber)
    Number(LastNumber) = Number(Placement)
    Number(Placement) = dummy
    LastNumber = LastNumber - 1
Next C
End Sub

PS. her er ingen gengangere.

Mange TAK bak

Her er 25 point til dig:
http://www.eksperten.dk/spm/123583