Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Different Random Numbers
Sub Gen5()
Dim varr(1 To 15) As Long Dim varr1(1 To 15) As Long Dim list(1 To 5) As Long Dim list1(1 To 5) As Long Dim i As Long, j As Long Dim num As Long For i = 1 To 15 varr(i) = i varr1(i) = i + 15 Next j = 1 Do While j < 6 num = Int(Rnd * 15 + 1) If varr(num) < 0 Then list(j) = varr(num) varr(num) = 0 j = j + 1 End If Loop j = 1 Do While j < 6 num = Int(Rnd * 15 + 1) If varr1(num) < 0 Then list1(j) = varr1(num) varr1(num) = 0 j = j + 1 End If Loop For i = 1 To 5 Cells(i, 1) = list(i) Cells(i, 2) = list1(i) Next End Sub -- Regards, Tom Ogilvy "Jake" wrote in message ... I would like to make a list of five random numbers between 1 and 15, and then another set of five between 16 and 30. I want to be able to regenerate the numbers quickly, like the rand or randbetween function is capable of doing, but it is necessary that each of these random numbers is always different from the other ones (ie: no duplicates) after being generated. (eg. 3,6,12,5,8 is good, 2,4,14,14,2 is not). I'm sure that's more than clear, but I just wanted to make sure. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Random Numbers excluding Previous Numbers | Excel Worksheet Functions | |||
getting numbers divisible by 4 from random numbers in ascending order | Excel Worksheet Functions | |||
Can Excel pick random numbers from 1-300 and not repeat numbers? | Excel Discussion (Misc queries) | |||
Non-random numbers generated by excel's data analysis random gener | Excel Worksheet Functions | |||
Non-random numbers generated by excel's data analysis random gener | Excel Discussion (Misc queries) |