Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выборка случайных значений из диапазона
 
#1
15.04.2015 13:28:30
Добрый день уважаемые форумчане,
помогите пожалуйста решить задачку(тем много с подобрыми запросами, но для себя не смог найти ,если ткнете носом в нужную ссылку, буду так же балгодарен).
Макрос будет запускаться каждый день .
нужно брать два случайных числа(которые не будут повторятся после перезапуска макроса) из диапазона (из столбца) и выносится в новый лист , допустим нумерация листов будет датой запуска макроса .
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#2
15.04.2015 13:36:44
Так случайное число или дата?
 
 
 
#3
15.04.2015 13:52:37
в столбце данные, вот нужно эти данные в случайном порядке выбирать  по 2 и копировать данные в новый лист
при повторном запуске , эти 2 не должны учитываться , когда будет подбираться следующие 2
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#4
15.04.2015 13:57:26
примерно..

но не совсем не будут повторяться, могут повторяться, но врядли.. те случайным образом могут повториться.. :) если нужно что-то другое, то точнее поставьте задачу
Живи и дай жить..
 
 
 
#5
15.04.2015 14:23:03
Скрытый текст

а если удалять рандомно выбраные данные из столбца , в котором ищет ?после того как данные уже перенесены на новый лист . можно так ?
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#6
15.04.2015 14:27:31
и еще, данные совсем не должны совпадать, т.е. ни в одном из ново созданных листов не должны повторятся .
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#7
15.04.2015 15:21:43
вот
данные не повторяются пока не исчерпан список, потом новый цикл
Живи и дай жить..
 
 
 
#8
15.04.2015 16:30:12
выполнил макрос несколько раз подряд , на 4й раз данные задвоились  . на 7й раз еще раз задвоилось .
И если не сложно, можно в коде сделать коментарий, в каком месте менять количество вычисляемых рандомных данных?(чтобы можно было менять на больше чем 2) .
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#9
16.04.2015 09:50:27
Всё таки повторения есть , может быть есть у кого то другое решение ?
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#10
16.04.2015 10:26:06
Вариант :
Код
Sub Скелет_Макроса()
For i = 1 To 2
ВерхГраница = Cells(Rows.Count, 1).End(xlUp).Row
r = Int((ВерхГраница * Rnd) + 1)
'создать и обозвать новый лист Датой
'with Новый_лист
.Cells(i, 1) = Cells(r, 1).Value
'end with
Next
Cells(r, 1).EntireRow.Delete
End Sub
 
 
 
#11
16.04.2015 22:21:35
Скрытый текст
чтото не работает , можете пожалуйста объяснить поподробнее как и что?
50 times helped - they forgot, 1 time refused - they memorized
 
 
 
#12
17.04.2015 04:45:35
...
 
 
 
#13
17.04.2015 14:38:22
Цитата
YouRock написал: выполнил макрос несколько раз подряд , на 4й раз данные задвоились  . на 7й раз еще раз задвоилось .
ну на 7й раз я же сказал - до исчерпания.. у нас список из 10 значений, 5 раз по 2..

на 4й не должно было.. у меня не задваивалось
Живи и дай жить..
 
 
 
Страницы: 1
Наверх