:strip_exif()/u/73/koelkast-lach.gif?f=community)
Ik sta voor de klas en dan heb je weleens behoefte aan een aantal handigheidjes, zoals een groepsmaker in de vorm van een toevalsgenerator, bijvoorbeeld in Excel.
Het is de bedoeling dat ik kan aangeven hoeveel kinderen er in een groepje mogen zitten (2,3,4 of 5) en dat er aan de hand van een klik met de muis direct groepjes worden gevormd, zichtbaar in Excel (of een ander programma) met namen erbij.
Nu heeft ComputerIdee een dergelijk iets met bingogetallen, erg handig. Ik heb geprobeerd de sheet aan te passen, maar dat lukt me niet. Het gaat hier om cijfers, en namen lukt me hier niet mee.
CID bingo (leuke sheet trouwens) staat hier: http://www.computeridee.n...ubriek=1620616&id=2277072
Verder heb ik gezocht naar een programma dat dit kan, maar helaas zonder resultaat.
Wie zou me hiermee kunnen helpen, of heeft een idee voor een sheet/programma dat mij veel tijd kan besparen?
De macro die de getallen genereert, is als volgt:
Het is de bedoeling dat ik kan aangeven hoeveel kinderen er in een groepje mogen zitten (2,3,4 of 5) en dat er aan de hand van een klik met de muis direct groepjes worden gevormd, zichtbaar in Excel (of een ander programma) met namen erbij.
Nu heeft ComputerIdee een dergelijk iets met bingogetallen, erg handig. Ik heb geprobeerd de sheet aan te passen, maar dat lukt me niet. Het gaat hier om cijfers, en namen lukt me hier niet mee.
CID bingo (leuke sheet trouwens) staat hier: http://www.computeridee.n...ubriek=1620616&id=2277072
Verder heb ik gezocht naar een programma dat dit kan, maar helaas zonder resultaat.
Wie zou me hiermee kunnen helpen, of heeft een idee voor een sheet/programma dat mij veel tijd kan besparen?
De macro die de getallen genereert, is als volgt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Sub Speelkaarten()
'De macro is gecomponeerd in november 2007 door Wim de Groot
Dim getal As Integer, i As Integer, a As Integer
For a = 1 To 6
For i = 1 To 5
Do
getal = Int(Rnd() * 15) + 1
Loop Until Range("A1:A" & i + 1).Find(getal) Is Nothing
Range("A" & i + 1) = getal
Next i
For i = 1 To 5
Do
getal = Int(Rnd() * 15) + 16
Loop Until Range("B1:B" & i + 1).Find(getal) Is Nothing
Range("B" & i + 1) = getal
Next i
For i = 1 To 5
Do
getal = Int(Rnd() * 15) + 31
Loop Until Range("C1:C" & i + 1).Find(getal) Is Nothing
Range("C" & i + 1) = getal
Next i
For i = 1 To 5
Do
getal = Int(Rnd() * 15) + 46
Loop Until Range("D1:D" & i + 1).Find(getal) Is Nothing
Range("D" & i + 1) = getal
Next i
For i = 1 To 5
Do
getal = Int(Rnd() * 15) + 61
Loop Until Range("E1:E" & i + 1).Find(getal) Is Nothing
Range("E" & i + 1) = getal
Next i
[A2:E6].Copy
If a = 1 Then [G2].PasteSpecial Paste:=xlValues
If a = 2 Then [A9].PasteSpecial Paste:=xlValues
If a = 3 Then [G9].PasteSpecial Paste:=xlValues
If a = 4 Then [A16].PasteSpecial Paste:=xlValues
If a = 5 Then [G16].PasteSpecial Paste:=xlValues
Next a
[C4].Select
Application.CutCopyMode = False
End Sub |
/u/28468/librarian2.png?f=community)
/u/61403/crop58bff192a74cb_cropped.png?f=community)
/u/15038/logo.GIF?f=community){kind=logo}
)