Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
#1
28.03.2018 11:48:47
Есть выборка от 1 до 62.
Нужно из этой выборки записать в строку случайным образом, без повторений, некое количество n значений.
Количество строк и количество значений n нужно задавать через InputBox.
Изменено: kolevchuk - 28.03.2018 11:52:29
 
 
 
#2
28.03.2018 11:53:22
Поиск отказал?!
- https://www.planetaexcel.ru/techniques/14/230/
- https://www.excel-vba.ru/forum/index.php?topic=3990.new&topicseen
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#3
28.03.2018 12:13:46
Как записать данные не в столбец, а в строку?
Скрытый текст
Изменено: kolevchuk - 28.03.2018 12:26:39
 
 
 
#4
28.03.2018 12:27:17
Цитата
kolevchuk написал:
Как записать данные не в столбец, а в строку?
Код
Sub random()
    Const n As Long = 62 'случайные числа от 1 до n
    Const m As Long = 10 'кол-во случайных чисел - m
    Dim i As Long, j As Long, a() As Long
    ReDim a(1 To n) As Long
    Randomize
    For i = 1 To n
        j = Int(Rnd() * i + 1)
        If j <> i Then a(i) = a(j)
        a(j) = i
    Next i
    Cells(1, 1).Resize(, m) = a
End Sub
 
 
 
#5
28.03.2018 12:33:19
MCH, спасибо.
 
 
 
#6
28.03.2018 13:03:31
MCH, а как повторять это для нескольких строк, это надо для Cells цикл прописывать?
Изменено: kolevchuk - 28.03.2018 13:11:57
 
 
 
#7
28.03.2018 13:31:18
Цитата
kolevchuk написал:
а как повторять это для нескольких строк,
Не понял вопроса, подробнее опишите
 
 
 
#8
28.03.2018 13:38:41
MCH, заполнили первую строку 10-ю рандомными значениями, переходим ко второй и заполняем её 10-ю новыми рандомными значениями и так далее.
Изменено: kolevchuk - 28.03.2018 14:49:00
 
 
 
#9
28.03.2018 19:16:51
Поправьте или подскажите, если что-то не так.

Код
Sub random()
[a1:o1000000].Clear
    n = Val(InputBox("Верхний предел выборки"))
    m = Val(InputBox("Количество генерируемых чисел"))
    Dim i As Long, j As Long, a() As Long, b As Long
    ReDim a(1 To n) As Long
    Randomize
    For b = 1 To 1000000
    For i = 1 To n
              j = Int(Rnd() * i + 1)
        If j <> i Then a(i) = a(j)
        a(j) = i
    Next i
        Cells(b, 1).Resize(, m) = a
    Next b
End Sub
Изменено: kolevchuk - 28.03.2018 19:17:15
 
 
 
Страницы: 1
Наверх