NL Computer Forum

Software => Word, Excel en Office algemeen => Topic gestart door: RuudDeWit op 18 augustus 2012, 23:04:23

Titel: Random sorteren in Excel
Bericht door: RuudDeWit op 18 augustus 2012, 23:04:23

Hallo,

Mijn kennis van programmeerfuncties in Excel is beperkt daarom kom ik niet uit het volgende probleem zie de afbeelding hieronder: ik wil een lijst met namen sorteren, niet opvolgend maar door elkaar, random dus. Ik ben met ASELECT() aan het proberen geweest maar kom daar niet goed uit omdat het onder een vaste knop moet komen... Dus een knopje, een macro dus, die de lijst elke keer door elkaar sorteert... Iemand ?

(http://www.nlcomputerforum.nl/index.php?action=dlattach;topic=3268.0;attach=2648)

Titel: Re: Random sorteren in Excel
Bericht door: Peter op 19 augustus 2012, 00:13:30

Hoi Ruud,

Met wat VB(A) kennis kom ik tot deze mogelijkheid:

Code: [Selecteer]

Sub Husselen()
'brontekst staat in kolom A, de uitvoer in kolom C
Dim i%, r%
Const aantal = 18

Randomize
'uitkomst uitvoer wissen
Range("C1:C" & aantal).ClearContents
'doorloop alle cellen
For i = 1 To aantal
    'zoek een lege cel
    Do
        'willekeurig rijnummer
        r = Int((Rnd * aantal) + 1)
    Loop Until Cells(r, 3) = ""
    'cel invullen
    Cells(r, 3) = Cells(i, 1)
Next
End Sub

(http://www.nlcomputerforum.nl/index.php?action=dlattach;topic=3268.0;attach=2650)


Peter

Titel: Re: Random sorteren in Excel
Bericht door: RuudDeWit op 19 augustus 2012, 21:48:04

Hallo Peter,

Geweldig, ik ga de code uitproberen. Ik laat het je weten. Bedankt !

Titel: Re: Random sorteren in Excel
Bericht door: RuudDeWit op 19 augustus 2012, 22:51:55

Hallo Peter,

Het is prima gelukt, nogmaals bedankt. Nog een aanvullende vraag, standaard wordt kolom A gebruikt als bron maar stel dat ik bv kolom als bron kolom D wilt gebruiken?

Titel: Re: Random sorteren in Excel
Bericht door: Peter op 19 augustus 2012, 23:25:57

Hoi Ruud,

Mooi zo.
De macro aanpassen bij gebruik van een andere bronkolom is simpel.

Kolom A is kolomnummer 1, dus kolom D is kolomnummer 4
De regel

Code: [Selecteer]

    Cells(r, 3) = Cells(i, 1)wordt dan

Code: [Selecteer]

    Cells(r, 3) = Cells(i, 4)

Peter

Titel: Re: Random sorteren in Excel
Bericht door: RuudDeWit op 22 augustus 2012, 23:22:23

Aha, ik zat naar A te zoeken. Duidelijk, bedankt nogmaals !