Hallo

Welkom, Gast. Alsjeblieft inloggen of registreren.

Recent

213 gasten, 0 leden

Welkom, Gast. Alsjeblieft inloggen of registreren.

28 maart 2024, 16:34:34

Login met gebruikersnaam, wachtwoord en sessielengte

Nieuws

Welkom op het vernieuwde NL Computer Forum!

Auteur Topic: Random sorteren in Excel  (gelezen 15464 keer)

0 leden en 1 gast bekijken dit topic.

Offline RuudDeWit

  • Sysop
  • *****
  • Berichten: 885
  • Geslacht: Man
Random sorteren in Excel
« Gepost 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 ?

Vriendelijke groet,Ruud de Wit

Offline Peter

  • Sysop
  • *****
  • Berichten: 5.683
  • Geslacht: Man
Re: Random sorteren in Excel
« Reactie #1 Gepost op: 19 augustus 2012, 00:13:30 »
Hoi Ruud,

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

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




Peter
« Laatst bewerkt op: 19 augustus 2012, 11:35:23 door Peter »

Offline RuudDeWit

  • Sysop
  • *****
  • Berichten: 885
  • Geslacht: Man
Re: Random sorteren in Excel
« Reactie #2 Gepost op: 19 augustus 2012, 21:48:04 »
Hallo Peter,

Geweldig, ik ga de code uitproberen. Ik laat het je weten. Bedankt !
Vriendelijke groet,Ruud de Wit

Offline RuudDeWit

  • Sysop
  • *****
  • Berichten: 885
  • Geslacht: Man
Re: Random sorteren in Excel
« Reactie #3 Gepost 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?
Vriendelijke groet,Ruud de Wit

Offline Peter

  • Sysop
  • *****
  • Berichten: 5.683
  • Geslacht: Man
Re: Random sorteren in Excel
« Reactie #4 Gepost 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     Cells(r, 3) = Cells(i, 1)wordt dan     Cells(r, 3) = Cells(i, 4)

Peter

Offline RuudDeWit

  • Sysop
  • *****
  • Berichten: 885
  • Geslacht: Man
Re: Random sorteren in Excel
« Reactie #5 Gepost op: 22 augustus 2012, 23:22:23 »
Aha, ik zat naar A te zoeken. Duidelijk, bedankt nogmaals !
Vriendelijke groet,Ruud de Wit