Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
макрос генерирующий случайные числа в заданном диапазоне
 
#1
17.03.2010 05:08:25
Добрый день...  
 
Помогите пожалуйста написать общий макрос, который генерирует случайные числа (через СЛУЧМЕЖДУ) в каждой ячейке толбцов А и В в диапазоне от (-78) по (78)..  
 
То есть, запускаю макрос и в начале в ячйке А1 появляется случайное число от (-78) по (78)..Затем в ячйке В1 появляется случайное число от (-78) по (78)..  
 
Затем цикл повторяется для ячеек А2 и В2, А3 и В3 и так далее, ровно до конца листа, до 65536-й строки...  
 
Я сам написал такой макрос, но он такой муторный, ползёт как трамвай...Пока он выполняется можно кандидатскую защитить...Из-за нехватки знаний слишком много промежуточных действий туда заложил...  
 
Что-нибудь простое и быстрое)..  
 
Пожалуйста...  
 
Вот пример :
 
 
 
#2
17.03.2010 08:23:38
Sub pp()  
[a1:b65536].FormulaR1C1 = "=RANDBETWEEN(-78,78)"
[a1:b65536].Value = [a1:b65536].Value
End Sub
 
 
 
#3
17.03.2010 09:01:56
Или так:  
Public Sub MyRandom()  
Dim stb  
Dim c As Range  
Application.ScreenUpdating = False  
stb = Timer  
 
For Each c In Range("A:B").Cells  
   c.Value = Int((156 * Rnd) + 1) - 78 '(Rnd(156) - 78))  
Next  
   stb = CInt((Timer - stb) * 100) / 100  
   MsgBox ("Время работы " & stb & " сек."), vbInformation  
Application.ScreenUpdating = True  
 
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#4
17.03.2010 09:12:25
Dophin, с уважением, оцените разницу:  
Sub pp()  
Dim stb  
Application.ScreenUpdating = False  
stb = Timer  
 
[a1:b65536].FormulaR1C1 = "=RANDBETWEEN(-78,78)"
[a1:b65536].Value = [a1:b65536].Value
   stb = CInt((Timer - stb) * 100) / 100  
   MsgBox ("Время работы " & stb & " сек."), vbInformation  
Application.ScreenUpdating = True  
 
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
17.03.2010 09:32:45
Ваш 5 сек, мой 0.42) или я не туда смарел?)  
 
заполнял 65356 строк, на миллионе в 2007 Ваш больно долго работал, мой за 7 сек заполнил
 
 
 
#6
17.03.2010 09:46:46
to Dophin, KuklP  
 
Большое спасибо)..  
Когда мой макрос выполнял эту же задачу, я успевал посмотреть новости по телевизору)  
 
С уважением)
 
 
 
#7
17.03.2010 10:16:05
Dophin, у меня 2003.  
Мой вариант - 20,78 сек., Ваш - 132,94. Может 2007 считает по другому... И спасибо Волшебнику, что оценил наши потуги :-)
Я сам - дурнее всякого примера! ...
 
 
 
#8
17.03.2010 10:20:58
может Вы просто макросы перепутали?)) цикл по идее дольше выполняться должен.
 
 
 
#9
17.03.2010 10:24:44
Public Sub MyRandom()  
Dim stb  
Dim c As Range  
Application.ScreenUpdating = False  
stb = Timer  
 
For Each c In Range("A:B").Cells  
c.Value = Int((156 * Rnd) + 1) - 78 '(Rnd(156) - 78))  
Next  
stb = CInt((Timer - stb) * 100) / 100  
MsgBox ("Время работы " & stb & " сек."), vbInformation  
Application.ScreenUpdating = True  
 
End Sub  
 
 
Sub pp()  
Dim stb  
Application.ScreenUpdating = False  
stb = Timer  
 
[a1:b65536].FormulaR1C1 = "=RANDBETWEEN(-78,78)"
[a1:b65536].Value = [a1:b65536].Value
stb = CInt((Timer - stb) * 100) / 100  
MsgBox ("Время работы " & stb & " сек."), vbInformation  
Application.ScreenUpdating = True  
 
End Sub  
 
Как перепутать?
Я сам - дурнее всякого примера! ...
 
 
 
#10
17.03.2010 10:35:26
мне ажно интересно стало)  
 
Замерьте пожалуйста еще кто нить выполнение этих двух макросов)
 
 
 
#11
17.03.2010 10:48:20
{quote}{login=Dophin}{date=17.03.2010 10:35}{thema=}{post}мне ажно интересно стало)  
Замерьте пожалуйста еще кто нить выполнение этих двух макросов){/post}{/quote}  
 
Присоединяюсь к просьбе Dophin.
Я сам - дурнее всякого примера! ...
 
 
 
#12
17.03.2010 10:50:04
2003:  
Public Sub MyRandom() = 7,84  
Sub pp()= 0,86. Правда, оба столбца заполнены #ИМЯ? :-)
 
 
 
