Why not just print out 60 slips of paper (numbered 1-60) and draw them from a hat?
This formula will return a random number between 1 and 60
=INT(1+RAND()*60)
This is a discussion on Random Number Generator 1 to 60 within the Excel Questions forums, part of the Question Forums category; I need some help in creating a random number generator from 1 to 60 and I need to to this ...
I need some help in creating a random number generator from 1 to 60 and I need to to this for 25 different times.
We have this wheel ( Paddle wheel and we have 20 paddles) with the numbers 1 to 60 and we sell chance tickets for a $1.00 to win 20.00.
Then I am going to print them on business size cards that way we don't have to retrieve the actuals paddles.
Can any one help me with a Random Number Generator for 1 to 60.
mike in wisconsin
Why not just print out 60 slips of paper (numbered 1-60) and draw them from a hat?
This formula will return a random number between 1 and 60
=INT(1+RAND()*60)
Not sure what you mean but, if you want to generate 1 ranndom number between 1 and 60:
=RANDBETWEEN(1,60)
Pressing F9 will change the value.
If this isnt what you need post back
ADAMC (",)
If everything seems to be going well, you have obviously overlooked something.
if you don't mind repeats:
=randbetween(1,60)
(if you get a name! error, go to tools | addins | & activate the analysis tool pack)
if you do mind about repeats, a few options here:
http://www.tushar-mehta.com/excel/ne...ion/index.html
I need to generate a set of random numbers 1 to 60 in groups of 3 non repeating groups, That will give me 20 sets of three numbers.
Then I would like to create 20 to 25 sets of these numbers. with each group being different. We use it as one of our fund raiser for different events in our community.
mike in wisconsin
Paddyd, I looked at your link and I don't know enough if what I want is there but
thank you
I did find this
http://www.randomizer.org/form.htm
That provide the numbers now I have to get it to bussiness cards.
mike in wisconsin
Or you can tryCode:Sub noreprand() n = 60 ReDim a(1 To n, 1 To 1), c(1 To n, 1 To 3) For t = 1 To 3 p = 0 For i = 1 To n a(i, 1) = i Next i Do x = Int(Rnd() * n) + 1 If Not IsEmpty(a(x, 1)) Then p = p + 1 Cells(p, 40) = p c(p, t) = a(x, 1) a(x, 1) = Empty End If Loop Until p = n Next t [a1].Resize(n, 3) = c End Sub
tryI need some help in creating a random number generator from 1 to 60 and I need to to this for 25 different times.
We have this wheel ( Paddle wheel and we have 20 paddles) with the numbers 1 to 60 and we sell chance tickets for a $1.00 to win 20.00.
Then I am going to print them on business size cards that way we don't have to retrieve the actuals paddles.
Can any one help me with a Random Number Generator for 1 to 60.
mike in wisconsin
Code:Sub test() Dim myMaxNum As Long, mySet As Long, a(), i As Long, ii As Long, iii As Long myMaxNum = Int(Application.InputBox("Enter limit",type:=1)) If myMaxNum < 1 Then Exit Sub mySet = Int(Application.InputBox("How many sets?", type:=2) If mySet < 1 Then Exit Sub ReDim a(1 To myMaxNum, 1 To 2) Randomize For i = 1 To mySet For ii = 1 To myMax a(ii,1) = i a(ii,2) = Rnd() Next VSortMA a, 1, UBound(a,1), 2 .Range("a1").Offset(,iii).Resize(UBound(a,1)).Value = a iii = iii + 1 Next End Sub Private Sub VSortMA(ary, LB, UB, ref) Dim i As Long, ii As Long, iii As Long, M As Variant, temp As Variant i = UB : ii = LB M = ary(Int((LB+UB)/2,ref) Do While ii <= i Do While ary(ii,ref) < M ii = ii + 1 Loop Do While ary(i,ref) > M i = i - 1 Loop If ii <= i Then For iii = LBound(a,2) To UBound(a,2) temp = ary(ii,iii) : ary(ii,iii) = ary(i,iii) : ary(i,iii) = temp Next i = i - 1 : ii = ii + 1 End If Loop If LB < i Then VSortMA ary, LB, i, ref If ii < UB Then VSortMA ary, ii, UB, ref End Sub
Like this thread? Share it with others