Excel: Aselecte steekproef zonder terugleggen

[Ezzz]

Hallo,

Ik ben bezig met een aselecte steekproef waarbij ik niet wil dat de cellen die uit de reeks gekozen worden, meerdere keren worden gekozen. Ik heb uiteraard al van alles uit geprobeerd ( de functies aselect, integer, hoogste, laagste), maar krijg voornamelijk foutmeldingen of toch dubbele gekozen cellen. Weet iemand, bijvoorbeeld aan de hand van een voorbeeld, hoe ik dit probleem op kan lossen?

 

[MarcelBeug]

Met een matrixformule zoals in de bijlage in M20, bevestigd met Ctrl+Shift+Enter en gekopieerd naar beneden:

=KLEINSTE(ALS(ISNB(VERGELIJKEN($H$20:$H$29;$M$19:M19;0));$H$20:$H$29);ASELECTTUSSEN(1;11-RIJEN(M$20:M20)))

 

[sylvester-ponte]

Marcel, petje af :thumb: waar haal je het allemaal vandaan ?

 

[MarcelBeug]

Uit cel H6 van bijgaande Bingo toepassing (werkblad is beveiligd, maar zonder wachtwoord).

 

[sylvester-ponte]

Marcel, als ik een keer een goede dag heb ga ik proberen je formule te snappen.

 

[HSV]

Een variant.

=GROOTSTE((RIJ($1:$10)-1)*NIET(AANTAL.ALS($M$19:M19; RIJ($1:$10)-1));ASELECTTUSSEN(1;11-RIJ(A1)))

 

[snb]

Daarvoor hebben we VBA:

Sub M_snb()
   [A1:A20] = "=rand()"
   [A1:A20] = [index(rank(A1:A20,A1:A20),)]
End Sub

 

[HSV]

Die wilde ik niet in een formule gebruiken, want dan was ik een extra kolom nodig voor aselect(). :d

 

[Ezzz]

Met een matrixformule zoals in de bijlage in M20, bevestigd met Ctrl+Shift+Enter en gekopieerd naar beneden:

=KLEINSTE(ALS(ISNB(VERGELIJKEN($H$20:$H$29;$M$19:M19;0));$H$20:$H$29);ASELECTTUSSEN(1;11-RIJEN(M$20:M20)))

Ik geloof toch niet dat ik het helemaal snap. Ik ben nu namelijk in het bestand waarin ik daadwerkelijk wil werken, de formule aan het toepassen in kolom J2 (zie bijlage). De formule wordt dan: =KLEINSTE(ALS(ISNB(VERGELIJKEN($D$2:$D$3781;$J$2;J2:0));$D$2;$D$3781);ASELECTTUSSEN(1;3782-RIJEN(J$2:J2)))}

Echter zegt ie dan dat de formule een fout bevat. Weet iemand waar deze fout zit of wat er moet veranderen?

Bekijk bijlage Aselecte steekproef 2.xlsx

 

[MarcelBeug]

Bij zo'n omvang gaat een matrixformule niet werken.

VBA dus, zoals de vervolmaakte macro van snb:

Sub MB_snb()
   Application.ScreenUpdating = False
   Randomize
   [D2:D3781] = "=rand()"
   [D2:D3781] = [index(rank(D2:D3781,D2:D3781),)]
   Application.ScreenUpdating = True
End Sub

 

[snb]

@MB

Randomize is alleen nodig als je gebruik maakt van de VBA funktie rnd.
Is hier dus 'volmaakt' overbodig.

Dat is ook het geval voor application.screenupdating =false. Test het maar eens met de timer.

De 'volmaakte' macro

Sub M_snb()
   [D2:D3781] = "=rand()"
   [D2:D3781] = [index(rank(D2:D3781,D2:D3781),)]
End Sub

 

[MarcelBeug]

@snb
Voor wat betreft randomize heb je helemaal gelijk.
Voor wat betreft screenupdating gaat het niet alleen om de snelheid, maar ook om weergave van het tussenresultaat, dus die zou ik er - om cosmetisch redenen - in laten.

In ieder geval kunnen we het er over eens zijn dat hier een VBA oplossing op zijn plaats is.

 

[Ezzz]

Bij zo'n omvang gaat een matrixformule niet werken.

VBA dus, zoals de vervolmaakte macro van snb:

Sub MB_snb()
   Application.ScreenUpdating = False
   Randomize
   [D2:D3781] = "=rand()"
   [D2:D3781] = [index(rank(D2:D3781,D2:D3781),)]
   Application.ScreenUpdating = True
End Sub

Wat betekent dan die komma tussen de eerste D3781 en de tweede D2, want hij zegt dat de formule niet klopt?

 

[sylvester-ponte]

hoe komt het toch dat er in die mooie vba oplossing van snb geen dubbelen voor komen?
kan dat niet of is de kans heel klein ?

 

[HSV]

Het kan nog altijd met formules in de geest van de laatste Vba.

 

[Ezzz]

Het kan nog altijd met formules in de geest van de laatste Vba.

Zucht, nu geeft Excel weer de foutmelding 'Een waarde is niet beschikbaar voor de formule of functie.'

 

[HSV]

Niet in het voorbeeldbestand toch?

 

[Ezzz]

Niet in het voorbeeldbestand toch?

Nee,niet in het voorbeeldbestand. Maar ik heb de formule uit het voorbeeldbestand gekopieerd naar mijn eigen bestand en alleen de cellen vervangen. Blijkbaar doe ik nog steeds iets fout.

 

[HSV]

Even vergelijken en doorzetten, of het bestandje plaatsen.

 

[snb]

Zorg ervoor dat:

- er geen cellen 'protected' zijn
- er geen samengevoegde cellen zijn