"Dé grootste en gratis computerhelpdesk van Nederland"
Opdelen groepjes
- Onderwerp starter Ron001
- Startdatum
- Status
JeanPaul28
Terugkerende gebruiker
- Lid geworden
- 21 jan 2012
- Berichten
- 2.217
Ik zou graag een voorbeeld bestand zien voor aleer ik spontaan ja zeg
JeanPaul28
Terugkerende gebruiker
- Lid geworden
- 21 jan 2012
- Berichten
- 2.217
Met vba
JEC.
Terugkerende gebruiker
- Lid geworden
- 27 feb 2019
- Berichten
- 4.330
- Office versie
- 365
Hier ook nog eentje. Zet alles er gelijk in, zonder hulpkolom en formules.
of:
Code:
Sub jvr()
Set jv = Cells(1).CurrentRegion.Columns(1).SpecialCells(2)
With Application
a = .RandArray(jv.Count, 1)
ReDim ar(3, 8)
For i = 1 To UBound(a)
If jj = 9 Then jj = 0: j = j + 1
ar(j, jj) = .Index(jv, .Match(.Small(a, i), a, 0))
jj = jj + 1
Next
Cells(2, 3).Resize(UBound(ar) + 1, UBound(ar, 2) + 1) = ar
End With
End Subof:
Code:
Sub jvvv()
jv = Cells(1).CurrentRegion.Resize(, 9)
a = Application.RandArray(UBound(jv), 1)
For i = 1 To UBound(jv)
If jj = 9 Then jj = 0: j = j + 1
jv(j + 1, jj + 1) = jv(Application.Match(Application.Small(a, i), a, 0), 1)
jj = jj + 1
Next
Cells(2, 3).Resize(4, 9) = jv
End Sub
Laatst bewerkt:
snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.725
Formulevoorkeur, met controle-gebied
Of In Excel 2010:
Of In Excel 2010:
Code:
Sub M_snb()
Randomize
sn = Range("A1:A28")
st = Array(Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd, Rnd)
ReDim sp(3, 9)
For j = 0 To UBound(st)
sp(j \ 9, j Mod 9) = sn(Application.Match(Application.Large(st, j + 1), st, 0), 1)
Next
Range("C20:K23") = sp
End Sub
Laatst bewerkt:
- Status