#13
17.03.2010 10:53:05
2003:  
Public Sub MyRandom() = 13,77  
Sub pp()= 1,95. Тоже оба столбца заполнены #ИМЯ? :-)
 
 
 
#14
17.03.2010 10:58:19
{quote}{login=The_Prist}{date=17.03.2010 10:52}{thema=Re: }{post}{quote}{login=Юрий М}{date=17.03.2010 10:50}{thema=}{post}Правда, оба столбца заполнены #ИМЯ? :-){/post}{/quote}Я еще тестирую. А #ИМЯ потому, что функция RANDBETWEEN доступна лишь начиная с 2007 Excel.{/post}{/quote}  
 
заполняете циклом полностью два столбца в 2007? я так и не дождался)
 
 
 
#15
17.03.2010 10:59:41
Dophin, а как нам с Виктором теперь жить без RANDBETWEEN?
 
 
 
#16
17.03.2010 11:01:44
KuklP, а как у Вас проскочила RANDBETWEEN?
 
 
 
#17
17.03.2010 11:03:23
мож у него какой пакет анализа есть с этой функцией? вот он и тормозил так.
 
 
 
#18
17.03.2010 11:04:46
{quote}{login=Юрий М}{date=17.03.2010 10:59}{thema=}{post}Dophin, а как нам с Виктором теперь жить без RANDBETWEEN?{/post}{/quote}  
Как жить с тем, что у Юры машина в два раза шустрее? :)
 
 
 
#19
17.03.2010 11:07:37
У меня 2000, но randbetween сработал. И рр значительно быстрее...!
 
 
 
#20
17.03.2010 11:12:52
Кроме того, что у 2007-го дружественный интерфейс, у него ещё и завидное быстродействие?    
Кто может сказать насчёт скорости 2010-го по сравнению с 2003/2007?
 
 
 
#21
17.03.2010 11:15:26
И какой у меня 2003? если распознает "=RANDBETWEEN".  
Видимо в этом все дело. Сервиспук. Возможно с конвертором. Привык программки писать с обратной совместимостью(в отличии от Мелкомягких). Иногда приходится совмещать с 386 проц. Это Excel 5, Word 6. Win 3.1.    
Ладно, пойду спать, я с ночи.
Я сам - дурнее всякого примера! ...
 
 
 
#22
17.03.2010 11:18:24
Чуть не забыл. Большое спасибо тем, кто откликнулся!
Я сам - дурнее всякого примера! ...
 
 
 
#23
17.03.2010 11:20:14
{quote}{login=KuklP}{date=17.03.2010 11:18}{thema=}{post}Чуть не забыл. Большое спасибо тем, кто откликнулся!{/post}{/quote}  
Виктор, это нам. Диме ещё рано - тестирует.
 
 
 
#24
17.03.2010 11:20:47
У меня получилось, что иногда, если запускать несколько раз подряд макрос KuklP, то выпадают совершенно одинаковые значения...Не знаю чем объяснить, но случайно обратил внимание...  
 
А у Dophin макрос медленне работает, но зато каждый раз значения уникальные, не повторяются - то есть макрос Dophin - объективнее)
 
 
 
#25
17.03.2010 11:24:22
а версия Excel какая?  
 
чудеса какие то)
 
 
 
#26
17.03.2010 11:33:07
Засыпаю... А у меня все время разные значения. Но пришло на ум: randomise(timer). Все сплююююю
Я сам - дурнее всякого примера! ...
 
 
 
#27
17.03.2010 11:43:14
{quote}{login=Dophin}{date=17.03.2010 11:24}{thema=}{post}а версия Excel какая?  
 
чудеса какие то){/post}{/quote}  
 
Excel 2003  
 
Нет, правда...Просто я сохранял результаты и мог сопоставить... После какого-то перебора, внимание зацепилось на верхних яейках - чувствую, что уже встречал...Извлёк из корзины старые результаты - полностью совпали...  
 
Может у меня што-то с компом)
 
 
 
#28
17.03.2010 11:43:24
MyRandom 5.61  
PP 1.39  
 
MyRandom 5.17  
PP 1.12  
 
Значения разные.
 
 
 
#29
17.03.2010 12:15:45
{quote}{login=The_Prist}{date=17.03.2010 11:15}{thema=}{post}По имеющимся данным, 2010 пошустрее 2007. Точные замеры вроде пока никто не производил, а если и производил, то результатами пока не делился :-){/post}{/quote}Я проводил, и кстати на вашем макросе. И даже результаты тут вакладывал (примерно в сентябре)  
Вкратце так: не зависимо от операционной системы (XP, Vista, Win-7), и мощности компа, 2003 примерно на 40-50% быстрее 2007; 2010 и 2003 - здесь вопрос спорный.., да и 2010 в то время еще был даже не бета...  
Зы. Если выложите нормальный пример для теста - я вечером могу дома протестировать все три версии.
 
 
 
#30
17.03.2010 14:41:39
Вот, выкроил время на работе.  
В этом тесте 2007 не уступает 2003
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх